VBA Ne garder qu'une partie du texte Résolu

Question

Bonjour,

J'ai un petit soucis en VBA.
Voilà, j'aimerai faire une macro qui ne me garde que le texte situé après le premier espace pour toutes les cellules d'une colonne.

Par exemple dans ma colonne A j'ai :
Tintin Milou
Roger Dédé

Et bien dans ma colonne B Je ne voudrais que
Milou
Dédé

Pouvez vous m'aider ?

Merci

Yaggoth · Answer

Salut,

Pour le traitement sur la chaine il suffit de faire

Sub Macro1()
    'A Modifier en fonction du nombre de cellule
    NombreCellules = 2
    
    For i = 1 To 2
        Range("A" & i).Select
        lstrChaineOriginal = ActiveCell.FormulaR1C1
        li32PositionEspace = InStr(lstrChaineOriginal, " ")
'On Prends la position de l'espace +1 car on ne veux pas l'espace dans la colonne B
'On récupère autant de caracètre qu'il y en a moins les caractères avant l'espace.
        lstrChaineAEcrire = Mid(lstrChaineOriginal, li32PositionEspace + 1, Len(lstrChaineOriginal) - li32PositionEspace + 1)
'On écris le résultat
        Range("B" & i).Select
        ActiveCell.FormulaR1C1 = lstrChaineAEcrire
    Next
End Sub

actaris51 · Answer

C'est parfait !
Merci beaucoup

VBA Ne garder qu'une partie du texte

2 réponses

Discussions similaires

Newsletters