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