Cocher une case à cocher sous condition

[damien.L]

Bonjour,

Voila je cherche comment je peux faire pour cocher une case à cocher qui se trouve sur la feuille 1 lorsque que j'ai la lettre "C" dans mon tableau sur la feuille 2.

J'espère avoir été assez clair, pour compléter je donne un exemple

http://cjoint.com/?ehjMkzSXUE

Merci d'avance

 

[BOISGONTIER]

Re : Cocher une case à cocher sous condition

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
If UCase(Target) = "C" Then Sheets("feuil1").CheckBox1 = True
End If
End Sub

JB

 

[damien.L]

Re : Cocher une case à cocher sous condition

Merci c'est tout à fait ca. Par contre si dans ma case où il doit y avoir normalent mon "C", j'ai une formule qui me renvoie vrai ou faux. Es ce que je peux remplacer le "C" par VRAI OU FAUX ou il y a t'il un truc pour le faire car j'ai essayer et ca ve pas.

Merci

 

[damien.L]

Re : Cocher une case à cocher sous condition

Personne pour me renseigné?😕

Merci

 

[Pierrot93]

Re : Cocher une case à cocher sous condition

Bonjour,

essaye comme ci dessous, si j'ai bien compris :

If UCase(Target) = "C" Or Target.Value = False Then

bon après midi
@+

 

[damien.L]

Re : Cocher une case à cocher sous condition

Non ça ne change rien. J'ai essayer plein de chose mais ça ma rien donné.

 

[Pierrot93]

Re : Cocher une case à cocher sous condition

Re

quelle est la formule utilisée ?

 

[damien.L]

Re : Cocher une case à cocher sous condition

Dans ma case j'utilise cette formule :

"=ET(I2;I3;I4;I5)" qui me dit VRAI ou FAUX suivant mes résultat de mon tableau où I2 à I5 me dit aussi vrai ou faux.Qu'en je le tape manuellement ca marche mais des que ca vient d'une formule ca veux plus.
Je vais te donner un exemple pour que tu comprenne mieux.

Regarde la pièce jointe Case a cocher.xls

 

[Pierrot93]

Re : Cocher une case à cocher sous condition

Re

essaye peut être comme ci dessous, mais attention n'intervient que si la cellule B3 est modifiée directement, si la modification est faite sur une autre cellule, et que la formule placée en b13 y fait référence et est modifié de fait, la procédure ne se déclenchera pas.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$B$3" Then
   Sheets("feuil1").CheckBox1.Value = IIf(UCase(Target) = "C" Or Target.Value = True, True, False)
 End If
End Sub

@+

 

[damien.L]

Re : Cocher une case à cocher sous condition

Non çà ne marche pas!

 

[Pierrot93]

Re : Cocher une case à cocher sous condition

Re

utiliser égaement l'événement calculate :

Private Sub Worksheet_Calculate()
   Sheets("feuil1").CheckBox1.Value = IIf(Range("B13").Value = True, True, False)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$B$3" Then
   Sheets("feuil1").CheckBox1.Value = IIf(UCase(Target) = "C" Or Target.Value = True, True, False)
 End If
End Sub

 

[damien.L]

Re : Cocher une case à cocher sous condition

Desoler je débute, mais a quoi va servir l'événement calculate?

 

[Pierrot93]

Re : Cocher une case à cocher sous condition

Re

il va être déclenché lorsqu'il y aura recalcul, si formule en a2 se basant sur a1, lorsque tu modifies a1, il y a recalcul de A2 donc déclenchement de la procédure.

 

[damien.L]

Re : Cocher une case à cocher sous condition

En faite le truc c'est que en A2,A3,A4,A5 se sont des formules qui non aucun lien entre elle. Seule la formule en A6 à un lien avec A2,A3,A4,A5.

Et je pense que c'est le fait d'avoir une formule dans cette case qui gène car qu'en je tape vrai ou faux sans formule ca fonctionne trés bien.

 

[Pierrot93]

Re : Cocher une case à cocher sous condition

Re

ton fichier en retour, j'ai mis une autre formule en A6....