VBA Conserver une partie du texte

K

kjin

XLDnaute Barbatruc

• 10 Mars 2010

• #2

Re : VBA Conserver une partie du texte

Bonjour,
A adapter (plage ?)

Code:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Mars 2010

• #3

Re : VBA Conserver une partie du texte

Bonjour actaris51, salut kjin

Une autre solution :

Code:

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+

 

Vote positif 0 Vote négatif

A

actaris51

XLDnaute Occasionnel

• 10 Mars 2010

• #4

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

 

Vote positif 0 Vote négatif

A

actaris51

XLDnaute Occasionnel

• 10 Mars 2010

• #5

Re : VBA Conserver une partie du texte

C'est parfait Job!
Merci à tous les deux

 

Vote positif 0 Vote négatif