Fonction CHERCHE en vba

mapomme

XLDnaute Barbatruc

Supporter XLD

• 9 Février 2014

• #2

Re : Fonction CHERCHE en vba

Bonsoir msingle,

Un essai avec le code:

VB:

Sub test()
  S1 = "12356/ZOS90115"
  S = Split(S1, "/")(0)      'renvoie 12356
  MsgBox S
End Sub

S=Split(S1, "/")(1) retournerait le "2ième mot" soit ZOS90115

Voir dans l'environnement VBA l'aide sur la fonction SPLIT ( et sa fonction réciproque JOIN)

 

Dernière édition: 9 Février 2014

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 9 Février 2014

• #3

Re : Fonction CHERCHE en vba

Bonjour msingle, mapomme,
à tester également :

Code:

Sub test()
t = "12356/ZOS90115"
c = Left(t, InStr(t, "/") - 1)
MsgBox c
End Sub

A+

 

Vote positif 0 Vote négatif

msingle

XLDnaute Occasionnel

• 9 Février 2014

• #4

Re : Fonction CHERCHE en vba

Voici le code que je dois corriger :

Dim Cible As String
Cible = Range("F1")
Sheets("Données").Range("L2") = Sheets("Facture").Range(Split(Cible, "/")(0))

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Février 2014

• #5

Re : Fonction CHERCHE en vba

Bonsoir à tous

msingle
Ne serait-ce pas cela que tu veux obtenir?
Dim Cible$, Chaine$
Cible = Range("F1")
Chaine=Split(Cible, "/")(0)
Sheets("Données").Range("L2") = Chaine

 

Vote positif 0 Vote négatif

msingle

XLDnaute Occasionnel

• 9 Février 2014

• #6

Re : Fonction CHERCHE en vba

C'est parfait!

Merci beaucoup.

Marc

 

Vote positif 0 Vote négatif