macro boucles

[stef784]

bonjour,

on me demande:

écrire un programme qui demande un prénom à l'utilisateur et qui affiche "bonjour prénom" , ce autant de fois qu'il y a déleves dans la salle


je vois pas trop comment faire ici ?

 

[skoobi]

Re : macro boucles

Bonjour,

Avec VBA on peut faire plein de chose mais pas détecter le nombre de personne dans une salle, si tu vois ce que je veux dire...

 

[gilbert_RGI]

Re : macro boucles

Bonjour

Comme ceci

Salutations

RGI

 

[Cousinhub]

Re : macro boucles

Re-

peut-être :

x = InputBox("Entrez le nombre d'élèves")
For i = 1 To x
    nom = InputBox("Entrez le nom de l'élève")
    MsgBox "Bonjour " & nom
Next i

 

[gilbert_RGI]

Re : macro boucles

oups petite erreur

Sub test()
For i = Range("A65536").End(xlUp).Row To 2 Step -1
MsgBox "Bonjour " & Cells(i, 1).Value
Next
End Sub

Private Sub CommandButton1_Click()
test
End Sub

c'est bien un 5 qu'il faut mettre

 

[stef784]

Re : macro boucles

A ui très bien merci,

j'ai un autre petit souçi, on me demande :

Ecrire un programme qui affiche les N (donné par l'utilisateur) premières puissances du nombre x (également donné par l'utilisateur)

Mais je bloque aussi,
ca doit commencé par :

Sub macro()
x = InputBox("Entrez un nombre")
For i = 1 To x

? mais après ...

 

[gilbert_RGI]

Re : macro boucles

A ui très bien merci,

j'ai un autre petit souçi, on me demande :

Ecrire un programme qui affiche les N (donné par l'utilisateur) premières puissances du nombre x (également donné par l'utilisateur)

Mais je bloque aussi,
ca doit commencé par :

Sub macro()
x = InputBox("Entrez un nombre")
For i = 1 To x

? mais après ...

comme ça

Sub macro()
    Dim x As Long
    x = InputBox("Entrez un nombre")
    For i = 1 To x
        Z = i ^ i
        MsgBox Z
    Next
End Sub

Salutations

RGI

 

[stef784]

Re : macro boucles

Merci

et une derniere petite question , désolée:$

On me demande : ecrire un programme qui effectue des lancés successifs d'un dé (affichage d'un nombre aléatoire entre 1 et 6)
Les lancés sont arrétés dès que le nombre 6 apparait.

ça commence par :

Sub macro()
Dim x As Integer
x = Int((Rnd() * 6) + 1)

mais après il faut utiliser "do" ou "for" ?

 

[stef784]

Re : macro boucles

Mais je les trouve pas c'est sur le site de paris X nan ?