VALIDE IP
cs_asd
Messages postés
32
Date d'inscription
mercredi 9 janvier 2002
Statut
Membre
Dernière intervention
5 novembre 2003
-
20 mars 2003 à 15:25
thierrydelepine Messages postés 521 Date d'inscription mardi 24 décembre 2002 Statut Membre Dernière intervention 11 septembre 2008 - 10 mars 2004 à 11:34
thierrydelepine Messages postés 521 Date d'inscription mardi 24 décembre 2002 Statut Membre Dernière intervention 11 septembre 2008 - 10 mars 2004 à 11:34
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6516-valide-ip
https://codes-sources.commentcamarche.net/source/6516-valide-ip
10 mars 2004 à 11:34
il y a peut etre plus simple,en tout cas elle marche tres bien.
Function Verifier_Adresse_IP(AdresseIP As String) As Boolean
Dim MyList() As String
MyList() = Split(AdresseIP, ".", -1, vbTextCompare) 'decoupe l'adresse IP en 4 morceaux representatn chacun un nombre compris entre 0 et 255
If UBound(MyList()) = 3 Then 'verifie que l'(on a bien 4 morceaux sinon pas bon
For i = 0 To UBound(MyList()) 'parcours les 4 morceaux
If Val(MyList(i)) >= 0 And Val(MyList(i)) <= 255 And MyList(i) <> "" Then 'verifie les 4 morceaux un a un et qu'il on une valeur numerique comprise entre 0 et 255 sinon ce n'est pas une IP
Else
Verifier_Adresse_IP = False 'l'une des valeurs n'est un nombre compris entre 0 et 255
Exit Function
End If
Next
Verifier_Adresse_IP = True 'c'est ici que l'on est sur que c'est une adresse IP
Exit Function
End If
Verifier_Adresse_IP = False
End Function
21 mars 2003 à 09:55
20 mars 2003 à 17:58
En passant demande a Nix de l'effacer. et transfert la sur javascriptfr
20 mars 2003 à 16:09
20 mars 2003 à 15:25
http://www.javascriptfr.com/