Checkbox

[mcj1997]

Bonjour,

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

Merci d'avance,

 

[sourcier08]

Re : Checkbox

Salut,

Tu peux mettre ça comme code

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

 

[Pierrot93]

Re : Checkbox

Bonjour,

quite à faire du vba...

Private Sub CheckBox1_Click()
CheckBox1.Caption = IIf(CheckBox1, "MARDI", "MERCREDI")
Range("C12") = IIf(Not CheckBox1, "REPOS", "")
End Sub

bon après midi
@+

Edition : bonjour Sourcier

 

[mcj1997]

Re : Checkbox

Bonjour,

quite à faire du vba...

Private Sub CheckBox1_Click()
CheckBox1.Caption = IIf(CheckBox1, "MARDI", "MERCREDI")
Range("C12") = IIf(Not CheckBox1, "REPOS", "")
End Sub

bon après midi
@+

Edition : bonjour Sourcier

Merci mais j'ai besoin d'avoir le code dans la feuille de calcul comme j'ai fait en pj

 

[sourcier08]

Re : Checkbox

Avec une petite modif.

Private Sub CheckBox1_Click()
CheckBox1.Caption = IIf(CheckBox1, "MARDI", "MERCREDI")
Range("C12") = IIf(CheckBox1, "", "REPOS")
End Sub

Intéressant ce IIF. Je vais m'y intéresser aussi.

Bonjour Pierrot.

 

[Pierrot93]

Re : Checkbox

Re,

ton fichier en retour

 

[mcj1997]

Re : Checkbox

Re,

ton fichier en retour

Merci c'est parfait, par contre en plus de la condition présente (si MERCREDI) je veux ajouter celle ci-desous afin que repos s'affiche si les deux conditions sont remplies :

C16>Feuil2!E18

Ce n'est pas pour ce fichier mais pour un autre que je ne peux mettre en PJ

 

[Pierrot93]

Re : Checkbox

Re,

essaye avec ceci :

=SI(ET(C7=FAUX;C16>Feuil2!E18 );"REPOS";"")

 

[mcj1997]

Re : Checkbox

OK ça marche je vais pouvoir transposer dans mon autre fichier, par contre ou est la formule qui permet de faire apparaite faux en C7 ? merci d'avance,

 

[Pierrot93]

Re : Checkbox

Re,

dans les propriété du "checkbox" dans l'éditeur vba, la propriété "LinkedCell"

 

[mcj1997]

Re : Checkbox

j'ai beau fouiller mais ne trouve pas !

 

[Pierrot93]

Re : Checkbox

Re,

essaye peut être se supprimer le checkbox et de le recréer.. il semblerait qu'il y ait des soucis de conversion...

bonne soirée
@+

 

[mcj1997]

Re : Checkbox

Bonjour,

Savez vous comment ajouter dans votre code VBA la condition suivante : C16>Feuil2!E18
, afin de respecter les deux conditions pour afficher "Repos" .

Merci d'avance,

Private Sub CheckBox1_Click()
CheckBox1.Caption = IIf(CheckBox1, "MARDI", "MERCREDI")
Range("C12") = IIf(CheckBox1, "", "REPOS")
End Sub

 

[Pierrot93]

Re : Checkbox

Bonjour,

peut être comme ceci, non testé...

Range("C12") = IIf(CheckBox1 And (Range("C16").Value > Sheets("Feuil2").Range("E18").Value), "", "REPOS")

bonne joutrnée
@+

 

[mcj1997]

Re : Checkbox

Bonjour,

peut être comme ceci, non testé...

Range("C12") = IIf(CheckBox1 And (Range("C16").Value > Sheets("Feuil2").Range("E18").Value), "", "REPOS")

bonne joutrnée


@+

Bonsoir,

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

Cordialement,