CheckBox du UserForm coche CheckBox

K

kjin

XLDnaute Barbatruc

• 21 Février 2013

• #2

Re : CheckBox du UserForm coche CheckBox

bonjour,
Sans passer par one cellule intermédiaire, renomme ta case à cocher "MaCase" et dans le formulaire

Code:

Private Sub CheckBox1_Click()
Feuil1.DrawingObjects("MaCase") = CheckBox1
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

T

Touna

XLDnaute Junior

• 22 Février 2013

• #3

Re : CheckBox du UserForm coche CheckBox

Bonjour kjin,

et surtout merci pour ta rapidité.
J'ai essayé tes conseils, mais malheureusement cela ne marche pas, ça bloque à "Feuil1.DrawingObjects".

De plus dans l'exemple, que j'ai mis en ligne pourquoi le CheckBox1 de mon document est coché en gris en non en noir ?
Merci d'avance,
Touna

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 22 Février 2013

• #4

Re : CheckBox du UserForm coche CheckBox

bonjour,
Voir PJ
Note qu'on pourrait aussi se passer complètement de [A1]
A+
kjin

 

Pièces jointes

• touna.xls

  180.5 KB · Affichages: 78

Vote positif 0 Vote négatif

T

Touna

XLDnaute Junior

• 25 Février 2013

• #5

Re : CheckBox du UserForm coche CheckBox

Bonjour, et merci beaucoup, vous êtes formidable.
Touna

 

Vote positif 0 Vote négatif