Supprimer caractères après un caractère défini
Résolu/Fermé
A voir également:
- Supprimer caractères après un caractère défini
- Caractère ascii - Guide
- Caractere speciaux - Guide
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Caractère spéciaux - Guide
1 réponse
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
11 nov. 2013 à 13:28
11 nov. 2013 à 13:28
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
11 nov. 2013 à 13:36