XL 2019 Détecter si il y a des cellules vide

[netparty]

Bonjour à tous
J'aimerais avoir votre aide pour une macro.
Je voudrais pouvoir détecter dans ma feuille si il manque des données dans les cellules de la colonne B.
Alors si il y a des cellules vide avoir un msgbox qui me donne les cellules vide.

Merci d'avance

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[Phil69970]

Bonjour @netparty
Edit : Bonjour François

Je te propose :

Option Explicit

Sub test()
Dim Derlig&, i&
Derlig = Range("B" & Rows.Count).End(xlUp).Row + 1
For i = 8 To Derlig
    If Range("B" & i).Value = "" Then MsgBox "La cellule " & Range("B" & i).Address() & " est vide", vbCritical, "Problème !!!"
Next i
End Sub

*Merci de ton retour

@Phil69970

 

[netparty]

Bonjour @fanfan38 , @Phil69970

Merci à vous deux c'est parfait mais est-il possible d'avoir un seul msgbox avec toutes les cellules vide

Merci

 

[Phil69970]

Re

Et si tu veux tout dans un seul message

Option Explicit

Sub test()
Dim Derlig&, i&, Message
Derlig = Range("B" & Rows.Count).End(xlUp).Row 
For i = 8 To Derlig
    If Sheets("Import").Cells(i, 2) = "" Then
        Message = Cells(i, 2).Address & ", " & Message
    End If
Next i
MsgBox "Les cellules " & Message & " sont vides", vbCritical, "Problème !!!"

End Sub

*Merci de ton retour
Bonne fêtes

@Phil69970

 

[JM27]

bonsoir
Comme cela ?

Sub test()
    Dim Derlig&, i&
    Dim Message As String
    Derlig = Range("B" & Rows.Count).End(xlUp).Row
    Range("B8:B" & Derlig).Interior.Pattern = xlNone
    For i = 8 To Derlig
        If Range("B" & i).Value = "" Then
            Message = Message & Range("B" & i).Address & ";"
            Range("B" & i).Interior.Color = 65535
        End If
    Next i
        MsgBox "Le(s) cellule(s) " & Message & " sont vide(s)", vbCritical, "Problème !!!"
End Sub

Edit : @Phil69970 : collision

 

[netparty]

Re

Et si tu veux tout dans un seul message

Option Explicit

Sub test()
Dim Derlig&, i&, Message
Derlig = Range("B" & Rows.Count).End(xlUp).Row
For i = 8 To Derlig
    If Sheets("Import").Cells(i, 2) = "" Then
        Message = Cells(i, 2).Address & ", " & Message
    End If
Next i
MsgBox "Les cellules " & Message & " sont vides", vbCritical, "Problème !!!"

End Sub

*Merci de ton retour
Bonne fêtes

@Phil69970

Merci @Phil69970 c'est parfait
Bonne fêtes à toi aussi

 

[netparty]

bonsoir
Comme cela ?

Sub test()
    Dim Derlig&, i&
    Dim Message As String
    Derlig = Range("B" & Rows.Count).End(xlUp).Row
    Range("B8:B" & Derlig).Interior.Pattern = xlNone
    For i = 8 To Derlig
        If Range("B" & i).Value = "" Then
            Message = Message & Range("B" & i).Address & ";"
            Range("B" & i).Interior.Color = 65535
        End If
    Next i
        MsgBox "Le(s) cellule(s) " & Message & " sont vide(s)", vbCritical, "Problème !!!"
End Sub

Edit : @Phil69970 : collision

Merci @JM27
Bonne soirée