Microsoft 365 Reduire code

Teren

XLDnaute Nouveau
Bonjour, je suis novice, j'apprend doucement. Sui pourrai venir a mon aide sur code. J'aimerai apprendre à réduire.
Merci a vous d'avance.


Privat sub commandbutton1_click

Worksheets("feuil1").select
If combobox1.listindex=0 then
Range("G1")=checkbox1
Range("G2")=checkbox2
...
.
....


..
Jusque
Range("G50")=checkbox50
Activeworkbook.save
Sheets( " Départ").Activate
End if
End sub
 
Dernière édition:

Teren

XLDnaute Nouveau
il faut poster ton fichier
C'est certainement du à une check box mal orthographié

de plus la copie est mal faite Il manqque un point devant le Range("G"&J)=me.controls("checkbox"&J).value
le point fait référence à la feuille
For J = 1 to 50
.Range("G"&J)=me.controls("checkbox"&J).value
Next

Pour ta formation: il fait indenter( des retraits) ton code comme je l'ai fais au #9 , ca facilite vraiment le déboggage
Le classeur complet va passer si le joint
 

Discussions similaires

Réponses
18
Affichages
2 K

Statistiques des forums

Discussions
298 770
Messages
1 971 601
Membres
203 412
dernier inscrit
elrico22