Supprimer caractères après un caractère défini
Résolu
Yoakim
-
Yoakim -
Yoakim -
A voir également:
- Supprimer caractères après un caractère défini
- Caractère ascii - Guide
- Supprimer rond bleu whatsapp - Guide
- Caractère spéciaux - Guide
- Caractere speciaux - Guide
- Caractere speciaux mac - Guide
1 réponse
Bonjour,
A adapter pour votre cas
Ou utiliser la fonction Split() comme ça :
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
Yoakim
Super ! Merci pour votre aide :) :) :)