Re Bonjour Jean Batiste, Dan, le Forum
T'inquiète pas il n'y a pas de mal pour le nom.
Pour ton problème, je pense que tu dois appliquer à la lettre mon GIF animé. Hors celui-ci est prévu pour une macro évènementielle d'ouverture de classeur.
Pour que ce code fonctionne :
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
Il doit être placé NON PAS dans le module "ThisWorkBook" MAIS dans le module de la Feuille que tu veux (dans le GIF tu aurais soit Feuil1 ou soit Feuil2)
Il te suffit de DOUBLE-CLIQUER sur la feuille désirée...
Le reste de la procédure est identique que le Gif, sauf que tu n'a qu'à copier/coller ce code...
Sinon une solution ALTERNATIVE :
Depuis Excel, tu te places sur l'onglet de la feuille voulue et tu fais un CLICK-DROIT et tu sélectionnes dans le menu contextuel "Voir Codes" tu arriveras au même endroit dans le module pour ensuite copier/coller ce code...
J'espère que c'est assez clair
Bon Aprèm
@+Thierry