quelle fonction utiliser pour lire une suite de nombres?

[mysterauto]

bonjour à tous. je me permets de vous solliciter pour un conseil sur un problème donné:

je dois transferer des données entre 2 classeurs et les données ne sont pas du tout au même endroit.

j'ai donc prévu de lire dans un classeur la cellule (a,b) et de copier le contenu de cette cellule dans le deuxième classeur dans la cellule(c,d).

j'ai créé automatiquement une liste du type:
a1,b1,c1,d1
a2,b2,c2,d2
a3,b3....


il y a environ 80 lignes et je dois faire ce même travail sur 30 feuilles différentes.

j'ai cherché dans l'aide de VBA mais je n'ai pas trouvé quelque chose de simple comme cela existait sous le vieux basic:

data: a1,b1,c1....

et une lecture par read... ou quelque chose comme ca.

est-ce qu'il existe une instruction qui permet de faire une lecture d'une liste préparée.

je vous remercie d'avance pour vos propositions.

Cordialement, Luc.

 

[Etienne2323]

Re : quelle fonction utiliser pour lire une suite de nombres?

Bonsoir Luc,
est-ce que les dimensions des plages sur lesquelles les données doivent être copiées sont de tailles identiques ?

Si c'est le cas, alors un petit tableau à deux dimensions pourrait très bien faire l'affaire.

Pourriez-vous déposer un petit fichier exemple sur lequel nous pourrions nous baser afin de produire une réponse cohérente ?

Au plaisir de vous relire,

Cordialement,

Étienne

 

[mysterauto]

Re : quelle fonction utiliser pour lire une suite de nombres?

merci déjà de vous interesser à mon problème. je joins un fichier qui n'est pas complet mais qui j'espère sera plus explicite.

merci d'avance.

très cordialement, Luc

 

[mysterauto]

Re : quelle fonction utiliser pour lire une suite de nombres?

bon j'ai trouvé, j'utilise la fonction array dans une boucle. Facile mais des fois on cherche très loin une fonction basique.

merci à tous.

 

[MJ13]

Re : quelle fonction utiliser pour lire une suite de nombres?

Bonjour Mystrauto, Etienne

bon j'ai trouvé, j'utilise la fonction array dans une boucle. Facile mais des fois on cherche très loin une fonction basique.

Mystrauto: Tu as trouvé et c'est super pour toi, mais pour nous, on est un peu sur notre faim

Merci de nous faire partager ta solution, trois mots très utiles sur XLD .

 

[mysterauto]

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

 

[MJ13]

Re : quelle fonction utiliser pour lire une suite de nombres?

Re

Merci

voilà une partie de code

Bon, c'est pas grave, mais je ne ferai pas l'effort de comprendre, je passe à autre chose .