Fichier inopérant

Question

J'espère que vous allez bien car il me faut un sauveur ! Alors voilà, j'ai développé ce petit fichier ci-joint il y a quelques mois ayant pour but d'être affiché sur une tablette tactile afin que l'utilisateur puisse y faire entrer de la donnée. Le seul problème, c'est qu'il ne fonctionne plus. En souhaitant le mettre en utilisation prochainement, je m'aperçois que ce dernier ne réalise plus les macros (à savoir, incrémenter de 1 les cellules correspondantes). Quelqu'un serait-il plus averti que moi svp ...

Xmenpl · Accepted Answer

Bonjour, dans vos lignes de code c'était pourtant affiché en vert :

'123 Peut être remplacer par une variable DerLigne si la dernière ligne est inconnu
For i = 2 To 123

Hors le nombre d'enregistrement dans l'onglet Data dépasse largement 123

'Méthode 1 
Vous augmentez largement la valeur de i 

For i = 2 to 9000

'Méthode 2  comme indiqué précédement utilisation variable derligne.

Dim derligne as long
derligne=Worksheets("Data").Range("A65536").End(xlUp).Row
For i=2 to derligne

Dan · Accepted Answer

En changeant votre For i = 2 to 1 23 par For i = 2 to For i = 2 To Worksheets("Data").Range("A" & rows.Count).End(xlUp).Row Cordialement...

eriiic · Answer

Heuuu, sur tablette ? Les macros ne fonctionnent pas dessus, à moins que ce ne soit des tablettes avec windows. Tu as testé ? eric...

Dan · Answer

Comme le dit Eriic, je me posais la même question en vous répondant Crdlt...