msg Box

Re: MsgBox sur Macro évènementielle

Bonjour Jean Batiste, le Forum


Voici une solution par Macro évènementielle à placer dans le Private Module de la Feuille en Question (Pas un module standard).

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne As Integer
Ligne = Target.Row

   If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
      If Range("B" & Ligne) = "" Then
         MsgBox "Attention la cellule " & Range("B" & Ligne) & " est vide", vbCritical
      End If
   End If


End Sub


Bon Appétit
@+Thierry

Re: MsgBox sur Macro évènementielle

Re Bonjour Jean Batiste, le Forum

Ah non après vérification, il n'a pas eu de plagia dans ce fil Lien supprimé, juste une erreur de Prénom, ce n'est pas Philippe qui t'a répondu mais bien moi même !! lol

Bonne Journée
@+Thierry