quelle fonction utiliser pour lire une suite de nombres?

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mysterauto

XLDnaute Nouveau
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.
 
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
 
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 🙂.
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
587
Compte Supprimé 979
C
Retour