Discussion :

[Kalphyre]

Bonjour

Je suis novice en VBA et j'aimerai appeler un UserForm dans une boucle "For". A vrai dire, j'appelle une fonction dans ma boucle, et cette fonction apelle un nouvel UserForm
Mon code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For i = 1 to 10
Call Fonction1()
Next i
 
Private Sub Fils()
UserForm3.hide
UserForm4.show
End Sub

Merci d'avance !

[legethi]

Bonsoir Kalphyre,

Je ne suis pas un expert non plus mais plutot un novice qui apprend avec l'aide des différents forum.
Dans votre cas je pense que le mieux est de créer un nouveau module qui contiendras le code de la fonction à appeler dans la boucle.
Ensuite dans la boucle il faudrais faire la chose suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For i = 1 to 10
call fils ou alors fils sans le call devant.
Next i

Pour le module il faut le déterminer de la manière suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Function Fils()
UserForm3.hide
UserForm4.show
End Sub

Maintenant par rapport a ou poser les questions, il suffit simplement de creer dans le bon groupe de forum une nouvelle discussion, le bouton se trouve en haut ou en bas à gauche. On ne pose pas une question dans une discussion traitant d'un autre sujet.


Cordialement
Thibaut

[Theze]

Bonjour,

Une fonction retourne une valeur ou un tableau de valeurs mais n'est pas utilisée pour effectuer des actions. Pour ça, il faut utiliser une sub (procédure) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub Test()
 
    Dim I As Integer
 
    For I = 1 To 10
 
        If UserForm1.Visible = False Then Ouvrir
        '...
 
    Next I
 
End Sub
 
Sub Ouvrir()
 
    UserForm1.Show
 
End Sub

Hervé.