Récupérer l'IP dans une cellule
Résolu/Fermé
rama9300
Messages postés
6
Date d'inscription
mardi 23 septembre 2014
Statut
Membre
Dernière intervention
26 septembre 2014
-
23 sept. 2014 à 12:17
rama9300 Messages postés 6 Date d'inscription mardi 23 septembre 2014 Statut Membre Dernière intervention 26 septembre 2014 - 26 sept. 2014 à 07:27
rama9300 Messages postés 6 Date d'inscription mardi 23 septembre 2014 Statut Membre Dernière intervention 26 septembre 2014 - 26 sept. 2014 à 07:27
A voir également:
- Récupérer l'IP dans une cellule
- Ethernet n'a pas de configuration ip valide - Guide
- Recuperer message whatsapp supprimé - Guide
- Aller à la ligne dans une cellule excel - Guide
- Recuperer video youtube - Guide
- Comment connaître son adresse ip - Guide
4 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 754
23 sept. 2014 à 14:18
23 sept. 2014 à 14:18
Si tu es sur de n'avoir qu'une IP par cellule, essaie la fonction personnalisée (issue du tutoriel de caféine) :
Ne pas oublier d'activer la référence Microsoft VBScript Regular Expressions dans Outils/références (sous l'éditeur VBA)
Pour son utilisation, dans la feuille :
- en A1 : Host2 - 192.168.0.23 - Bat 2 - salle C24
- en B1 : =IsoleIP(A1)
Ne pas oublier d'activer la référence Microsoft VBScript Regular Expressions dans Outils/références (sous l'éditeur VBA)
'nécessite l'activation de la référence : 'Microsoft VBScript Regular Expressions 'Outils/Références Function IsoleIP(monRange As Range) Dim Regle As New VBScript_RegExp_55.RegExp Dim EstBon As VBScript_RegExp_55.Match Dim maCollec As VBScript_RegExp_55.MatchCollection Regle.Pattern = "((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)" Set maCollec = Regle.Execute(monRange.Value) For Each EstBon In maCollec IsoleIP = EstBon.Value Next Set maCollec = Nothing Set Regle = Nothing End Function
Pour son utilisation, dans la feuille :
- en A1 : Host2 - 192.168.0.23 - Bat 2 - salle C24
- en B1 : =IsoleIP(A1)
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 754
23 sept. 2014 à 12:38
23 sept. 2014 à 12:38
Bonjour,
Si le "schéma" de vos données est toujours de la forme info1 "espace" "tiret" "espace" IP "espace" "tiret" "espace" info3 "espace" "tiret" "espace" etc...
L'adresse IP est :
Si le "schéma" de vos données est toujours de la forme info1 "espace" "tiret" "espace" IP "espace" "tiret" "espace" info3 "espace" "tiret" "espace" etc...
L'adresse IP est :
Split(ActiveCell.Value, " - ")(1)
rama9300
Messages postés
6
Date d'inscription
mardi 23 septembre 2014
Statut
Membre
Dernière intervention
26 septembre 2014
23 sept. 2014 à 13:00
23 sept. 2014 à 13:00
Bonjour,
Merci pour la réponse.
Cependant, il n'y a pas de schéma respecté.
Les données sont souvent formulé de manière aléatoire.
L'IP est toujours présente dans la cellule mais il y a également d'autre information dans cette même cellule.
Cordialement,
Merci pour la réponse.
Cependant, il n'y a pas de schéma respecté.
Les données sont souvent formulé de manière aléatoire.
L'IP est toujours présente dans la cellule mais il y a également d'autre information dans cette même cellule.
Cordialement,
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 754
23 sept. 2014 à 13:29
23 sept. 2014 à 13:29
Par schéma j'entendais ceci :
- l'IP est toujours en "seconde position" dans la cellule,
- l'IP est entourée de " - ", un avant et un après.
" - " = enchainement de 3 caractères : "espace" "tiret du 6" "espace"
- l'IP est toujours en "seconde position" dans la cellule,
- l'IP est entourée de " - ", un avant et un après.
" - " = enchainement de 3 caractères : "espace" "tiret du 6" "espace"
rama9300
Messages postés
6
Date d'inscription
mardi 23 septembre 2014
Statut
Membre
Dernière intervention
26 septembre 2014
23 sept. 2014 à 14:36
23 sept. 2014 à 14:36
Pour répondre à votre question, l'IP n'apparaît pas tout le temps en deuxième position.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 754
23 sept. 2014 à 14:38
23 sept. 2014 à 14:38
rama9300
Messages postés
6
Date d'inscription
mardi 23 septembre 2014
Statut
Membre
Dernière intervention
26 septembre 2014
24 sept. 2014 à 09:51
24 sept. 2014 à 09:51
Merci pour vos réponses.
Je vais faire les tests.
Cordialement,
Je vais faire les tests.
Cordialement,
24 sept. 2014 à 10:32
Je pensais utiliser la fonction IsolateIP de cette manière :
Sub For_Each_Next_Plage()
Dim FL1 As Worksheet, Cell As Range, Plage As Range
Dim Var1
Set FL1 = Worksheets("Feuil2")
With FL1
Set Plage = .Range("W47:W200")
For Each Cell In Plage
'Valeur de la cellule lue
Var1 = IsoleIP(Cell.Select)
Next
End With
Set FL1 = Nothing
Set Plage = Nothing
End Sub
L'idée était de parcourir la colonne W de la ligne 47 à 200 pour récupérer l'IP de la cellule.
Cependant, cela n'a pas l'air de fonctionner. Avez-vous une idée du blocage?
Cordialement,
24 sept. 2014 à 14:37
Au lieu de : mettre :
25 sept. 2014 à 16:29
Alors?
ça fonctionne?
26 sept. 2014 à 07:27
Merci beaucoup! cela fonctionne! Je n'ai pas pu travailler dessus hier. Désolé pour la réponse tardive.
Cordialement,