Discussion :

[CélineM]

Bonjour,
De quelle manière puis je faire saisir une valeur numérique par l'utilisateur de manière à la mettre ensuite dans une cellule???

[mordrhim]

Cherche Input dans

[CélineM]

le problème est qu'il doit me manquer quelque chose...
J'essaie de le convertir en numérique mais je ne sais pas vraiment où???

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
'
' Macro1 Macro
 
'permet à l'utilisateur de saisir la valeur objectif
Dim mavaleur As Variant
 mavaleur = InputBox(prompt:="Saisir la valeur Objectif:", _
Title:="Saisie de données")
'calcul l'objectif pour l'année souhaitée
    ActiveCell.FormulaR1C1 = "=(cdbl(mavaleur)*R[-4]C[1])+R[-4]C[1]"
    Range("F21").Select
End Sub

[tonton fred]

Bonjour,

Selectionne ton code et clique sur # pour le rendre facilement lisible

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
'
' Macro1 Macro
 
'permet à l'utilisateur de saisir la valeur objectif
Dim mavaleur As Double
mavaleur = Cdbl(InputBox(prompt:="Saisir la valeur Objectif:", _
Title:="Saisie de données"))
'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

[mordrhim]

pour tester si c'est une valeur numérique

Code :

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

1
2
3
4
5
6
7
8
9
Ok = False
Do Until Ok
    Mavaleur = InputBox("Saisir la valeur Objectif :", "Saisie de données")
    If IsNumeric(Mavaleur) Then
        Ok = True
    Else
        MsgBox ("Valeur non numérique")
    End If
Loop

pour ta formule tu as une erreur :

Code :

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

ActiveCell.FormulaR1C1 = "=(cdbl(" & Mavaleur & ")*R[-4]C[1])+R[-4]C[1]"

apres ton cdbl, je sais pas ce que ca fait ^^