Incrémentation Excel

bonjour, je souhaiterais créer une macro reliée à un bouton qui me permettrait d'augmenter de +1 la valeur dans la case E9 de ma feuille nommée "Portfolio".

La valeur doit être comprise entre 0 et maximum 10

En vous remerciant je n'y arrive pas ...

Bonjour cla34000

Une proposition, à placer dans un module standard. Il te restera plus qu'à affecter la macro à un bouton

Sub Incrementation()
Dim MaFeuille As Worksheet
Dim MaCellule As Range
Dim MaValeur As Long
Dim Incrementation As Long, Min As Long, Max As Long, Resultat As Long

    Set MaFeuille = ThisWorkbook.Worksheets("Feuil1") 'A ajuster : feuille où executer la macro
    Set MaCellule = MaFeuille.Range("E9") 'A ajuster : cellule où executer la macro
    Incrementation = 1 'A ajuster : valeur d'incrémentation
    Min = 0
    Max = 10 'A ajsuter : valeur maximale à ne pas dépasser

    If Not IsNumeric(MaCellule.Value) Then
        MsgBox "Veuillez saisir une valeur numérique dans la cellule " & MaCellule.Address & ".", vbExclamation, "Erreur"
        Exit Sub
    End If
    MaValeur = MaCellule.Value
    If MaCellule < 0 Then
        MsgBox "La valleur de la cellule " & MaCellule.Address & " doit-être minimum égale à " & Min & ".", vbExclamation, "Limite atteinte"
        Exit Sub
    End If

    Resultat = MaCellule + Incrementation

    If Resultat <= Max Then
        MaCellule = MaValeur + Incrementation
    Else
        MsgBox "Limite de " & Max & " atteinte.", vbExclamation, "Limite atteinte"
    End If

End Sub