VBA Ne garder qu'une partie du texte [Résolu/Fermé]

Signaler
Messages postés
93
Date d'inscription
mardi 15 juillet 2008
Statut
Membre
Dernière intervention
11 juillet 2011
 -
Messages postés
93
Date d'inscription
mardi 15 juillet 2008
Statut
Membre
Dernière intervention
11 juillet 2011
 -
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

2 réponses

Réponse 1 / 2
Messages postés
16
Date d'inscription
mercredi 10 mars 2010
Statut
Membre
Dernière intervention
26 janvier 2016
 1
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
Réponse 2 / 2
Messages postés
93
Date d'inscription
mardi 15 juillet 2008
Statut
Membre
Dernière intervention
11 juillet 2011
 2
C'est parfait !
Merci beaucoup
Posez votre question