VBA Ne garder qu'une partie du texte
Résolu
actaris51
Messages postés
93
Date d'inscription
Statut
Membre
Dernière intervention
-
actaris51 Messages postés 93 Date d'inscription Statut Membre Dernière intervention -
actaris51 Messages postés 93 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- VBA Ne garder qu'une partie du texte
- Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
- Transcription audio en texte word gratuit - Guide
- Excel cellule couleur si condition texte - Guide
- Texte barré whatsapp - Guide
- Comment faire une recherche à partir d'une photo - Guide
2 réponses
Salut,
Pour le traitement sur la chaine il suffit de faire
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
