Appeler une variable de macro1 pour l'utiliser dans macro2
Bonjour,
J'ai 2 macros :
Macro 1 :
Sub Macro1
'Déclaration des variables
Dim sem As String
Dim i As Integer
' pour la réception
Dim rec_l_ooeT As Integer 'OOE Théorique lundi réception
Dim rec_m_ooeT As Integer 'OOE Théorique mardi réception
' Semaine souhaitée
sem = InputBox("N° de la Semaine en cours", "forum Access")
End sub
Macro 2 :
Sub Macro2
'Déclaration des variables
Dim sem As String
Dim i As Integer
i = 1
For i = 1 To 2000
Sheets("réception").Activate
If Sheets("réception").Range("bo" & i).Value = sem Then
If Sheets("réception").Range("b" & i).Value = "LUNDI" And Sheets("réception").Range("N" & i).Value <> 0 Then
rec_l_ooeT = Sheets("réception").Range("ae" & i).Value
End sub
J'aimerais ne pas avoir à redemander via une MSGBOX le numéro de semaine.
Je ne peux pas créer une seule macro car cela me met une erreur (programme trop long)
Pouvez vous m'aider
En vous remerciant
Bonjour,
A priori, la solution consiste à supprimer les deux déclarations identiques dans tes deux macros ...
Et, en début de module, avant tes deux macros, d'ajouter
Public sem As StringBonsoir,
En effet toutes variables déclarées dans un Sub a comme "porté" le sub en question
Idéale pour des variables temporaires de calcul ou pour des compteurs de for to next etc.
Pour des variables ayant une "porté" sur l'ensemble du projet, il faut en effet les déclarer en "Public"
Tout ceci est une règle générale...
@ beintôt
LouReeD