case a cocher

[caro7575]

Bonjour à tous,
j'ai une case à cocher pour la TVA (19,6%). J'aimerai que si je coche cette case, le montant de la TVA se calcule. j'essaie de trouver le code VBA correspondant mais je crois avoir un problème de déclaration de la variable. comment déclarer ma variable TVA?
mon calcul ensuite est plus que simple puisque je veux faire cellule A32*TVA
Merci de votre aide

 

[jtitin]

Re : case a cocher

bonjour caro7575

ci joint un petit fichier case à cocher
il faut définir la cellule liéé à ta case a cochée

 

[Simons]

Re : case a cocher

Bonjour Caro,

tu peux faire comme ca :

Private Sub CheckBox7_Click()
If CheckBox7.Value = True Then
Range("A31") = "0,196" * Range("A32")
End If
If CheckBox7.Value = False Then
Range("A31") = ""
End If
End Sub

Tu aura en A31 le montant de ta TVA.

Voici aussi une autre macro pour la mise a jour automatique de la valeur de ta TVA :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("K28")) Is Nothing Then
If Target.Value <> "" Then
Call CheckBox7_Click
End If
End If
End Sub



Bon courage

 

[Simons]

Re : case a cocher

J'ai créé et testé ma macro avec CheckBox7 mais si tu n'as qu'un seul Checkbox tu dois renommer Checkbox7 en Checkbox1 bien sur...

 

[caro7575]

Re : case a cocher

Merci à tous pour vos réponses très utiles. ce forum est vraiment excellent!
Encore merci