VBA | Incrémenter adresse IP

Dans la catégorie “une macro en 5 minutes”, voici un petit bout de code que j’ai fait pour solutionner un problème récent.

Le problème est le suivant :  Considérant une adresse IP de départ, générer une liste de N autres adresses IP (incrémentées de 1). Il faut bien sûr savoir qu’une adresse IP est composée de 4 groupes de nombres compris entre 0 à 255, séparés par des points.

Par exemple : 127.168.1.1

Les valeurs ne peuvent pas être plus grandes que 255. Ainsi, si on a 127.168.1.255, la prochaine adresse IP sera 127.168.2.0.

Voici donc le code:

Il s’agit d’une fonction personnalisée récursive (car elle s’appelle elle-même).

pour l’utiliser, taper en A1 une adresse IP  : 127.168.1.250

En B1 écrire la formule : =NewIP(A1, 3) et tirer vers le bas.  (0 pour le 1er groupe de chiffres, 3 pour le dernier groupe)

A+

 

 

 

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *

*

Les balises HTML ne sont pas autorisés.