problème avec checkbox

[Mimi]

Bonjour à tous,
Je suis entrain de créer une petite fiche pour faciliter le temps de travail de ma femme, et là je suis un peut coincé:
quand je remplis la cellule k19 à la main par vrai ou faux, la case à cocher maison sur la feuille s'active ou se désactive, le problème c'est que je voudrais passer par un userform avec des checkboxs qui le ferais tout seul.
Dans le fichier joint j'ai créer une macro et je l'ai attribué a la checkbox1, mais sa ne marche pas.
D'avance merci pour le petit coup de main
Michel

 

[ccpapy]

Re : problème avec checkbox

bonjour,
il n'y a rien dans ton fichier Zip ???
à+

 

[Mimi]

Re : problème avec checkbox

Bonjour ccpapy,
Avec mes excuses
Michel

 

[ccpapy]

Re : problème avec checkbox

bonsoir ,
essaye en changeant le code du checkbox par ceci

Private Sub CheckBox1_Change()
If CheckBox1 = True Then Call Macro4
If CheckBox1 = False Then Call Macro3
End Sub

à+

 

[Mimi]

Re : problème avec checkbox

Bonjour,
Désoler ça ne marche pas
Merci quand même
Michel

 

[Pierrot93]

Re : problème avec checkbox

Bonjour Michel, ccpapy

pas sur d'avoir tout compris, mais regarde le code ci dessous pour la "checkbox3" :

Private Sub CheckBox3_Change()
Dim c As Shape
Set c = Sheets("Fiches1").Shapes("case à cocher 3")
If CheckBox3.Value = True Then
    c.OLEFormat.Object = True
Else
    c.OLEFormat.Object = False
End If
End Sub

bonne journée
@+

 

[mutzik]

Re : problème avec checkbox

bonjour à tous,

un exemple un peu plus 'logique' de ce que tu veux faire

 

[Mimi]

Re : problème avec checkbox

Bonjour Pierrot,
un grand merci pour ton code il marche impect.
Encore merci et à bientôt
Michel

 

[Mimi]

Re : problème avec checkbox

Salut Mutzik,
Pas raffraichi, bonne méthode aussi un grand merci
A bientôt
Michel