Private Sub CheckBox1_Click()
CheckBox1.Caption = IIf(CheckBox1, "MARDI", "MERCREDI")
If CheckBox1 = False Then
Range("C12").Value = "REPOS"
Else
Range("C12").Value = ""
End If
End Sub
Private Sub CheckBox1_Click()
CheckBox1.Caption = IIf(CheckBox1, "MARDI", "MERCREDI")
Range("C12") = IIf(Not CheckBox1, "REPOS", "")
End Sub
Bonjour,
quite à faire du vba...
bon après midiCode:Private Sub CheckBox1_Click() CheckBox1.Caption = IIf(CheckBox1, "MARDI", "MERCREDI") Range("C12") = IIf(Not CheckBox1, "REPOS", "") End Sub
@+
Edition : bonjour Sourcier
Private Sub CheckBox1_Click()
CheckBox1.Caption = IIf(CheckBox1, "MARDI", "MERCREDI")
Range("C12") = IIf(CheckBox1, "", "REPOS")
End Sub
Re,
ton fichier en retour
=SI(ET(C7=FAUX;C16>Feuil2!E18 );"REPOS";"")
Range("C12") = IIf(CheckBox1 And (Range("C16").Value > Sheets("Feuil2").Range("E18").Value), "", "REPOS")
Bonjour,
peut être comme ceci, non testé...
bonne joutrnéeCode:Range("C12") = IIf(CheckBox1 And (Range("C16").Value > Sheets("Feuil2").Range("E18").Value), "", "REPOS")
@+