Bouton pour réaliser un calcul, sous condition

[barbot]

Bonjour tout le monde,

J'ai une petite problématique et je n'arrive pas à la résoudre, alors j'espère que vous allez pouvoir m'aider.

J'ai des valeurs en colonne B que je souhaite ajouter aux valeurs de la colonne A en cliquant sur un bouton (Ex : A2=10 et B2=21, quand je clic sur le bouton A2=31) et seulement si en C j'ai sélectionné une donnée (ex : liste déroulante avec oui/non). Le tout sur plusieurs lignes.

Je ne sais pas si je me fais bien comprendre alors je laisse un fichier d'exemple.

Merci d'avance pour votre aide.

 

[Robert]

Re : Bouton pour réaliser un calcul, sous condition

Bonjour barbot, bonjour le forum,

je te propose la macro suivante :

Private Sub CommandButton1_Click()
Dim cel As Range 'déclare la variable cel
 
For Each cel In Range("D2:D" & Range("A65536").End(xlUp).Row) 'boucle sur toutes les cellules éditées de la colonne D
    'si la valeur de la cellule est 1 additionne A et B de la liggne correspondante
    If cel.Value = 1 Then cel.Offset(0, -3).Value = cel.Offset(0, -3) + cel.Offset(0, -2)
Next cel 'prochaine cellule de la ligne
End Sub

 

[Guest]

Re : Bouton pour réaliser un calcul, sous condition

Bonjour barbot, Robert,

Puisque c'est fait, voici une autre version.

double-click dans les cellules de C2:C30 pour afficher "Oui" ou ""

Le bouton validation ajoute A à B pour les cellules ayant Oui en C.

A+

 

[barbot]

Re : Bouton pour réaliser un calcul, sous condition

Super !! c'est parfait ! merci beaucoup 🙂