Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel
Objet : Re : Fichier très long à charger par eric45 sur 27/01/2018 18:54:25
Bonsoir à toutes et tous
Il y a deux petites choses :
Tout d'abord, dans la ligne :
Set sh2 = Worksheets("Feuil2") 'a = 20 a = 18 + ActiveCell.Row
il faut supprimer :
a = 18 + ActiveCell.Row
et copier cette ligne dessous, comme ceci :
Set sh2 = Worksheets("Feuil2")
a = 18 + ActiveCell.Row
Puis, inutile de créer un bouton avec un code, il suffit de cliquer sur la cellule (exemple) F2 et la colonne "T2 à Tx" se remplira, et ainsi de suite : "F3" pour "U2 à Ux"...... Cela est pour les lignes "Ax à Ex" futures. Si, tu as déjà saisis des nombres dans les lignes 1, 2, 3, ..., soit c'est peu de lignes et tu parcours une par une les celulles en colonnes "F" sinon créer une macro qui le fera à ta place jusqu'à la dernière ligne "Ax à Fx" occupée.