Discussion :

[sticks_678]

Bonjour,

Je reviens avec ce sujet car j'ai une autre contrainte. Voici ce que j'ai :

Adr IP

192.246.213.1

205.10.253.45

192.246.210.104

25.140.69.1

192.246.62.18

En gros ce que je veux obtenir c'est ce résultat là :

192.246.xxx.xxx

205.10.253.45

25.140.69.1

Je m'explique. Je veux rassembler les adresses IP qui ont leurs deux premiers groupes de chiffres (ex : "192.246") et laisser les autres adresses IP qui n'ont pas de doublons tels qu'elles sont.
J'ai essayé quelque chose de très flou qui n'a évidemment pas fonctionné vu mon niveau de connaissance dans ce domaine. Ce que j'ai fais c'est que je parcours 1 à 1 les cellules de mon tableau et je compare avec la case d'après et si elles sont équivalentes je remplace par "le_debut_de_l'adresse.xxx.xxx" .
Pouvez-vous m'aiguiller ?

[Invité]

Bonjour,

Comme ça par exemple ?

Pièce jointe 232585

Pour obtenir l'équivalent VBA, tapez d'abord une formule et modifiez là en enregistrant une macro. Pour ne garder qu'une seule valeur, regardez l'utilisation des variables Dictionnaires ou filtrez sans doublon sur cette nouvelle colonne.

Cordialement.

[sticks_678]

Merci pour ta réponse.
Cependant il faut que cela fonctionne pour n'importe quel adresse IP qui se ressemble à partir des deux premiers.
Je te fourni mon tableau si cela peut t'apporter un peu plus de précision.
Je vais quand même tester ta méthode en essayant de l'appliquer à mon besoin.

[Invité]

Cependant il faut que cela fonctionne pour n'importe quel adresse IP qui se ressemble à partir des deux premiers.

J'ai du mal à te suivre.

La méthode donnée est là pour te donner le principe. Si tu développes une macro (je réaliserais plutôt une fonction dans ton cas), tu peux facilement régler tes X cas avec un select case.

Cordialement.

[sticks_678]

Les adresses IP que tu vois là peuvent être différente tous les jours je ne peux donc pas faire un select case car je ne suis pas censé connaître les adresses IP à l'avance. Enfaite toute les semaines j'ai un fichier contenant des adresses IP que je doit traiter comme tel pour réaliser des plages.

[unparia]

Bonjour
Ces adresses comportent toujours 4 "groupes" séparés par un "."
1) les trier
2) éclater la colonne A par rapport au "." en ignorant les 2 derniers groupes (outil convertir)
3) lire mes interventions de ce jour ou d'hier. L'une d'entre elles est le principe du reste de ton problème.
Reviens avec le code essayé sur ces bases simples

[Invité]

Les adresses IP que tu vois là peuvent être différente tous les jours je ne peux donc pas faire un select case car je ne suis pas censé connaître les adresses IP à l'avance. Enfaite toute les semaines j'ai un fichier contenant des adresses IP que je doit traiter comme tel pour réaliser des plages.

Une solution équivalente à celle de Jacques :

Il faut spliter les adresses et vérifier que les indices 0 et 1 de ta variable ont 3 caractères.

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
 
Function SelectionAdresseIP(ByVal AdresseIp As String) As String
 
Dim MaVariableSplit As Variant
 
    MaVariableSplit = Split(AdresseIp, ".")
    If UBound(MaVariableSplit) > 1 Then
       If Len(MaVariableSplit(0)) = 3 And Len(MaVariableSplit(1)) = 3 Then
          SelectionAdresseIP = MaVariableSplit(0) & "." & MaVariableSplit(1) & ".XXX.XXX"
       Else
          SelectionAdresseIP = AdresseIp
       End If
    End If
 
End Function