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
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: