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