Discussion :

[CélineM]

Bonjour,
j'essaie de récupérer dans une cellule la valeur que je demande à l'utilisateur de saisir mais j'ai certainement un petit problème de code
Pouvez vous m'aider ???
Merci

Code :

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

1
2
3
4
5
6
7
Sub Macro1()
Dim mavaleur As Range
Set mavaleur = Application.InputBox(prompt:="Saisir la valeur Objectif:", Title:="Saisie de données", Left:=3, Top:=-80)
'calcul l'objectif pour l'année souhaitée
    ActiveCell.FormulaR1C1 = "=(mavaleur*R[-4]C[1])+R[-4]C[1]"
    Range("F21").Select
End Sub

[ouskel'n'or]

Code :

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

1
2
Set mavaleur = Application.InputBox(prompt:="Saisir la valeur Objectif:", _
Title:="Saisie de données", Left:=3, Top:=-80, Type:=8)

comme ça, ça ira mieux