Supprimer caractères après un caractère défini
Résolu
Yoakim
-
Yoakim -
Yoakim -
Bonjour,
Je recherche désespérement un code qui me permette de supprimer les caractères d'une cellule après le premier caractère défini rencontré, en l'occurence ","
Exemple de conversion souhaitée :
"Darcheux,Roger,Mme et M." = "Darcheux"
Merci pour votre aide :)
Je recherche désespérement un code qui me permette de supprimer les caractères d'une cellule après le premier caractère défini rencontré, en l'occurence ","
Exemple de conversion souhaitée :
"Darcheux,Roger,Mme et M." = "Darcheux"
Merci pour votre aide :)
1 réponse
-
Bonjour,
A adapter pour votre cas
Sub ExtractFirstWord()
Dim ws As Worksheet
Dim chaine As String
Dim c As String
Dim str As String
Dim i As Long
Set ws = ThisWorkbook.Worksheets(1)
chaine = ws.Cells(1, 1)
For i = 1 To Len(chaine)
c = Mid(chaine, i, 1)
If c <> "," Then
str = str & c
Else
MsgBox str
Exit Sub
End If
Next i
End Sub
Ou utiliser la fonction Split() comme ça :
Sub SplitCell()
Dim ws As Worksheet
Dim chaine As String
Dim str
Set ws = ThisWorkbook.Worksheets(1)
chaine = ws.Cells(1, 1)
str = Split(chaine, ",")
MsgBox str(0)
End Sub
