Bonsoir à tous,
Je voudrais vous soumettre deux petits problèmes concernant un fichier dans lequel j'ai un des modules qui comprend une dizaine de procédures.
1°) Je voudrais définir une constante qui correspond à une cellule (D3) d'un onglet et dans laquelle se trouve une date (qui varie souvent). Cette constante que je vais nommer "DateTransmission" est utilisée dans la dizaine de procédures. Avant la première procédure, j'ai ainsi défini ma constante:
Const DateTransmission = Sheets("Nomonglet").Range("D3") mais sans succés car j'obtiens le message d'erreur suivant: Erreur de compilation: Constante requise (avec le mot "Range" surligné).
2°) Toujours dans ces mêmes procédures, j'utilise une plage de cellules dans laquelle je boucle. Ma plage est ainsi définie: Range("X7:X" & Range("X65536").End(xlup).row. J'ai lu que pour accélérer le code et par commodité, il était intéressant de définir cette plage comme une variable objet du style: Set Maplage = Range("X7:X" & Range("X65536").End(xlup).row
Je voudrais que la portée de cette variable objet se fasse au niveau du module entier et de toutes ses procédures, hors je n' ai réussi qu'à l'inclure dans une procédure sous peine d'un message d'erreur.
Si quelqu'un peut me renseigner pour mon pb de constante et de variable objet, je lui en serais fort reconnaissant.
Merci d'avance
Je voudrais vous soumettre deux petits problèmes concernant un fichier dans lequel j'ai un des modules qui comprend une dizaine de procédures.
1°) Je voudrais définir une constante qui correspond à une cellule (D3) d'un onglet et dans laquelle se trouve une date (qui varie souvent). Cette constante que je vais nommer "DateTransmission" est utilisée dans la dizaine de procédures. Avant la première procédure, j'ai ainsi défini ma constante:
Const DateTransmission = Sheets("Nomonglet").Range("D3") mais sans succés car j'obtiens le message d'erreur suivant: Erreur de compilation: Constante requise (avec le mot "Range" surligné).
2°) Toujours dans ces mêmes procédures, j'utilise une plage de cellules dans laquelle je boucle. Ma plage est ainsi définie: Range("X7:X" & Range("X65536").End(xlup).row. J'ai lu que pour accélérer le code et par commodité, il était intéressant de définir cette plage comme une variable objet du style: Set Maplage = Range("X7:X" & Range("X65536").End(xlup).row
Je voudrais que la portée de cette variable objet se fasse au niveau du module entier et de toutes ses procédures, hors je n' ai réussi qu'à l'inclure dans une procédure sous peine d'un message d'erreur.
Si quelqu'un peut me renseigner pour mon pb de constante et de variable objet, je lui en serais fort reconnaissant.
Merci d'avance