Contenu récent par Teren

Le classeur complet va passer si le joint

Voici le code complet: Private sub combobox1_dropbuttonclick() If Combobox1.listcount=0 then With combobox1 .additem " 01/01/22" .additem "02/01/22" .additem "03/01/22" End with End if End sub Private sub commandbutton1_click Dim J as byte With worksheets ("2022") If combobox1.listindex=0 then...

Pourquoi J Il me dit projet introuvable.

[/CODE]

Donc quelque soit le checkbox que je vais coché. Il va ranger a la bonne ligne.

Bonjour , Oui ils sont dans un userform. Quand je clic sur commandbutton sa range dans une feuille de classeur.

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