VBA - Appeler un bloque de codes

Question

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 :)

Polux31 · Answer

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

VBA - Appeler un bloque de codes

1 réponse

Discussions similaires

Newsletters