Probleme avec .count

Chères amies, chers amis du forum

Comme d'habitude j'utilise ce bout de code pour compter le nombre de ligne et de colonne d'un range:

Code:

---

1 2 3 4 5 6

dim Nrow as long dim Ncol as long   Nrow = Range(.Cells(4, 1), Cells(4, 1).End(xlDown)).Count + 1 Ncol = Range(.Cells(4, 1), Cells(4, 1).End(xlToRight)).Count + 1

---

Cependant systématiquement il manque 3 ligne. Alors je pourrais faire + 4 mais j’aimerais comprendre car cela peux s’aggraver ou ce modifier.

Merci

Bonjour,
La propriété Count de l'objet Range, compte le nombre de cellules d'une plage
Donc imaginons que tu aies une plage de A1:M10 et que tu remplaces, la propriété Count par Address comme l'exemple ci-dessous

Code:

---

1 2	Debug.Print Range(.Cells(4, 1), Cells(4, 1).End(xlDown)).Address Debug.Print Range(.Cells(4, 1), Cells(4, 1).End(xlToRight)).Address

---

La première ligne va afficher $A$4:$A$10 et la seconde $A$4:$M$4
Ce qui avec la propriété Count donnerait 7 et 13
Or si j'ai bien compris, tu souhaites connaître le nombre de lignes et de colonnes de cette plage.
Alors et même si dans ce cas précis le résultat est le même, il serait préférable d'utiliser les propriétés Count des collections Rows et Columns
Soit

Code:

---

1 2	Nrow = Range(.Cells(4, 1), Cells(4, 1).End(xlDown)).Rows.Count Ncol = Range(.Cells(4, 1), Cells(4, 1).End(xlToRight)).Columns.Count

---

Maintenant, il y a un autre soucis dans ton code. Tu as fait précéder par un point l'objet Cells(4, 1), cela sous-entends donc que tu as imbriqué tes lignes dans un bloc With dont l'objet de référence est le Parent de l'objet Range soit au moins la feuille. Les autres objets de ta ligne eux ne sont pas précédé d'un point ce qui peut amener un renvoi d'erreur si la feuille active n'est pas celle de la plage de référence.
La syntaxe exacte devrait donc être

Code:

---

1 2 3 4 5 6 7 8

Sub t() Dim Nrow As Long, Ncol As Long With Worksheets("db") Nrow = .Range(.Cells(4, 1), .Cells(4, 1).End(xlDown)).Rows.Count Ncol = .Range(.Cells(4, 1), .Cells(4, 1).End(xlToRight)).Columns.Count End With Debug.Print Nrow & " - " & Ncol End Sub

---

Si le résultat escompté n'est pas ce que tu souhaites, il faudrait expliquer ce que tu attends
[EDIT]
Par exemple si tu souhaites avoir le n° de la dernière ligne de la plage A4:M10 calculée à partir de A4, la ligne de code imbriquée dans le bloc With sera

Code:

---

LastRow = .Cells(4, 1).End(xlDown).Row

---

Merci

Citation:

---

Or si j'ai bien compris, tu souhaites connaître le nombre de lignes et de colonnes de cette plage.

---

C'est tout a fais sa, mais je viens de comprendre mon erreur, je recupere le nombre de ligne et de colonne pour sélectionner un range:

Code:

---

1 2 3 4 5 6 7

With Worksheets("db") Nrow = .Range(.Cells(4, 1), .Cells(4, 1).End(xlDown)).Rows.Count Ncol = .Range(.Cells(4, 1), .Cells(4, 1).End(xlToRight)).Columns.Count   .Range(.Cells(4, 1), .Cells(Nrow, Ncol)).Select End With

---

Mais forcement, la cellule de coordonnées Nrow Ncol n'est pas la bonne...car avec ce code l'origine est la cellule A1 et non la A4.

Alors pour sélectionner la plage j'ai essayé sa , sa marche mais bon je suis pas sure...

Code:

---

1 2	.Range(.Range("A4", .Range("A4").End(xlToRight)), .Range("A4", .Range("A4").End(xlDown))).Select

---

Bonjour,

Citation:

---

Mais forcement, la cellule de coordonnées Nrow Ncol n'est pas la bonne...car avec ce code l'origine est la cellule A1 et non la A4.

---

Absolument pas, tu peux constater que la cellule de référence est bien .Cells(4, 1) soit A4
La formule que tu as affiché sélectionne la plage de cellules à partir de la cellule A4 jusqu'à la dernière ligne et la dernière colonne. Si c'est cela que tu voulais, c'est correct.

Code:

---

1 2	Nrow = Worksheets("db").UsedRange.Rows.Count - 3 Ncol = Worksheets("db").UsedRange.Columns.Count

---

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

Absolument pas, tu peux constater que la cellule de référence est bien .Cells(4, 1) soit A4
La formule que tu as affiché sélectionne la plage de cellules à partir de la cellule A4 jusqu'à la dernière ligne et la dernière colonne. Si c'est cela que tu voulais, c'est correct.

---

Merci, je comprend pas alors pour quoi il ne selectionne pas les trois derniere ligne du range alors que count me renvoi le bon resultat.

tous est relatif,
si les ligne de 1 à 4 sont vide alors UsedRange te retourne ton tableau;
si les ligne de 1 à 4 ne sont pas vide alors UsedRange te retourne ton tableau + les ligne de 1 à 4;

bonjour,


la propriété .count te donne le nombre de ligne ou de colonne appartenant à ta plage ...

ensuite tu utilise la forme

Code:

---

Range (Cell1, Cell2)

---

... cependant tu définit mal ton "Cell2" ... pour déterminer la colonne et la ligne de Cell2 tu oublie d'ajouter au nombre de lignes ou colonnes trouvées la position initiale ....

à méditer ;)

Merci