Discussion :

[Nono Sto]

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 :

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

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

[Philippe Tulliez]

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 :

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

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 :

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

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 :

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

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 :

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

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

[Nono Sto]

Merci

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 :

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

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 :

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

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

[Philippe Tulliez]

Bonjour,

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.

[Invité]

Code :

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

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

[Nono Sto]

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.

[Invité]

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;

[SfJ5Rpw8]

bonjour,


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

ensuite tu utilise la forme

Code :

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

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