Macro pour augmenter des quantités

Bonjour,

J'ai un tableau avec des quantités et je souhaiterais utiliser une icône "+" (à laquelle la macro est affectée) pour que lorsque que je clique dessus cela me fait augmenter la quantité de 1 en 1.

Merci de votre aide !

Bonjour cla34000

Le code peut être celui-ci

' Si la colonne à modifier est A
Sub AjtQt()
  Dim LigSel as Long
  LigSel = Selection.Row
  Range("A" & LigSel).Value =   Range("A" & LigSel).Value + 1
End Sub

Ensuite il suffit d'insérer une image ou une forme liée à ce code

@+

Bonjour merci beaucoup pour votre réponse ! Est-ce possible de limiter l'augmentation jusqu'à 10?

Merci encore!!!!!

Re,

Oui bien sur, il faut tester la quantité de la cellule

' Si la colonne à modifier est A
Sub AjtQt()
  Dim LigSel as Long
  LigSel = Selection.Row
  If Range("A" & LigSel).Value <10 then
    Range("A" & LigSel).Value =   Range("A" & LigSel).Value + 1
  Else
    MsgBox "Quantité maximum atteinte"
  End If
End Sub

@+

ça fonctionne du feu de dieu je ne sais comment vous remercier ! c'est pour un examen donc c'était vraiment important merci encore !!

Si jamais vous êtes encore disponible, savez-vous comment je peux affecter cette macro à la case E9 de ma feuille nommée "portfolio" ?

Bonne soirée en tout cas et merci merci encore

Re,

Comment me remercier... et bien... en cette fin d'année une bonne petite bouteille

Voici le code pour la cellule E9

' Pour la cellule E9
Sub AjtQt()
  Dim Cel As Range
  ' Définir la cellule
  Set Cel = Sheets("Portfolio").Range("E9")
  ' Tester la quantité
  If Cel.Value < 10 Then
    Cel.Value = Cel.Value + 1
  Else
    MsgBox "Quantité maximum atteinte"
  End If
End Sub

@+

oh la la la merci merci merci merci !!!! Pleins de bonnes choses pour vous pour cette fin d'année