Re : quelle fonction utiliser pour lire une suite de nombres?
voilà une partie de code mais une simple recherche dans l'aide de vba vous en dira plus...
Dim ecrire
Dim lire
lire = Array(132, 8, 135, 8, 141, 5, 141, 8, 141, 9, 141, 10, 141, 11, 141, 12, 141, 13, 141, 16, 141, 17, 141, 18, 141, 20, 141, 21, 141, 23, 141, 24, 141, 25, 141, 26, 141, 32, 141, 33, 141, 34, 141, 35, 141, 37, 142, 9, 143, 10, 145, 16, 146, 35, 146, 37, 147, 5, 147, 9, 147, 10, 147, 12, 147, 17, 147, 18, 147, 32, 147, 33, 147, 34, 148, 6, 148, 7, 148, 11, 148, 20, 148, 21, 148, 25, 148, 34, 151, 12, 151, 13, 151, 23, 151, 32, 151, 33, 151, 34, 152, 18, 156, 5, 156, 12, 156, 13, 156, 17, 156, 18, 156, 24, 156, 32, 156, 33, 156, 35, 156, 37, 157, 20, 157, 25, 157, 26, 158, 25, 161, 17, 162, 16, 162, 26, 162, 35, 162, 37)
ecrire = Array(3, 7, 6, 7, 12, 4, 12, 7, 12, 8, 12, 9, 12, 10, 12, 11, 12, 12, 12, 14, 12, 15, 12, 16, 12, 17, 12, 18, 12, 19, 12, 20, 12, 21, 12, 22, 12, 23, 12, 24, 12, 25, 12, 26, 12, 27, 13, 8, 14, 9, 16, 14, 17, 26, 17, 27, 18, 4, 18, 8, 18, 9, 18, 11, 18, 15, 18, 16, 18, 23, 18, 24, 18, 25, 19, 5, 19, 6, 19, 10, 19, 17, 19, 18, 19, 21, 19, 25, 22, 11, 22, 12, 22, 19, 22, 23, 22, 24, 22, 25, 23, 16, 27, 4, 27, 11, 27, 12, 27, 15, 27, 16, 27, 20, 27, 23, 27, 24, 27, 26, 27, 27, 28, 17, 28, 21, 28, 22, 29, 21, 32, 15, 33, 14, 33, 22, 33, 26, 33, 27)
For compet = 0 To 69
Debug.Print "lire en " & lire(compet * 2) & " " & lire(compet * 2 + 1) + 2 & " " & "ecrire en " & ecrire(compet * 2) & " " & ecrire(compet * 2 + 1)
'traitement que vous voulez
Next compet
je n'ai pas l'habitude poster des morceaux de code, j'espère que je respecte les codes de ce site...
en cas de besoin, envoyez-moi un mail.
Cdt, Luc