[RESOLU]Pas compris! code à partir module de feuille et module standard

[cathodique]

Bonjour,

En voulant aidé cette discussion, la sub transfert était sur la feuille Qté, j'ai modifié le code proposé pour obtenir le résultat escompté.

J'ai repris le même code dans un module standard et là presque plus rien. Les données sont effacées mais plus de données transférées. Je n'ai vraiment pas compris pourquoi le code fonctionne quand il est dans le module de la feuille Qté, et ne fonctionne plus quand il est mis dans un module standard.

Merci de m'éclairer.

Bon dimanche.

 

[thebenoit59]

Re : Pas compris! code à partir module et module standard

Bonjour Cathodique, le forum.
Il existe juste une petite erreur à la ligne :

If .Cells(i, 17).Value <> "" And .Cells(i, 17).Value > 0 And Cells(i, 17).Interior.ColorIndex = 35 Then

Ajoute juste le "." Devant Cells(i, 17).Interior.ColorIndex s et ça fonctionnera .

 

[cathodique]

Re : Pas compris! code à partir module et module standard

Bonjour Thebenoit59,

Tous mes remerciements œil de lynx. Alors que je viens tout juste de changer de lunettes, déduction: les prémices de la vieillesse.
Il n'y avait pas de raison que ça ne fonctionne pas. Vraiment, pas vu le point qui manquait.
Merci et bon dimanche.

 

[thebenoit59]

Re : [RESOLU]Pas compris! code à partir module et module standard

Quand on a la tête dans le guidon, c'est difficile de trouver de petites erreurs .
Bonne journée.