Checkbox

[mcj1997]

Bonjour,

Petit problème en PJ que je n'arrive pas à solutionner.

Merci d'avance,

 

[Pierrot93]

Re : Checkbox

Bonjour,

Merci pour la réponse, j'ai testé mais cela ne fonctionne pas.

cela veut dire quoi ? message d'erreur ou pas le résultat attendu ?

fonctionne chez moi sous 2003 et résultat OK par rapport à ma compréhension....

bonne journée
@+

 

[mcj1997]

Re : Checkbox

Bonjour,

Voici le problème que je rencontre :

Lorsque c'est positionné à mercredi je souhaite faire apparaite REPOS en C12
à la condition que c16 soit > à E18 de la feuille 2

Dans l'exemple cela fonctionne mais lorsque la valeur en C16 est < à E18 de la feuille 2
REPOS reste afficher en C12 et il ne faudrait pas.

j'ai actualisé le fichier en PJ,

Merci d'avance,

 

[Pierrot93]

Re : Checkbox

Bonjour,

essaye avec ceci :

Private Sub CheckBox1_Click()
CheckBox1.Caption = IIf(CheckBox1, "MARDI", "MERCREDI")
Range("C12") = IIf(Not CheckBox1 And Range("C16").Value > Sheets("Feuil2").Range("E18").Value, "REPOS", "")
End Sub

bonne journée
@+

 

[mcj1997]

Re : Checkbox

Bonjour,

essaye avec ceci :

Private Sub CheckBox1_Click()
CheckBox1.Caption = IIf(CheckBox1, "MARDI", "MERCREDI")
Range("C12") = IIf(Not CheckBox1 And Range("C16").Value > Sheets("Feuil2").Range("E18").Value, "REPOS", "")
End Sub

bonne journée
@+

Merci cela fontionne,

Bonne journée

 

[mcj1997]

Re : Checkbox

Pour aller plus loin et jusqu'au bout, à l'origine ma demande était de pouvoir mettre cette formule directement dans la feuille 1 dans la case C12 à la place de la formule dans VBE.

Merci d'avance,

 

[Pierrot93]

Re : Checkbox

Re,

ton fichier avec les 2 approches

 

[mcj1997]

Re : Checkbox

Re,

ton fichier avec les 2 approches

Merci mais dans mon fichier la condition fausse n'est pas prise en compte, je ne comprends pas pourquoi ?

 

[Pierrot93]

Re : Checkbox

Re,

ca ne fonctionne pas comme tu veux dans le fichier que je viens de joindre ??

 

[Pierrot93]

Re : Checkbox

Re,

ne pas oublier de lier la cellule C9 à la "checkbox" comme expliqué au post #10...

 

[mcj1997]

Re : Checkbox

Re,

ca ne fonctionne pas comme tu veux dans le fichier que je viens de joindre ??

si c'est parfait dans le fichier joint mais lorsque je mets cette formule dans mon fichier (que je ne peux mettre en ligne) avec les conditions exactement au même endroit, il n'est pas tenu compte de la condition FAUX, dois-je activer quelque chose dans le VBE ?

 

[Pierrot93]

Re : Checkbox

Re,

on s'est croisé... regarde le post #24

 

[mcj1997]

Re : Checkbox

c'est là que je bloque, je sais pas faire.

 

[Pierrot93]

Re : Checkbox

Re,

dans l'éditeur vba (ALT F11) il faut afficher la fenêtre "propriété" (barre de menu => affichage => "fenêtre propriétés", dans Excel, barre d'outils visual basic tu click sur l'icone "création" puis la "checkbox" et tu as les propriétés de celle ci dans l'éditeur vba... plus qu'a modifier la propriété "linkedcell" en mettant C9

 

[mcj1997]

Re : Checkbox

Re,

dans l'éditeur vba (ALT F11) il faut afficher la fenêtre "propriété" (barre de menu => affichage => "fenêtre propriétés", dans Excel, barre d'outils visual basic tu click sur l'icone "création" puis la "checkbox" et tu as les propriétés de celle ci dans l'éditeur vba... plus qu'a modifier la propriété "linkedcell" en mettant C9

Problème résolu, merci pour votre contribution.

 

[agadiroufla]

Re : Checkbox

Bonsoir,
Essai ceci

Private Sub CheckBox1_Click()
On Error Resume Next
Select Case CheckBox1.Value
Case True
If Sheets("feuil1").Range("C16").Value > Sheets("Feuil2").Range("E18").Value Then
Range("C12").Value = "REPOS"
Else
Range("C12").Value = "-"
End If
Case Else
Range("C12").Value = "-"
End Select

Cdt