Discussion :

[fred62200]

Bonjour,

j'ai commencé à modifier, mais il doit y avoir des instructions qui ne sont plus valables actuellement :

Sub Macro_Addition()
Set CelluleAdd = CelluleActive
Donnée = InputBox("Entrez la valeur:""Valeur à additionner")
If Donnée <> "" Then
NouvelleValeur = CelluleAdd + Donnée
CelluleAdd.Valeur = NouvelleValeur
End If
End Sub

[Franc]

Salut, essaie plutôt comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro_Addition()
    Dim CelluleAdd As Range
    Dim Donnee As Variant
    Dim NouvelleValeur As Double
 
    Set CelluleAdd = ActiveCell
 
    Donnee = InputBox("Entrez la valeur à additionner :")
 
    If Donnee <> "" Then
        If IsNumeric(Donnee) Then
            NouvelleValeur = CelluleAdd.Value + CDbl(Donnee)
            CelluleAdd.Value = NouvelleValeur
        Else
            MsgBox "Veuillez entrer un nombre valide.", vbExclamation
        End If
    End If
End Sub

[fred62200]

Merci pour ta réponse, Franc, elle est nickel !
Bonne journée à toi.

[laurent_ott]

Bonjour,
On peut aussi utiliser Application.InputBox (et non pas InputBox) avec le Type = 1 qui n'accepte que des numériques, donc plus besoin de contrôler la saisie.
Ce qui donne :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Macro_Addition()
Dim Donnee As Variant
Donnee = Application.InputBox(Prompt:="Entrez la valeur à additionner :", Title:="Saisie d'un nombre", Type:=1)
If Donnee <> False Then ActiveCell.Value = ActiveCell.Value + Donnee
End Sub

https://learn.microsoft.com/fr-fr/of...6)%26rd%3Dtrue

Bonne continuation.

[fred62200]

Merci beaucoup.