Variable conservé d'une macro à l'autre?

R

Raja

XLDnaute Accro

• 12 Juin 2008

• #2

Re : Variable conservé d'une macro à l'autre?

Bonjour,

Une des solutions :

Code:

Sub Coucou()

Dim ColonneActive As Integer

ColonneActive = 5
Coucou2(ColonneActive)
...
End sub

Sub Coucou2(Colonne As Integer)

Cells(4, Colonne).Select
Selection.Copy
...
End sub

 

Vote positif 0 Vote négatif

P

Pyrof

XLDnaute Occasionnel

• 12 Juin 2008

• #3

Re : Variable conservé d'une macro à l'autre?

Bonjour,

Il faut déclarer ta variable en global



Global ma_var

Sub toto1()
ma_var = "J'ai de la mémoire"
End Sub

Sub toto2()
MsgBox ma_var
End Sub

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 12 Juin 2008

• #4

Re : Variable conservé d'une macro à l'autre?

Bonjour tous le monde,

Place ceci en tout début de code, avant les macros :

Code:

Public ColonneActive As Integer

Sinon regarde ce lien qui pointe sur le site de Didier (myDearfriend!)
Ici
Cela traite de la déclaration et de la portée des variables.

A+

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 12 Juin 2008

• #5

Re : Variable conservé d'une macro à l'autre?

Bonjour Excel-lent, bonjour le forum,

Problème de portée (durée de vie de la variable). Si tu la déclares à l'intérieur de la procédure elle "meurt" à la fin de celle ci. Tu dois la déclarer non pas dans la procédure mais en haut du module (pour un module) ou en haut d'un d'un composant (feuil ou userform). Si tu veux que ta variable sois accessible partout dans ton projet (procédure, feuilles et userform) il faut la déclarer publique : Public ColonneActive as Integer.

Regarde le code ci-dessous :

Code:

Dim mes As String
 
Sub Macro1()
mes = "coucou"
MsgBox mes
Call Macro2
End Sub
 
 
Sub Macro2()
Dim mes2 As String
mes2 = "re" & mes
MsgBox mes2
End Sub

mes sert au deux macros mes2 uniquement à la Macro2.

Édition :
Bonjour Raja, Pyrof, Bptr... on s'est croisé. Global ! Voilà c'est le mot que je voulais dire et que Pyrof a eu la gentillesse de me souffler...

 

Dernière édition: 12 Juin 2008

Vote positif 0 Vote négatif

Excel-lent

XLDnaute Barbatruc

• 12 Juin 2008

• #6

Génial!!!

Génail!!!

Un grand merci à tous.

Bonne fin de journée à tous

Excel-lent

 

Vote positif 0 Vote négatif