Récupérer l'IP dans une cellule

Résolu
rama9300 -  
Bonjour,

Est-ce possible de créer une macro qui récupére une valeur dans une cellule?

Exemple:
Host2 - 192.168.0.23 - Bat 2 - salle C24

Je souhaiterais récupérer uniquement la valeur " 192.168.0.23 "

J'ai trouvé la commande Sheets(1).Cells.Find("*.*.*.*", , , 1) pour repérer les cellules contenant des IP. Par contre, je ne parviens pas à récupérer uniquement l'IP...
Pouvez-vous m'aider svp?

Cordialement,

4 réponses

  1.  pijaku Modérateur
    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) 
    '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)
    1. rama9300 Auteur
      Bonjour,

      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,
    2. pijaku Modérateur
      Bonjour,

      Au lieu de : 
      Var1 = IsoleIP(Cell.Select)
      mettre : 
      Var1 = IsoleIP(Cell)
    3. pijaku Modérateur
      Bonjour,

      Alors?
      ça fonctionne?
    4. rama9300 Auteur
      Bonjour,

      Merci beaucoup! cela fonctionne! Je n'ai pas pu travailler dessus hier. Désolé pour la réponse tardive.

      Cordialement,
  2. pijaku Modérateur
    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 : 
    Split(ActiveCell.Value, " - ")(1)
    1. rama9300 Auteur
      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,
      1. pijaku Modérateur
        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"
      2. rama9300 Auteur
        Pour répondre à votre question, l'IP n'apparaît pas tout le temps en deuxième position.
    2. rama9300 Auteur
      Merci pour vos réponses.
      Je vais faire les tests.

      Cordialement,