Discussion :

[Darkangel2014]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Patrice740]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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.

[Darkangel2014]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et cela fonctionne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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.

[Darkangel2014]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Patrice740]

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