fonction chiffres--> ip

**c+cool** · 12/11/2007, 12h00

Bonjour

je possede un fichier csv contenant des chiffres je veux les transformer en string à l'aide de la fonction suivante :

Code :

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

1
2
3
4
5
6
 
    a = (Monchiffre / 16777216) % 256
    b = (Monchiffre /65536 ) % 256
    c = (Monchiffre / 256) % 256
    d = (Monchiffre % 256)
    resultat = (a + "." + b + "." + c + "." + d)

exemple 1042808832 --> "62.39.0.0"

Comment faire ca en excel ?

Merci

**Jean-Philippe André** · 12/11/2007, 12h03

bonjour,
tu veux mettre ca dans une cellule, parce que le code vba est bon

**c+cool** · 12/11/2007, 12h12

oui ce sont des cellulles avec des chiffres
par exemple

3265150976
1331853312
1357053952
1399717888
1401423872
1433616384
et je veux transformer toute les cellulles

**Jean-Philippe André** · 12/11/2007, 12h15

ben en utilisant ton code ca donnerait ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Function StringToIP(Monchiffre as Double) as string 'edit merci starec ;)
    a = (Monchiffre / 16777216) % 256
    b = (Monchiffre /65536 ) % 256
    c = (Monchiffre / 256) % 256
    d = (Monchiffre % 256)
    StringToIP= (a & "." & b & "." & c & "." & d)
end function
 
sub test
for i = 1 to 10
range("b" & i).value = StringToIP(range("a"&i).value)
next i