P petipeton XLDnaute Nouveau 12 Juillet 2010 #1 Bonjour à tous ! J'ai en A1 un texte qui contient toujours le caractère j. Je souhaite récupérer les valeurs qui se trouvent avant ce j dans une colonne puis, dans une autre colonne, les valeurs qui se trouvent après ce j. Merci de votre aide !
Bonjour à tous ! J'ai en A1 un texte qui contient toujours le caractère j. Je souhaite récupérer les valeurs qui se trouvent avant ce j dans une colonne puis, dans une autre colonne, les valeurs qui se trouvent après ce j. Merci de votre aide !
Efgé XLDnaute Barbatruc 12 Juillet 2010 #2 Re : Récupérer une chaîne de texte Bonjour petipeton, En B1 : Code: =GAUCHE(A1;CHERCHE("j";A1;1)-1) En C1 Code: =DROITE(A1;NBCAR(A1)-CHERCHE("j";A1;1)) Cordialement Vote positif 0 Vote négatif
Re : Récupérer une chaîne de texte Bonjour petipeton, En B1 : Code: =GAUCHE(A1;CHERCHE("j";A1;1)-1) En C1 Code: =DROITE(A1;NBCAR(A1)-CHERCHE("j";A1;1)) Cordialement
J JHA XLDnaute Barbatruc 12 Juillet 2010 #3 Re : Récupérer une chaîne de texte Bonjour, Avec données en A1 avant =STXT(A1;1;TROUVE("j";A1)-1) Après =STXT(A1;TROUVE("j";A1)+1;100) JHA Vote positif 0 Vote négatif
Re : Récupérer une chaîne de texte Bonjour, Avec données en A1 avant =STXT(A1;1;TROUVE("j";A1)-1) Après =STXT(A1;TROUVE("j";A1)+1;100) JHA
Hulk XLDnaute Barbatruc 12 Juillet 2010 #4 Re : Récupérer une chaîne de texte Hello Petipeton, Efgé, JHA, Forum, Une petite version VBA... Code: Private Sub CommandButton1_Click() [B1] = Mid(Range("A1"), 1, InStr(1, Range("A1"), "j") - 1) [C1] = Mid(Range("A1"), InStr(Range("A1"), "j") + 1) End Sub Ou plus proprement... Code: Private Sub CommandButton1_Click() Dim Chaine As String Chaine = [A1] [B1] = Mid(Chaine, 1, InStr(1, Chaine, "j") - 1) [C1] = Mid(Chaine, InStr(Chaine, "j") + 1) End Sub Bonne fin de journée à tous et VIVA ESPAÑA Vote positif 0 Vote négatif
Re : Récupérer une chaîne de texte Hello Petipeton, Efgé, JHA, Forum, Une petite version VBA... Code: Private Sub CommandButton1_Click() [B1] = Mid(Range("A1"), 1, InStr(1, Range("A1"), "j") - 1) [C1] = Mid(Range("A1"), InStr(Range("A1"), "j") + 1) End Sub Ou plus proprement... Code: Private Sub CommandButton1_Click() Dim Chaine As String Chaine = [A1] [B1] = Mid(Chaine, 1, InStr(1, Chaine, "j") - 1) [C1] = Mid(Chaine, InStr(Chaine, "j") + 1) End Sub Bonne fin de journée à tous et VIVA ESPAÑA
P petipeton XLDnaute Nouveau 12 Juillet 2010 #5 Re : Récupérer une chaîne de texte Merci à tous !!! Tout fonctionne à merveille et je me mets même de côté le code VBA ! Et bravo à l'Espagne, effectivement !!! Vote positif 0 Vote négatif
Re : Récupérer une chaîne de texte Merci à tous !!! Tout fonctionne à merveille et je me mets même de côté le code VBA ! Et bravo à l'Espagne, effectivement !!!