Bouton de commande propre à chaque ligne

Bonjour,

Voilà mon problème :

J'ai un tableau avec une centaine de lignes. Sur chaque ligne, il y a un commandbutton qui peut permettre soit d'augmenter la valeur de la cellule D4 ou diminuer la valeur de la cellule D4. J'ai copié collé les boutons afin que sur chaque ligne je puisse augmenter ou diminuer la valeur de la cellule concernée :

par exemple en ligne 6, je veux que mon bouton de commande change la valeur de la cellule D6. Sauf que quand je copie - colle les boutons, si je clique sur le bouton en D6, ça ne change pas la valeur de la cellule D6 mais celle de la cellule D4 ( mon code est le suivant :

Range("d4").Value = Range("d4").Value + 1

en gros il faudrait un code qui change tout seul à chaque ligne : pour la ligne X on aurait :

Range (ligne X ).value = range ( DX). value + 1

Je ne pense pas être très clair...

JE joins le fichier.

Merci d'avance

Bonjour,

Si c'est clair.

Pour moi je pense qu'il faut que tu copie ton code pour chaque bouton en changeant "D4" par "D6" et ainsi de suite.

Bon courage

RE;

Sa peut être une solution

Ecrit sa à la place de ton code;

Sub ajouter()
On Error Resume Next
ActiveCell.Value = ActiveCell.Value + 1
End Sub

Sub moins()
On Error Resume Next
ActiveCell.Value = ActiveCell.Value - 1
End Sub

Sa marche sauf qu'il faut sélectionner la cellule avant

merci mais j'ai trouvé la solution.

Et en fait le but n'est pas de recopier à chaque fois, car faire celà pour 100 lignes, j'y passerai la journée.

Merci d'avoir pris du temps pour répondre !