Faire repter une action une certain nombre de fois

bonjour,

je voudrais savoir s'il est possible de faire un loop un certain nombre de fois

par exemple :

je demande a l'utilisateur combien avec combien de personne il est sortie

dim nb as interger
nb=inputbox("avec comibien de personne vous etes sortie?")

et je voudrais faire un loop pr demander le prénom des personne avec qui il est sortie,

du coup ca ferais un loop "nb" de fois.

du coup si nb = 10 qua question "avec qui vous êtes sortie" vas se répéter 10 fois, si nb=5 la question va se répéter 5 fois...

est ce que c'est possible de faire ca?

et finalement je voudrais enregistre le prénom des personne dans des variables c'est possible de faire ça?

merci de m'avoir lu

Bonjour hari,

Oui c'est possible avec une boucle " While"

Sub test()
Dim nb
Dim i As Integer
nb = InputBox("avec comibien de personne vous etes sortie?")
i = 1

While CInt(nb) <> 0
    MsgBox " vous etes sortie avec " & i & " personnes"
    i = i + 1: nb = CInt(nb) - 1
Wend
End Sub

Pardon, j'ai répondu qu'à la moitié de ta demande, voici le reste:

Sub test()
Dim nb
Dim Lst()
Dim i As Integer
nb = InputBox("avec comibien de personne vous etes sortie?")

i = 1

While CInt(nb) <> 0
    ReDim Preserve Lst(1 To i)
    Lst(i) = InputBox("indiquer le Prénom?")
    i = i + 1: nb = CInt(nb) - 1
Wend

Sheets("Feuil1").Range("A1").Resize(UBound(Lst, 1)) = Application.Transpose(Lst)
End Sub

salut, merci de te repense rapide mais tu peut m'expliquer ce que tu fait s'il te plait?

car comme je suis débutant je comprend pas trop ce que tu fait enfaite ^^'