Supprimer caractères après un caractère défini Résolu/Fermé

Question

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 :)


Configuration: Windows XP / Internet Explorer 8.0

Polux31 · Answer

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

Supprimer caractères après un caractère défini

1 réponse

Discussions similaires