Fonction CHERCHE en vba

[msingle]

Bonjour,

Je dois extraire d'une chaîne de caractère du genre 12356/ZOS90115, les caractères se trouvant avant "/".

En excel, pas de problème avec la formule : =GAUCHE(A1;CHERCHE("/";A1;1)-1)

Mais en vba?

Marc

 

[mapomme]

Re : Fonction CHERCHE en vba

Bonsoir msingle,

Un essai avec le code:

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)

 

[david84]

Re : Fonction CHERCHE en vba

Bonjour msingle, mapomme,
à tester également :

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

A+

 

[msingle]

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))

 

[Staple1600]

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

 

[msingle]

Re : Fonction CHERCHE en vba

C'est parfait!

Merci beaucoup.

Marc