For each cell in range if is empty

Bonjour à tous,

je souhaite identifier les manques dans certains onglets de données mais rencontre un soucis

En effet le cell.value = "" ne fonctionne pas du tout cela me rend row 1 column 1 alors que celle ci est bien rempli

je test avec isempty cela ne fonctionne pas non plus

je voudrais pouvoir identifier les cells vide dans chacune des lignes et colonnes de mon onglet

une idée svp car je tourne en rond

alors que si je teste msgbox(cell.value) alors que ca me renvoi le contenu de la cellule correctement

merci à vous

Private Sub Detect_Lacks()

Dim End_Project As Integer
Dim rng, cell As Range

End_Project = Worksheets("Projects").Range("A" & Rows.Count).End(xlUp).row
For Each cell In Worksheets("Projects").Range("A2:M" & End_Project)

If (cell.Value = "") Then
MsgBox ("Row: " & Worksheets("Projects").Cells.row & " Column " & Worksheets("Projects").Cells.Column)
End If
Next cell
End Sub

Bonjour,

Si tu écris cell d'un côté et cells de l'autre ... ça ne saurait donner un résultat cohérent !

merci pour votre retour mais non le problème ne vient pas de là

Darkangel a écrit :

merci pour votre retour mais non le problème ne vient pas de là

... Tu as absolument raison: il ne vient pas QUE de là!

Bonne continuation

Bonjour,

Merci de joindre un petit classeur pour une aide adaptée du forum.

Cdlt.