detecter cellule vide for each

Bonjour,


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 ca me renvoi le contenu de la cellule correctement

merci à vous

Code:

---

1 2 3 4 5

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

---

Bonjour,

Citation:

---

Envoyé par Darkangel2014

En effet le cell.value = "" ne fonctionne pas du tout

---

Ça fonctionne très bien mais ton MsgBox n'affiche que ce que tu lui demandes d'afficher !

Code:

---

1 2 3 4 5

For Each Cell In Worksheets("Projects").Range("A2:M" & End_Project) If Cell.Value = "" Then MsgBox "Row: " & Cell.Row & " Column " & Cell.Column End If Next Cell

---

Pour info, une variable de type Range ne contient pas uniquement l'adresse d'une cellule, elle contient toutes les référence de cette cellule, y compris la feuille et le classeur auxquels elle appartient.

Donc, ta variable cell contient (entre autre) la référence à Worksheets("Projects") et ne pourrait pas être désignée comme cellule d'une autre feuille (à moins de lui assigner la cellule d'une autre feuille).

D'une manière générale, une cellule de type Objet contient tous les parents de l'objet désigné et ne peut pas être utilisée elle-même comme membre d'un autre objet.

effectivement bien vu :) merci à vous
toutefois mon objectif n'est pas de m'afficher cela dans un msgbox comme vous pouvez l'imaginer

mon objectif serait de pouvoir me reporter dans un array la valeur contenu dans la colonne A du row répéré
je récupère donc l'id contenu en colonne A via

Code:

---

ID = Worksheets("Projects").Range("A:A")(cell.row, 1)

---

et cela fonctionne:

Code:

---

MsgBox "ID: " & ID & " Column " & cell.Column

---

mais comment mettre dans cela un array?
je tente cela mais ne sait pas si cela fonctionnera à la suite

Code:

---

1 2 3 4 5 6

If (cell.Value = "") Then ID = Worksheets("Projects").Range("A:A")(cell.row, 1) Lacks_Project = Array(ID, cell.Column)   End If Next cell

---

Citation:

---

Envoyé par Darkangel2014

ID = Worksheets("Projects").Range("A:A")(cell.row, 1)

---

Il serait plus propre d'écrire ID = Worksheets("Projects").Cells(cell.Row, 1).Value.

A moins que cell désigne une cellule de la feuille Projects (ce qui signifierait que tu n'as pas lu ou pas compris ma réponse précédente).
Dans ce cas, il suffit d'écrire ID = cell.Value.

Bonjour,

merci pour ce correctif.
pour être honnête je n'avais pas vu votre message précédent dont je viens de prendre connaissance.
merci à vous pour ces explications très bien détaillées


je me retrouve donc avec :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Detect_Lacks()   Dim End_Project, ID, n, i As Integer Dim Rng, cell As Range Dim Lacks_Project() As Variant     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 ID = Worksheets("Projects").cells(cell.row, 1).Value Lacks_Project() = Array(ID, cell.Column)   MsgBox "ID: " & ID & " Column " & cell.Column End If Next cell

---

comment désormais intégrer et pouvoir verifer ce que lack_projects à comme enregistrements?
merci à vous

Un peu de lecture :
Tableaux VBA et Excel
Utiliser tableaux VBA Excel