msg Box

[Jean-Baptiste]

Bonjour à tous,

Je souhaite qu'une msg box apparaisse lorsque dans la colonne b = "" si dans la colonne c il y a une donnée. le but est de prévenir la personne qui rentre des données de son erreur!

Merci

 

[@+Thierry]

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

 

[@+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