Bjr la Team
Je suis content de rejoindre le forum. Merci à vous et surtout pour votre réactivité que j'ai pu suivre à travers les fils consultés.
C juste une passion pour moi à 53 ans de faire un peu de programmation en mode autodidacte.
Là j'essaie en novice d'apprehender l'usage des tableaux avec des manipulations via les macros.
Serait-il possible d'avoir une macro pour remplacer rapidement des valeurs [chiffres] dans un grand tableau.
Vu la taille du tableau générique par ailleurs et qui ne peut etre uploadé, en voici une description.
Dimensions du tableau :
600.000 lignes [de 4 à 600.003]
12 colonnes [de B à M]
Tableau rempli aléatoirement de chiffres
De 1 à 36
La 1ere ligne contient les chiffres de 1 à 36
La 2ème ligne contient les correspondances desirées pour le remplacement
1 2 3 4...
7 3 10 1...
J'ai tenté avec des boucles
For ligne=4 to 600.003
For col=2 to 13
If cells(ligne,col)=1 then
cells(ligne,col)=7
End if
Next col
Next ligne
Hhhh vous l'aurez deviné... C même pas la peine de mettre un Timer... C une éternité.
Je m'en remets à vous pour une solution
Et grand merci à ceux qui y mettront du leur, pour leur aimable diligence.
Je suis content de rejoindre le forum. Merci à vous et surtout pour votre réactivité que j'ai pu suivre à travers les fils consultés.
C juste une passion pour moi à 53 ans de faire un peu de programmation en mode autodidacte.
Là j'essaie en novice d'apprehender l'usage des tableaux avec des manipulations via les macros.
Serait-il possible d'avoir une macro pour remplacer rapidement des valeurs [chiffres] dans un grand tableau.
Vu la taille du tableau générique par ailleurs et qui ne peut etre uploadé, en voici une description.
Dimensions du tableau :
600.000 lignes [de 4 à 600.003]
12 colonnes [de B à M]
Tableau rempli aléatoirement de chiffres
De 1 à 36
La 1ere ligne contient les chiffres de 1 à 36
La 2ème ligne contient les correspondances desirées pour le remplacement
1 2 3 4...
7 3 10 1...
J'ai tenté avec des boucles
For ligne=4 to 600.003
For col=2 to 13
If cells(ligne,col)=1 then
cells(ligne,col)=7
End if
Next col
Next ligne
Hhhh vous l'aurez deviné... C même pas la peine de mettre un Timer... C une éternité.
Je m'en remets à vous pour une solution
Et grand merci à ceux qui y mettront du leur, pour leur aimable diligence.