MSG box cellule vide

Bonjour à tous,

Dans un fichier qui commence à avoir beaucoup de ligne, j'ai dans une colonne la date de clôture, qui pour l'instant a juste une MFC rouge si elle n'est pas remplie, le remplissage de la cellule pour avoir plusieurs mois d'écart avec la date d'ouverture.

Est-il possible d'avoir un message box dans le style "Il vous reste des actions a clôturé" à l'ouverture du fichier ci certaine cellule de la colonne "D" sur la feuille "suivi" sont vide

Bonjour xXJohnXx, le forum,

A tester:

Code à placer dans le module de Thisworkbook....

capture
Private Sub Workbook_Open()
 On Error Resume Next
  With Sheets("Suivi")
   If .ListObjects("Tableau1").ListColumns(4).DataBodyRange.SpecialCells(xlCellTypeBlanks).Count = 0 Then
   Else
    MsgBox "Il vous reste des actions a clôturer"
   End If
  End With
 On Error GoTo 0
End Sub

Cordialement,

Bonjour,

Une autre proposition, sensiblement identique.

Cdlt.

Private Sub Workbook_Open()
Dim TD As Range, n
    Set TD = Range("Tableau1").Columns(4)
    On Error Resume Next
    n = TD.SpecialCells(xlCellTypeBlanks).Count
    If n > 0 Then
        MsgBox "Il vous reste " & n & " action(s) à clôturer.", 64, "Information"
    Else
        MsgBox "Toutes les actions sont clôturées.", 64, "Alerte"
    End If
End Sub

Super!

Merci beaucoup à tous les deux pour votre aide.

Rechercher des sujets similaires à "msg box vide"