msingle XLDnaute Junior 9 Février 2014 #1 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
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 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
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)
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
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+
msingle XLDnaute Junior 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
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 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
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 XLDnaute Junior 9 Février 2014 #6 Re : Fonction CHERCHE en vba C'est parfait! Merci beaucoup. Marc Vote positif 0 Vote négatif