J
Jean-Baptiste
Guest
Bonjour à tous, bonjour le forum,
Merci à Philippe de m'avoir répondu, mais comment fait on pour placer cette macro dans un private Module.
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
Merci pour vos réponses
Merci à Philippe de m'avoir répondu, mais comment fait on pour placer cette macro dans un private Module.
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
Merci pour vos réponses