Sujet Précédent Sujet Suivant

VBA - Appeler un bloque de codes

Fermé
Peon33 - 18 déc. 2013 à 10:08
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 18 déc. 2013 à 10:28
Bonjour à toutes et à tous,

Je cherche à appeler un bloque de codes dans ma macros afin de répéter plusieurs fois ces lignes de code.
Pour cela, il me semblait qu'il était possible de leur donner un nom mais je n'arrive pas à retrouver d'exemple la dessus...

c'est de la forme :

Sub Macro1()

....code...

Fonction1 : 'mon bloque de code à pour nom "Fonction1"
...code...
...code...
...code...

Et le but étant de pouvoir appeler Fonction1 pour répéter les lignes de code du genre :

...code...
...code...
Fonction1 'les lignes de code de Fonction1 s'exécutent
...code... ' le prgm continue


Merci d'avance pour tout aide :)
A voir également:

1 réponse

Réponse 1 / 1
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
Modifié par Polux31 le 18/12/2013 à 10:29
Bonjour,

Ce n'est pas très clair mais peut être que ceci répond à la question: 

sub Macro1
Dim pVar1 As Integer
Dim pVar2 As Integer
Dim res1 As Integer
Dim res2 As Integer

pVar1 = 25
pVar2 = 5

    res1 = maFonction1(pVar1, pVar2)

    MaProc1
    '.....
    res2 = maFonction2(pVar1, res1)
    '....

    maProc2
    '....
    End Sub

Private Function maFonction1(Byval var1 As Integer, Byval var2 As Integer)
     maFonction1 = var1 + var2
End Function

Private Function maFonction2(Byval var1 As Integer, Byval var2 As Integer)
     maFonction2 = var1 * var2
End Function

Public Sub maProc1()
'...
Sub

Public Sub maProc2()
'...
Sub



«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
0