Microsoft 365 Reduire code

Teren · 12 Décembre 2021

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

Teren · 12 Décembre 2021

JM27 à dit:
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

JM27 · 12 Décembre 2021

non , il faut le zipper si il est trop gros ou alors mettre un fichier simplifié
Car à terme le fichier si il est sur ci joint , il disparaitra

Microsoft 365 Reduire code

Teren

XLDnaute Nouveau

Teren

XLDnaute Nouveau

JM27

XLDnaute Barbatruc

Discussions similaires