XL 2019 message d'erreur

[ph.vanne]

bonjour ,
j'ai récupéré dans le forum ce petit bout de code pour signaler une cellule vide, mais j'aimerais avoir le "nom" de la cellule ( "Nom" ) plutôt que son adresse(B:3)
pouvez vous m'aider ?
merci a tous


Dim C As Range, ligne&
With Sheets("données")
For Each C In .Range("Nom,b7,b8,b26")
If C = "" Then .Activate: C.Select: MsgBox "Il manque une information en " & C.Address(0, 0), vbInformation, "Information": Exit Sub
Next
End With

 

[Dan]

Bonjour,

Peut être comme ceci

Dim C As Range, ligne As Integer
With Sheets("données")
    For Each C In .Range("b7,b8,b26")
        If C = "" Then MsgBox "Il manque une information en " & Range(C.Address).Name.Name, vbInformation, "Information": Exit Sub
    Next C
End With

Cordialement

 

[ph.vanne]

ça marche nickel ! merci ! (tardif !) mais merci !!