fonction chiffres--> ip

Version imprimable

12/11/2007, 12h00
c+cool

fonction chiffres--> ip
Bonjour

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

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
12/11/2007, 12h03
Jean-Philippe André

bonjour,
tu veux mettre ca dans une cellule, parce que le code vba est bon :)
12/11/2007, 12h12
c+cool

oui ce sont des cellulles avec des chiffres
par exemple

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

ben en utilisant ton code ca donnerait ca :

Code:

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

12/11/2007, 12h22
Invité

Bonjour

Code:

Monchiffre as Double

sera mieux.

Starec
12/11/2007, 12h26
c+cool

mais je mets ca ou exactement je connais pas du tout excel
12/11/2007, 14h05
c+cool

personne ne peut m'aider?

aussi a quoi corresponde les a et b dans cette syntaxe?

Merci
12/11/2007, 14h11
Jean-Philippe André

euh,
je les sors de ton code :roll:

non les a et b des rangse ca represente les lignes ou colonnes?

J'ai fait ca je sais pas si c'set juste :

dans visual basic editor j'ai fait un nouveau module ou j'ai copié collé ce ci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Public Function StringToIP(Monchiffre As Double) As String 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 3 Range("D" & i).Value = StringToIP(Range("A" & i).Value) Next i End Sub
Et ensuite j'execute avec le bouton play et il me dit erreur de syntaxe sur la premiere ligne...

youpla boum:

Code:

1
2
3
4
5
6
7
8
9
10
11
Public Function StringToIP(Monchiffre As Double) As String
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
    a = (Monchiffre / 16777216) Mod 256
    b = (Monchiffre / 65536) Mod 256
    c = (Monchiffre / 256) Mod 256
    d = (Monchiffre Mod 256)
    StringToIP = (a & "." & b & "." & c & "." & d)
End Function

ca m'apprendra à pas tester le code d'origine