recuperer le deuxieme mot d'une cellule VBA

BIL boud · 23 Mars 2019

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 · 23 Mars 2019

Bonjour,

A tester

VB:

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 · 23 Mars 2019

M12 à dit:

Bonjour,

A tester

VB:

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 · 23 Mars 2019

Bonjour
les données en B2

VB:

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

BIL boud · 23 Mars 2019

BIL boud à dit:
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 · 23 Mars 2019

bonsoir
Attention le tableau commence à l'indice 0

VB:

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

BIL boud · 23 Mars 2019

JM27 à dit:
bonsoir
Attention le tableau commence à l'indice 0

VB:

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

merci bcp

recuperer le deuxieme mot d'une cellule VBA

BIL boud

XLDnaute Occasionnel

M12

XLDnaute Accro

BIL boud

XLDnaute Occasionnel

JM27

XLDnaute Barbatruc

BIL boud

XLDnaute Occasionnel

JM27

XLDnaute Barbatruc

BIL boud

XLDnaute Occasionnel

Discussions similaires