Conservation de variables au travers de plusieurs macro

[Fab]

Bonjour,
En cliquant sur un bouton, l'utilisateur active une macro qui ouvre une InputBox ou il doit rentrer un chiffre.
Plus tard, en cliquant sur un autre bouton, il active une autre macro qui ouvre une autre InputBox ou il doit rentrer un autre chiffre
Et ainsi de suite.
A chaque fois, le chiffre est rentré dans une autre variable.

Finalement, en cliquant sur un dernier bouton, il active une dernière macro qui doit faire un calcul avec tous les chiffres rentrés. Mais en faisant de cette manière, il n'a plus "souvenir" des variables rentrées dans les autres macros.

Tout le texte ci-dessous est tapé dans 1 module rattaché au classeur actif :

Sub Entree01()
Dim Message1, Title, Default
Dim Var01
Message1 = "Rentrer la 1ère variable"
Default = ""
Var01 = InputBox(Message1, Title, Default)
Range("A1").Select
ActiveCell.Value = "1ère entrée : " & Var01
End Sub

Sub Entree02()
Dim Message1, Title, Default
Dim Var02
Message1 = "Rentrer la 1ère variable"
Default = ""
Var02 = InputBox(Message1, Title, Default)
Range("A2").Select
ActiveCell.Value = "1ère entrée : " & Var02
End Sub

Sub Calcul()
Dim Resultat
Resultat = Var01 + Var02
Range("A3").Select
ActiveCell.Value = "la somme est de : " & Resultat
End Sub

Merci d'avance

 

[Pascal76]

Salut Fab

Tapes ton code en déclarant en début de modules tes variables public comme ceci

Public Var02 as integer
public Var01 as integer

Sub Entree01()
Dim Message1, Title, Default
Message1 = "Rentrer la 1ère variable"
Default = ""
Var01 = InputBox(Message1, Title, Default)
Range("A1").Select
ActiveCell.Value = "1ère entrée : " & Var01
End Sub

Sub Entree02()
Dim Message1, Title, Default
Message1 = "Rentrer la 1ère variable"
Default = ""
Var02 = InputBox(Message1, Title, Default)
Range("A2").Select
ActiveCell.Value = "1ère entrée : " & Var02
End Sub

Sub Calcul()
Dim Resultat
Resultat = Var01 + Var02
Range("A3").Select
ActiveCell.Value = "la somme est de : " & Resultat
End Sub

Pascal

Ps : Un petit bonjour à Laurent qui lira obligatoirement ce post (LOL)

 

[Fab]

Pour la xème fois de la journée, merci Pascal, ca marche Nickel

 

[Fab]

Pascal,
Si tu as encore du temps à me consacrer, j'ai encore une question concernant ces variables public.
Maintenant, je souhaiterais intégrer un graphique avec pour les x, des valeurs que je donnerai moi une fois pour toute (1, 2, 3, ...) et pour les y, les variables qui ont été récupérées via les inputbox.
Merci.

 

[GUS]

MERCI Pascal76.
je ne sais pas si tu liras ceci mais je viens de trouver aujourd'hui ta réponse. C'est génial!