inputbox

[pompom]

bonjour a tous.

probleme avec inputbox

dans excel en (vba) je créer la commande inputbox tout va bien


mais ou va la reponse
et

comment la faire entrer dans une cellule

exempe:
Private Sub CommandButton1_Click()
Range('a7').Select
Dim Message, Title, Default, MyValue
' Définit le message.
Message = 'Entrez une valeur comprise entre 1 et 3'
Title = 'Démonstration de InputBox' ' Définit le titre.
Default = '1' ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
MyValue = InputBox(Message, Title, Default)

End Sub

Message édité par: pompom, à: 03/07/2005 13:29

 

[MichelXld]

bonjour

j'espere que cet exemple pourra t'aider

Sub gestionInputBox()
Dim Reponse As String

Reponse = InputBox('saisir une donnée', 'Le titre', 'XXX')
If Reponse = '' Then Exit Sub
Range('A1') = Reponse
End Sub


bon apres midi
MichelXld

Message édité par: MichelXld, à: 03/07/2005 13:35

 

[pompom]

merci sa marche tres bien

 

[pompom]

Merci sa marche bien

 

[guillaume]

inputbox avec plusieurs entrees

Bonjour,
j aimerais faire une input box et avoir plusieurs valeurs de variables a renseigner. Comment faire??

Merci,
guillaume

 

[Hervé]

Re:inputbox avec plusieurs entrees

Bonjour tout le monde,

Une seule inputbox pour plusieurs valeurs à renseigner me parait peu commode, j'utiliserai plutot autant d'inputbox que de variables, ou meme mieux un userform.

Sinon ce type de code devrait te convenir :

Sub Bouton1_QuandClic()
Dim i As Byte
Dim cellule As Range
Dim t As String, réponse As String

For i = 1 To 3
    Select Case i
        Case 1: t = 'Quel nom ?'
                Set cellule = Range('a1')
        Case 2: t = 'Quel prénom ?'
                Set cellule = Range('a2')
        Case 3: t = 'Quel age ?'
                Set cellule = Range('a3')
    End Select
   
    'si tu veux forcer l'utilisateur à répondre utilise les 2 lignes passées en commentaires
    'Do While reponse = ''
        reponse = InputBox(t, 'Demande')
        cellule = reponse
    'Loop
    reponse = ''
Next i
End Sub

Salut