Remplacer la valeur d'une cellule si Checkbox = True

[nougitch]

Bonjour,

J'ai une cellule (enn jaune) dans laquelle on peut saisir un montant manuellement.
J'ai un autre cellule (en bleu) avec une valeur par défaut (souvent utilisé mais pas dans tous les cas).

J'aimerais utiliser la Checkbox situé à côté de la cellule jaune de manière à ce que si elle est cochée, la cellule jaune prend la valeur par défaut, c'est à dire celle de la cellule bleue.

Je vous joins un fichier.

Merci par avanc pour votre aide.

Cdt,

 

[JHA]

Re : Remplacer la valeur d'une cellule si Checkbox = True

Bonjour nougitch, le forum,

Pour cela il te faut lier la case à cocher à une cellule (clic droit puis format de controle).

JHA

 

[nougitch]

Re : Remplacer la valeur d'une cellule si Checkbox = True

Salut JHA,

Merci pour ton aide.
J'ai du mal expliquer.
J'aimerais avoir 2 possibilités :
- saisir une valeur en B2 manuellement;
- cocher la Checkbox pour que la cellule B2 prenne la valeur de la cellule G2.

Merci par avance pour votre aide.

Cdt,

 

[Hulk]

Re : Remplacer la valeur d'une cellule si Checkbox = True

Hello,

Pour ça, utilises plutôt des CheckBox de la boîte formulaire...

Vois le fichier joint.

Cdt, Hulk.

 

[nougitch]

Re : Remplacer la valeur d'une cellule si Checkbox = True

Merci beaucoup Hulk, c'est parfait !

 

[nougitch]

Re : Remplacer la valeur d'une cellule si Checkbox = True

Bonjour,

J'ai un autre petite question.
Comment puis-je faire pour que si la Checkbox = True, lorsque je saisi quelque chose en B2, la couleur de la cellule repasse au jaune et la Checkbox = False.

Je vous joint l'exemple.

Merci par avance pour votre.

Cdt,

 

[Hulk]

Re : Remplacer la valeur d'une cellule si Checkbox = True

Hello Forum, nougitch, JHA,

Eh non tu ne peux pas.. enfin oui, mais ça coincera avec la CheckBox.

Exemple :

Mets ça dans le code de la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Application.Intersect(Target, [B2]) Is Nothing Then
        CheckBox1 = False
        Target.Interior.ColorIndex = 36
    End If

End Sub

Ben tu vas voir que ce code ne sert à rien car la CheckBox sera inutile !

Non non si tu veux saisir quelque chose et mettre la CheckBox False, tu dois d'abord mettre la CheckBox à False et ensuite saisir manuellement... Peut pas tout faire quand même Excel, à moins qu'un génie trouve une solution.

Cdt, Hulk.

 

[nougitch]

Re : Remplacer la valeur d'une cellule si Checkbox = True

Merci pour tes explications Hulk ! C'est parfait 😉

 

[Lii]

Re : Remplacer la valeur d'une cellule si Checkbox = True

Salut,

je suis déjà intervenu pour donner mon point de vue sur « Application.EnableEvents ».
Je pense qu’il n’est pas inutile que je le rappelle.
Plutôt que de l’exclure radicalement parce que dangereux, il vaut mieux en appréhender le fonctionnement.
Quand il est bien compris, on apprend à gérer d’autres évènements à l’aide de «variable Booléenne ».
Le fichier joint permet de contrôler une case à cocher.