F
Fab
Guest
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
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