Fenêtre de saisie vers Cellule

phlaurent55

Nous a quittés en 2020

Repose en paix

• 21 Janvier 2013

• #2

Re : Fenêtre de saisie vers Cellule

Bonjour Ilino,

avec ce code

Code:

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

à+
Philippe

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 21 Janvier 2013

• #3

Re : Fenêtre de saisie vers Cellule

Re FORUM
CI JOINT LE CODE

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

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 21 Janvier 2013

• #4

Re : Fenêtre de saisie vers Cellule

phlaurent55 à dit:

Bonjour Ilino,

avec ce code

Code:

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

à+
Philippe

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 22 Janvier 2013

• #5

Re : Fenêtre de saisie vers Cellule

re - bonjour

avec ce code:

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

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 25 Janvier 2013

• #6

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
@+

 

Vote positif 0 Vote négatif