Comment boucler InputBox

[Temjeh]

Bonjour et merci

Je cherche a bouclé plusieurs InputBox sur Range:

b = InputBox(prompt:="Entrez l'adresse", Title:="New")
c = InputBox(prompt:="Entrez l'appartement", Title:="New")
d = InputBox(prompt:="Entrez la rue", Title:="New")
e = InputBox(prompt:="Entrez la note", Title:="New")
...Etc

For i = 1 to 4
Range ("A" & i) = input ..?
Next i

J'aimerais juste la facon de faire
Merci

Temjeh

A++

PS ...pas tres urgent je reviens plus tard

 

[Excel-lent]

Re : Comment boucler InputBox

Bonsoir Temjeh,

Si dans un coin de ton fichier tu as listé tes messages!

Par exemple en :
Z1 -> "l'adresse"
Z2 -> "l'appartement"
Z3 -> "la rue"
Z4 -> "la note"
Z5 -> ...

For i = 1 to 4
   Range ("A" & i) = InputBox(prompt:="Entrez " & Range("Z" & i), Title:="New")
Next i

Le code ci-dessus pourrais peut-être fonctionner? A tester!

Tiens nous au courant.

Bonne soirée

 

[Papou-net]

Re : Comment boucler InputBox

Bonsoir Temjeh, Excel-lent,

En utlisant des tableaux de variables :

Ex :

Dim message(4) As String
Dim titre(4) As String
message(1) = "Entrez l'adresse"
titre(1) = "New"
message(2) = "Entrez l'appartement"
titre(2) = "New"
message(3) = "Entrez la rue"
titre(4) = "New"
message(4) = "Entrez la note"
titre(2) = "New"

For i = 1 To 4
Range("A" & i) = InputBox(message(i), titre(i))
Next i
End Sub

Si le titre est toujours le même, tu peux remplacer sa variable indicée par son texte.

Espérant avoir aidé.

Cordialement.

 

[Excel-lent]

Re : Comment boucler InputBox

Salut Temjeh,

Je n'ai pas pu attendre que tu le test alors je l'ai fais!

Surtout qu'en plus les trucs en bleu dans ton code ont attiré ma curiosité, car je met jamais cela est ça fonctionne très bien!

Sub test()

For i = 1 To 4
   Range("A" & i) = InputBox([COLOR="Blue"]prompt:=[/COLOR]"Entrez " & Range("Z" & i), [COLOR="Blue"]Title:=[/COLOR]"New")
Next i

Donc j'ai testé les deux codes suivants :
->Premier code :

Sub test()

For i = 1 To 4
   Range("A" & i) = InputBox(prompt:="Entrez " & Range("Z" & i), Title:="New")
Next i

End Sub

->Second code :

Sub test()

For i = 1 To 4
   Range("A" & i) = InputBox("Entrez " & Range("Z" & i), "New")
Next i

End Sub

Et bien... (roulement de tambour)... les deux fonctionnent très bien!

Bon' ap'

Edition : bonsoir Papou-net

 

[Temjeh]

Re : Comment boucler InputBox

Merci beaucoup pour vos réponses

Je pige un peu partout.

Pour Excel-lent je pige avec la vaviable en cellule

Merci aussi Papou-net avec une solution direct sans tampon en Range


Good

A++

Si c'a interesse je me suis fait ceci:

a = 1
b = 1
For Each I In Array("-1", "0", "1", "2", "6")
        For Each J In Array("Msg1", "Msg2", "Msg3", "Msg4", "Msg5")
		If a <> b Then b = b + 1: GoTo suiv
		ActiveCell.Offset(0, I) = InputBox(J, Title:="New")
		b = 1
		Exit For
suiv:
        Next J  
a = a + 1
Next I

C'est plus pratique si il y en a beaucoup sinon:

ActiveCell.Offset(0, -1) = InputBox(prompt:="Entrer l'adresse", Title:="New")
ActiveCell.Offset(0, 0) = InputBox(prompt:="Entrer l'appt", Title:="New")
ActiveCell.Offset(0, 1) = InputBox(prompt:="Entrer le nom de la rue", Title:="New")
...etc


Temjeh