Formule pour garder certains chiffres
Bonjour à tous,
Je suis un pti nouveau ici.
Je reste confronté depuis 2 jours à un problème que je n'arrive pas à résoudre.
Je résume un peu la longue liste que j'ai dans Microsoft Excel 2007 :
VPN Gate Public VPN Relay Server #13004: 123.16.174.46 (123.16.174.46), Viet Nam
VPN Gate Public VPN Relay Server #17597: 175.214.196.29 (175.214.196.29), Korea Republic of
VPN Gate Public VPN Relay Server #23610: 220.102.207.97 (dcm1-220-102-207-97.tky.mesh.ad.jp), Japan
VPN Gate Public VPN Relay Server #32600: 79.116.166.230 (79.116.166.230), Romania
Je souhaite effectuer une liste d'IP idéalement comme ceci :
123.16.174.46
175.214.196.29
220.102.207.97
79.116.166.230
ou si ce n'est pas possible comme ceci :
123.16.174.46 (123.16.174.46), Viet Nam
175.214.196.29 (175.214.196.29), Korea Republic of
220.102.207.97 (dcm1-220-102-207-97.tky.mesh.ad.jp), Japan
79.116.166.230 (79.116.166.230), Romania
Je vous remercie d'avance de m'aider à trouver une formule.
Bonne soirée
Bonjour,
Essaie ça
=STXT(A1;CHERCHE(":";A1;1)+2;CHERCHE("(";A1;1)-CHERCHE(":";A1;1)-3)Quelle rapidité et efficacité, merci !
Cependant, je n'arrive pas à obtenir le même résultat (voir pièce jointe)
Problème d'option ? Version d'excel ?
Ta colonne B doit être définie en format texte sans doute !
Merci à vous 2 pour votre aide !
Cela fonctionne.
Bonne journée à vous
J'espère ne pas abuser
Pourrais-je avoir une dernière formule svp pour supprimer ce qu'il y a après l'IP comme l'exemple ci-dessous ?
83.142.165.162:8080
95.215.47.75|Unnamed|17521|0|FGRSV|5032622|Tor 0.2.5.12|
Merci d'avance
Excel2007 a écrit :83.142.165.162:8080
=STXT(A1;1;CHERCHE(":";A1)-1)Excel2007 a écrit :95.215.47.75|Unnamed|17521|0|FGRSV|5032622|Tor 0.2.5.12|
=STXT(A1;1;CHERCHE("|";A2)-1)Bon, il y aurait une façon plus pro, ce sont les regexp (utilisation des expression régulière), plus complexe à programmer ... mais plus universelle !
Merci steelson mais cela ne fonctionne pas.
Je me permets de t'envoyer le fichier en MP car trop gros en pièce jointe.
On gagnera surement du temps car ça m'a l'air un peu compliqué pour moi
En B1, j'ai mis a peu près tous les cas de figure
=SIERREUR(STXT(A1;1;SIERREUR(SIERREUR(SIERREUR(CHERCHE(":";A1);CHERCHE("|";A1));CHERCHE(" ";A1));CHERCHE("|";A1))-1);A1)salut steelson
avec tant de SIERREUR tu donnes l'impression de t'excuser de ne pas trouver du premier coup
cordialement
Salut Tulipe !
tulipe_4 a écrit :salut steelson
avec tant de SIERREUR tu donnes l'impression de t'excuser de ne pas trouver du premier coup
cordialement
bon, le problème ayant évolué il a fallu s'adapter ... mais je vais quand même travailler la solution propre de regex
Merci steelson, tu m'en as fait gagné des centaines d'heures ...
Cette expression devrait fonctionner ... mais elle prend énormément de temps, donc la solution SIERREUR est plus rapide !
^([0-9]{1,3}.){3}.([0-9]{1,3})$ce qui signifie 1 à 3 caractères de 0 à 9 suivi d'un point, puis 1 à 3 caractères de 0 à 9 (IPv4)
Function ExtractIP(cel As Range) As String
MyRegExPattern = "([0-9]{1,3}).([0-9]{1,3}).([0-9]{1,3}).([0-9]{1,3})"
Dim RegEx As Object
Set RegEx = CreateObject("vbscript.regexp")
With RegEx
.Global = True
.IgnoreCase = True
.pattern = MyRegExPattern
End With
ExtractIP = ""
Set allMatches = RegEx.Execute(cel.Value)
If allMatches.Count <> 0 Then
ExtractIP = allMatches(0)
End If
End FunctionBon j'ai réussi ... mais le temps de traitement est long !
Salut Steelson,
Je suis de nouveau confronter à un petit souci qui pour toi, en un claquement de doigt, le résoudra
J'ai des IP mais avec des espaces devant que j'aimerai supprimé.
J'ai essayé d'insérer des fonctions avec les dernières formules que tu as cités mais cela n'a pas fonctionné.
Merci d'avance et bonjour de Bretagne
Oh j'ai trouvé l'info sur internet donc je l'a publie si quelqu'un d'autre est intéressé.
Sélectionnez toutes les cellules où il y a ce souci, puis Ctrl + H
"Remplacez" et dans la première ligne "Recherchez" vous appuyez sur la barre espace et dans la 2ème "Remplacer par" vous ne mettez absolument rien.
"Remplacez tout" et hop ya plus d'espaces... =)
Excel2007 a écrit :J'ai essayé d'insérer des fonctions avec les dernières formules que tu as cités mais cela n'a pas fonctionné.
dommage car c'était LA solution, certes un peu moins rapide !
Excel2007 a écrit :Merci d'avance et bonjour de Bretagne
... de retour du haut des Hauts-de-France