Garder la même valeur d'une variable d'une procédure à l'autreRésolu

Question

Bonjour à tous ! J'aimerai savoir comment garder la même valeur pour la variable a de la procédure pacheve à la procédure nomhier4 svp. ( on prend par exemple la valeur a 5 pour pacheve, j'aimerai que la valeur dans nomhier4 soit 5 également ) Merci beaucoup !

Public Sub pacheve() 'Déclaration des variables Dim i As Integer Static a As Integer Dim t As Task Dim Tab1() As String ReDim Tab1(10000) Dim c As Range 'Initialisation des variables i = 1 For Each t In ActiveProject.Tasks If t.OutlineLevel = 1 Then Tab1(i) = t.PercentComplete ActiveSheet.Cells(a, 3).Value = Tab1(i) i = i + 1 a = a + 1 End If Next t End Sub

Sub nomhier4() 'Déclaration des variables Dim l As Integer Dim t As Task Dim Tab4() As String ReDim Tab4(100000) Dim c As Range 'Initialisation des variables l = 1 For Each t In ActiveProject.Tasks If t.OutlineLevel = 4 Then Tab4(l) = t.Name ActiveSheet.Cells(a, 2).Value = Tab4(l) l = l + 1 a = a + 1 End If Next t End Sub

mortalino · Accepted Answer

Salut,

Les variables d&#233;clar&#233;es &#224; l'aide de l'instruction Static conservent leur valeur pendant toute la dur&#233;e de l'ex&#233;cution du code.

Pour r&#233;cup&#233;rer une variable dans tout le projet, tout en haut du code du Module ou du UserForm, (dans les d&#233;clarations), d&#233;clare ta variable avec Public

Public a As Integer

Comme &#231;a, tu peux la r&#233;cup&#233;rer dans une autre proc&#233;dure

@ ++

  Mortalino

Tobi26 · Answer

Merci beaucoup pour le tuyau :-) @+ !

Renfield · Answer

Ajoutes Option Explicit en haut de ton code, ca aurais empech&#233; VB de te laisser lancer ton code avec ta vriable a, finallement non d&#233;finie dans nomhier4

Renfield
Admin CodeS-SourceS - MVP Visual Basic

mortalino · Answer

En VBA (VB je sais pas)

Il y a aussi possibilit&#233; de la mettre dans les options de VB, "forcer les d&#233;clarations de variables"
Il est vrai que c'est mieux de tout d&#233;clarer (moins lourd en octets et type ad&#233;quat a tes besoins)

  Mortalino

Tobi26 · Answer

Merci &#233;galement pour le conseil !

Garder la même valeur d'une variable d'une procédure à l'autre

5 réponses

Discussions similaires