définir des constantes

  • Initiateur de la discussion Initiateur de la discussion yaka
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

yaka

XLDnaute Occasionnel
Bonjour

est-il possible de définir des constantes 'range' en tête de la page vb d'une feuille qui pourront alors être utilisées pour les déclarations type

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Private Sub Worksheet_Calculate()

Private Sub Worksheet_Activate()


???

par avance merci

y+
 
Re : définir des constantes

Re,

Pour être un peu plus sérieux, je ne comprends pas trop la question. Tu peux déclarer une variable public aussi sur la feuille événement, peux tu nous en dire plus sur la finalité de ta démarche ?

Un exemple:
Code:
Public Myrange As Range



Private Sub Worksheet_Activate()
Set Myrange = Worksheets("feuil2").Range("c4")
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Myrange.Value = Time
End Sub

Bonne journée,

Ninbihan

Edit:ajout d'un exemple
 
Dernière édition:
Re : définir des constantes

c'est exactement ça!. mais n'y a t-il pas moyen de définir

Set Myrange = Worksheets("feuil2").Range("c4")

tout en haut de page en dehors de la Private Sub Worksheet_Activate()


... ce serai plus facile si je dois revenir sur le code est modifier Myrange... sachant que je vais avoir Myrange1,Myrange2,Myrange3...
 
Re : définir des constantes

Re,

Une solution pour toi serait de créer un module et de déclarer les constantes ainsi:
Public Const myrange = "$C$4"
Ce n'est pas un objet range mais pour rappeler celle ci dans les procédure évenementielle il suffit de :
range(Myrange)
Ainsi tu aurais dans un module toutes tes constantes...
Vois si cela peut te convenir..

Ninbihan
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
21
Affichages
164
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
234
Réponses
4
Affichages
138
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
229
Réponses
32
Affichages
1 K
Retour