recuperer le deuxieme mot d'une cellule VBA

[BIL boud]

Bonjour

je souhaite recuperer le premier mot ainsi que le deuxieme mot d'une cellule , j'ai reussi a extraire lepremier mais le 2 eme je ne sais pas comment en proceder

sachant que les 2 mots de la cellule sont separer par un espace

voila le code pour extrarire lepremier mot

x = Left(Range("A2"), InStr(Range("A2"), " ") - 1)

merci

 

[M12]

Bonjour,

A tester

Sub test()
Dim x$, y$
x = Left(Range("A2"), InStr(Range("A2"), " ") - 1)
y = Mid(Range("A2"), Len(x) + 2, Len(Range("A2")))
End Sub

 

[BIL boud]

Bonjour,

A tester

Sub test()
Dim x$, y$
x = Left(Range("A2"), InStr(Range("A2"), " ") - 1)
y = Mid(Range("A2"), Len(x) + 2, Len(Range("A2")))
End Sub

MERCI BCP
Ca marche tres bien

 

[JM27]

Bonjour
les données en B2

Sub test()
    MsgBox Split(Range("B2"), " ")(0)
    MsgBox Split(Range("B2"), " ")(1)
End Sub

 

[BIL boud]

MERCI BCP
Ca marche tres bien

est il possible d'ajouter une condition pour que le code s'excute que si la cellule contient 2 mot

merci encore

 

[JM27]

bonsoir
Attention le tableau commence à l'indice 0

Sub test()
    Tablo = Split(Range("A2"), " ")
    If UBound(Tablo) = 1 Then
     ' ici ton code
    End If
End Sub

 

[BIL boud]

bonsoir
Attention le tableau commence à l'indice 0

Sub test()
    Tablo = Split(Range("A2"), " ")
    If UBound(Tablo) = 1 Then
     ' ici ton code
    End If
End Sub

merci bcp