Discussion :

[dj-julio]

Bonjour,

Je chercher à extraire une chaîne de caractères contenue dans une chaîne de caractères

En fait j'ai une liste d'adresses IP commençant par 10.29.***.yyy
Je cherche à récupérer dans une autre liste la valeur ***
En PHP il y aurait eu la fonction "explode" qui permet de découper une chaîne en plusieurs sous chaîne, pour cela je me serais servi du point comme d'un caractère de séparation.

Mais en Excel je ne vois pas comment faire.

Si quelqu'un peut m'aider, ce serait très sympa !

@+

[marc56]

Si ton I.P. est en A1

=STXT(A1;7;3)

puis tu tires ta cellule vers le bas pour la reproduire.

[benjibast]

Bonjour,

Si tu connais par avance parfaitement le format de tes donnes, tu peux utiliser la fonction STXT

Ex: tu as tes ip dans la colonne A
tu tapes dans une nouvelle colonne:
=STXT(A1;7;3)

et tu l'etires dans la colonne

(7= debut du morceau a prendre, 3= longueur)

(regarde dans l'aide d'excel si besoin)

Cordialement,

Benjibast

(marc m'a devance )

[Invité]

Bonjour,

Comme souvent plusieurs solutions possibles.

Une parmi les autres :

en VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mchain2 = mid(mchain1, 7 , 3)

Avec une formule Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=GAUCHE(DROITE(A1;7);3)

ou comme l'a indiqué Benjibast :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=STXT(A1;7;3)

nos réponses se sont croisées.

[dj-julio]

Merci pour vos réponses si rapides

Cependant, je ne sais pas par avance si la valeur *** fait 1, 2 ou 3 caractères.
Donc votre solution marche que si cette valeur fait 3 caractères


Il faudrait une formule qui me permette de couper la chaîne sur les points "." Mais je ne trouve pas cette formule magique

Merci de votre aide =)

[Invité]

Dans ce cas :
'dl = n° dernière ligne à traiter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
dl = 100
For n = 2 to dl
text = Cells(n, 1)
    Tableau = Split(text, ".")
 
    For i = 0 To UBound(Tableau)
        If i = 2 Then
        Cells(n, 2) = Tableau(i)
        End If
    Next i
Next n

[dj-julio]

Rolala j'ai honte

Je ne sais pas où mettre ce code(j'ai ouvert la fenêtre de VB) je pense que je dois coller le code dans la page qui porte le même nom que ma page sous Excel ; mais je ne sais pas comment l'appeler :s

Désolé

[Invité]

En l'occurence le plus simple est de coller ce code sur la feuille contenant les données.

Outils, Macro, Visual Basic Editor puis sélectionner la feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Sep_text()
 
dl = 100
For n = 2 to dl
text = Cells(n, 1)
    Tableau = Split(text, ".")
 
    For i = 0 To UBound(Tableau)
        If i = 2 Then
        Cells(n, 2) = Tableau(i)
        End If
    Next i
Next n
 
End Sub

Si la cellule d'affectation du résultat se trouve sur une autre feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
au lieu de 
 
Cells(n, 2) = Tableau(i)
 
par exemple
 
Sheets("Feuil2").Cells(n, 2) = Tableau(i)

[dj-julio]

D'accord merci
mais pour exécuter ce code et qu'il renvoit le résultat dans une colonne souhaitée, que dois-je faire ?

Désolé, je débute là dedans et je n'ai pas le temps de rester apprendre les bases tout seul

merci :s

[marc56]

Sans passer une macro, mais si tes 6 premiers caractères sont constants :
I.P. toujours en A1
=GAUCHE(STXT(A1;7;NBCAR(A1)-5);TROUVE(".";STXT(A1;7;NBCAR(A1)-5);1)-1)

[dj-julio]

Super !!!

C'est exactement ce qu'il me fallait !

Y'a pas à dire, c'est vraiment bisar la programmation en excel ^^

Merci à tous !

[Invité]

Re Dj-julio,

Soit utiliser la formule de Marc56, soit pour exécuter la macro :

1) Outils, Macro, Macros puis Exécuter

2) Outils, Macro, Macros puis Options et choisir un caractères qui permettra de lancer la macro par les touches. Exemple Ctrl et A.

3) Affichage puis Barres d'outils puis cliquer sur Barre d'outils contrôle.
Cliquer sur "Bouton de Commande" et dessiner un rectangle sur la feuille.
Avec un clic droit sur le bouton vous allez pouvoir changer le texte et affecter la macro au bouton.

[dj-julio]

Merci jacques_jean pour la précision !

Bonne fin de journée à tous

[ESVBA]

Pour tous les cas de longueur à la condition d'avoir 3 points dans la chaine placée en F3 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=STXT(F3;1+TROUVE(".";F3;1+TROUVE(".";F3;1));TROUVE(".";F3;1+TROUVE(".";F3;1+TROUVE(".";F3;1)))-TROUVE(".";F3;1+TROUVE(".";F3;1))-1)

avec gestion des erreurs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(VRAI=ESTERREUR(STXT(F3;1+TROUVE(".";F3;1+TROUVE(".";F3;1));TROUVE(".";F3;1+TROUVE(".";F3;1+TROUVE(".";F3;1)))-TROUVE(".";F3;1+TROUVE(".";F3;1))-1));"erreur";STXT(F3;1+TROUVE(".";F3;1+TROUVE(".";F3;1));TROUVE(".";F3;1+TROUVE(".";F3;1+TROUVE(".";F3;1)))-TROUVE(".";F3;1+TROUVE(".";F3;1))-1))

simple, non ?
Vive VBA, c'est plus clair.

Qui propose pour 33 points ?