Lancer plusieurs la même procedure

Bonjour,

Une façon parmi........
'------------------
Sub JJ()
Dim i As Integer
For i = 1 To 10
Call MaProcedure(i)
Next
End Sub
'----------------------
Sub MaProcedure(MaVariable)
MsgBox "Ma variable par pour valeur: " & MaVariable
End Sub
'----------------------

--
Salutations
JJ


"PST" <pgjignorez@wanadoo.fr> a écrit dans le message de news:
4afed37d$0$916$ba4acef3@news.orange.fr...
Bonjour

Comment lancer la même procédure plusieurs fois en changeant la valeur
de test l'intérieur qui peut aller de 1 a 10



Procedure()

test


end sub()

merci

Bonjour.

Essaie :

Sub LancerProcedure()
For i = 1 To 10
Procedure i
Next i
End Sub

Sub Procedure(Param)
test = Param
MsgBox test
End Sub

Cordialement.
Daniel

Bonjour

Comment lancer la même procédure plusieurs fois en changeant la valeur de
test l'intérieur qui peut aller de 1 a 10



Procedure()

test


end sub()

merci

Bonjour,

Si je comprends bien la question, utilise une boucle.
Par exemple :

Sub essai()
Dim i&
For i = 1 To 10
MsgBox "Essai n° " & i
Next i
End Sub

Si j'ai mal compris, relance.

FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

PST a écrit :

Bonjour

Comment lancer la même procédure plusieurs fois en changeant la valeur
de test l'intérieur qui peut aller de 1 a 10



Procedure()

test


end sub()

merci

Bonsoir,

Avec une procédure (plus simple), on prend :

Une variable extérieur à cette dernière, donc globale à la feuille

dim varX

Puis on crée la procédure d'appel, par exemple un bouton :

sub command1_click()
dim i as long
for i = 1 to 10
varX = i
Call Proc appel
msgbox varX
' et i qui évolue dans l'autre procédure va revenir ici changé :o)
next i
end sub

Puis on crée une procédure appelée :

sub appel()
varX = varX * 2
end sub


Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"FS" <fs@news.group> a écrit dans le message de
news:%23ql6tcUZKHA.1640@TK2MSFTNGP06.phx.gbl...

Bonjour,

Si je comprends bien la question, utilise une boucle.
Par exemple :

Sub essai()
Dim i&
For i = 1 To 10
MsgBox "Essai n° " & i
Next i
End Sub

Si j'ai mal compris, relance.

FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

PST a écrit :

Bonjour

Comment lancer la même procédure plusieurs fois en changeant la valeur de
test l'intérieur qui peut aller de 1 a 10



Procedure()

test


end sub()

merci

merci

je vais essayer

LE TROLL a écrit :

Bonsoir,

Avec une procédure (plus simple), on prend :

Une variable extérieur à cette dernière, donc globale à la feui lle

dim varX

Puis on crée la procédure d'appel, par exemple un bouton :

sub command1_click()
dim i as long
for i = 1 to 10
varX = i
Call Proc appel
msgbox varX
' et i qui évolue dans l'autre procédure va revenir ici changé :o)
next i
end sub

Puis on crée une procédure appelée :

sub appel()
varX = varX * 2
end sub


Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"FS" <fs@news.group> a écrit dans le message de
news:%23ql6tcUZKHA.1640@TK2MSFTNGP06.phx.gbl...

Bonjour,

Si je comprends bien la question, utilise une boucle.
Par exemple :

Sub essai()
Dim i&
For i = 1 To 10
MsgBox "Essai n° " & i
Next i
End Sub

Si j'ai mal compris, relance.

FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

PST a écrit :

Bonjour

Comment lancer la même procédure plusieurs fois en changeant la
valeur de test l'intérieur qui peut aller de 1 a 10



Procedure()

test=10


end sub()

merci