XL 2016 [VBA] Comment imbriquer ces 2 subs

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 !

shanon7

XLDnaute Junior
Bonjour ! Toujours dans ma formation en VBA, j'en arrive à un exercice que je ne parviens pas à faire :

Ecrire une procédure qui colorie une cellule en rouge si elle est vide et en bleu sinon à chaque fois que l’utilisateur double clic sur une cellule du classeur

J'ai décomposé le problème en 2 temps :
1) Dans un module de code, j'ai écrit la sub suivante :
Sub essai()
If IsEmpty(ActiveCell.Value) = True Then
ActiveCell.Interior.Color = RGB(255, 0, 0)
End Sub

2) Dans le module de code associé au workbook, j'ai écrit la private sub suivante :
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Target.Interior.Color = RGB(0, 0, 255)
End Sub

Mon problème est que je ne parviens pas à imbriquer ces 2 écritures de manière à les avoir dans un seul et unique code. Je suis d'autant plus bloquée que j'ai un bout de code écrit dans un module, et un autre bout de code écrit dans un autre module et en plus qui est une procédure évènementielle. En bref, je suis assez perdue !

Merci d'avance,

Shanon
 
Option Explicit oblige le programmeur a déclarer explicitement toutes les variables utilisées dans le code VBA ; ça semble être un inconvénient, car ça oblige à plus de rigueur, mais en fait, c'est un gros avantage car ça permet d'éviter des erreurs de variables ; par exemple, si une variable est mal orthographiée par inadvertance, la compilation butera dessus, et le programmeur en sera averti ; sans Option Explicit, ça aurait créé une nouvelle variable avec des conséquences aléatoires ; de plus, il y a une vérification des types de variables, donc certaines erreurs d'incompatibilité de type peuvent être détectées ; plus d'infos détaillées sur ce post ; clique sur le lien bleu, puis lis à partir de la 2ème ligne continue (en dessous).

soan​
Ahh d'accord merci! Bon, je pense que je vais davantage potasser la théorie avant de m'exercer car je bute à chaque exercice sur des notions que je n'ai pas encore! Il faut dire que se former seule sur ce sujet est assez compliqué, mais en tout cas merci pour vos réponses à mes posts ça m'aide beaucoup!

Bonne journée

Shanon
 
- 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

  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
447
Réponses
3
Affichages
336
Réponses
5
Affichages
707
Réponses
4
Affichages
441
Retour