Merci pour la réponse, j'ai testé mais cela ne fonctionne pas.
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
Bonjour,
essaye avec ceci :
Code: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
@+
Re,
ton fichier avec les 2 approches
Re,
ca ne fonctionne pas comme tu veux dans le fichier que je viens de joindre ??
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
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