Fenêtre de saisie vers Cellule

[Ilino]

Bonjour Form
ci dessous les étapes ( je pense que ne sont pas compliquées ) de mon souci,

1 Cliquer sur bouton type (CommandButton)
2 Apparaitre un message pour saisir « Veuillez saisir une année pour calculer le montant «…… »
3 Renvoyer l’année saisie a une cellule ex : B1
MERCI

 

[phlaurent55]

Re : Fenêtre de saisie vers Cellule

Bonjour Ilino,

avec ce code

Sub Bouton1_Clic()
[B1] = InputBox("Veuillez saisir une année pour calculer le montant")
End Sub

à+
Philippe

 

[Ilino]

Re : Fenêtre de saisie vers Cellule

Re FORUM
CI JOINT LE CODE

Sub Saisie()
Sheets(Array("Feuill1")).Select
Sheets("Feuill1").Activate
    réponse = InputBox("Valeur ?")
    If réponse <> "" Then Sheets("Feuill2").CELL(B2).Select: ActiveCell.FormulaR1C1 = réponse
End Sub

Meci

 

[Ilino]

Re : Fenêtre de saisie vers Cellule

Bonjour Ilino,

avec ce code

Sub Bouton1_Clic()
[B1] = InputBox("Veuillez saisir une année pour calculer le montant")
End Sub

à+
Philippe

Bonjour PHILIPPE
JE suis désolé je n'ai pas vu ta proposition
merci c'est exactement ce que je cherchais
si tu permet je veux ajouter une condition dans ton code (' les données saisies doivent etre que des NOMBRE de 4 chiffres seulement)
merci

 

[phlaurent55]

Re : Fenêtre de saisie vers Cellule

re - bonjour

avec ce code:

Sub Bouton1_Clic()
saisie:
valeur = InputBox("Veuillez saisir une année pour calculer le montant")
If valeur > 999 And valeur < 10000 Then
[B1] = valeur
Else
MsgBox ("Entrez un nombre à 4 chiffres")
GoTo saisie
End If
End Sub

à+
Philippe

 

[Ilino]

Re : Fenêtre de saisie vers Cellule

Bonjour Forum, Bonjour PHILIPPE
Je suis désolé pour ce retard j'avais des empêchements, en tous les cas merci pour la réponse, c’est exactement ce que je cherchais merci
GRAZIE PHILIPPE
@+