inputbox dans une boucle

[bbobb]

Bonjour le Forum,
Je suis nul en boucle ! Dessous le code pour remplir la cellule A2 par inputbox. Je vroudrais faire une boucle pour que l'inputbox revienne pour remplir les cellules A3, A4, A5, etc... jusqu'à ce que l'utilisateur clique sur "oui".

Merci d'avance pour votre aide.
Bbobb

Sub test()
Dim Rep As Integer
2 Info = InputBox("Saisissez l'info suivante", "")
If Info = "" Then
Rep = MsgBox("Vous n'avez pas saisi d'info, avez-vous terminé", vbYesNoCancel, "")
If Rep = vbYes Then GoTo 1
If Rep = vbNo Then GoTo 2
If Rep = vbCancel Then GoTo 1

Else
Range("a2").Value = (Immat)
End If
1
End Sub

 

[Pierrot93]

Re : inputbox dans une boucle

Bonjour,

regarde peut être ceci, boucle sur les 3 premières cellules de la colonne A :

Dim i As Byte, t As Variant
For i = 1 To 3
    Do While Cells(i, 1) = ""
        t = Application.InputBox("quoi saisir en : A" & i)
        If VarType(t) = vbBoolean Then Exit Do Else Cells(i, 1) = t
    Loop
Next i

bonne journée
@+

 

[bbobb]

Re : inputbox dans une boucle

Bonsoir à tous, bonsoir Pierrot
J'ai du mal m'exprimer car ta propostion ne m'aide pas : je ne retrouve pas les infos saisi dans l'input box...

Entre temps j'ai trouver ça, qui marche :
2 lig_info = 4
Do
lig_info = lig_info + 1
Loop Until Cells(lig_info, 2) = ""
Info = inputbox("Saisissez l'info suivante", "")
If Info = "" Then
Rep = MsgBox("Vous n'avez pas saisi d'info, avez-vous terminé", vbYesNoCancel, "")
If Rep = vbYes Then GoTo 1
If Rep = vbNo Then GoTo 2
If Rep = vbCancel Then GoTo 1
Else
Cells(lig_info, 2).Value = (Info)
GoTo 7
End If
1

Merci encore Pierrot et le forum
Bonne soirée
Bbobb

 

[Pierrot93]

Re : inputbox dans une boucle

Bonjour,

J'ai du mal m'exprimer car ta propostion ne m'aide pas : je ne retrouve pas les infos saisi dans l'input box...

bah... fonctionne chez moi en l'état, code placé dans un module standard....

bonne journée
@+