VBA Conserver une partie du texte

[actaris51]

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

 

[kjin]

Re : VBA Conserver une partie du texte

Bonjour,
A adapter (plage ?)

Sub mot2()
If Cells(1, 1) <> "" Then T = Split(Cells(1, 1), Chr(32))
If UBound(T) > 0 Then Cells(1, 2) = T(1)
End Sub

A+
kjin

 

[job75]

Re : VBA Conserver une partie du texte

Bonjour actaris51, salut kjin

Une autre solution :

Sub Separe()
Dim cel As Range
For Each cel In Range("A1", Range("A65536").End(xlUp))
If InStr(cel, " ") Then cel.Offset(, 1) = Mid(cel, InStr(cel, " ") + 1, 999)
Next
End Sub

A+

 

[actaris51]

Re : VBA Conserver une partie du texte

Merci.
Par contre, j'ai plusieurs mots en fait a la suite.
C'est plutot du style
Tintin Milou s'en va en guerre
et je ne veux garder que Milou s'en va en guerre.

Merci

 

[actaris51]

Re : VBA Conserver une partie du texte

C'est parfait Job!
Merci à tous les deux