Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
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" a écrit dans le message de news: 4afed37d$0$916$ 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,
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
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" a écrit dans le message de news: 4afed37d$0$916$ 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
Daniel.C
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.
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
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
LE TROLL
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
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
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
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
PST
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
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
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