Discussion :

[Alex70]

Bonjour à tous, mes bases Vba sont bien loin derrière moi et j'aurais besoin d'aide pour mon travail.

J'ai un classeur excel avec plusieur feuilles.
Dans la premiere j'ai l'adresse de debut et l'adresse de fin des routeurs de mon entreprise
exemple :
10.10.100.1 | 10.10.100.24 | Agence A
10.10.100.25 | 10.10.100.74 | Agence B
etc...

sur une autre feuille j'ai 1774 adresse IP... et ce n'est qu'un debut...

J'aimerais faire un bouton qui me créé une page, en mettant pour chaque adresse IP de ma deuxieme feuille le nom de l'agence ou elle est.

Je conçoit très bien qu'il faut faire une boucle pour tester pour chaque agence si elle est entre le debut et la fin des adresses de mes routeurs, mais j'avourais que je reste perplexe sur comment ecrire cela...

Code :

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

1
2
3
4
5
6
 
Function NomAgence(Cellule_a_teste)
 
Sheets("Routeur").Select //routeur est le nom de ma première page
 
End function

Autant dire que je n'ai rien ecrit mais j'ai beaucoup de mal a me remettre dedans, je continu de chercher mais si quelqu'un passe par la pour m'aider merci d'avance.

[Many31]

utilise la fonction replace



et fait une simple comparaison re

en indiquant bien que les variable en cours sont de type long

moi je ferai comme ca....

[Many31]

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
16
17
18
19
Sub Macro1()
i = 2
    Do While Sheets("Adresse").Cells(i, 1) <> ""
 
    IP = Right(Replace(Sheets("Adresse").Cells(i, 1), ".", ""), 6)
    h = 3
        Do While Sheets("Routeur").Cells(h, 1) <> ""
            IPmin = Right(Replace(Sheets("Routeur").Cells(h, 1), ".", ""), 6)
            IPmax = Right(Replace(Sheets("Routeur").Cells(h, 2), ".", ""), 6)
            If IPmin <= IP And IP <= IPmax Then
                Sheets("Adresse").Cells(i, 2) = Sheets("routeur").Cells(h, 3)
                GoTo 2
            End If
            h = h + 1
        Loop
2:
        i = i + 1
    Loop
End Sub

seul petit problème avec cette fonction c'est que je ne connais pas la tete de tes IP :/ et que quand tu indique une IP 10.10.100.4 au final en retirant les "."... c'est pas propre j'ai juste récupéré les 6 caractères de droite pour comparer aux routeurs

[Alex70]

Niquel sa fait exactement ce que je veux, une grand merci a toi