[VBA] Calculer le nombre de ligne d'une plage dynamique

[Spacepak]

Bonjour,

j'aimerai pouvoir calculer le nombre d'une plage dynamique et stocker le résultat dans une variable.

Par exemple j'aimerai compter le nombre de ligne de la colonne A allant de A4 à la dernière cellule non vide de cette colonne A.
J'ai essayé ça : variable = Range("A4:A" & Range("A65535").End(xlUp).Rows.count , mais ça ne marche pas..

Pourriez - vous m'aider?

 

[gilbert_RGI]

Re : [VBA] Calculer le nombre de ligne d'une plage dynamique

bonjour

comme ceci ça doit le faire

Erreur mal compris

tu as raison Pierrot

 

[Pierrot93]

Re : [VBA] Calculer le nombre de ligne d'une plage dynamique

Bonjour,

pas compris la même chose moi, peut être ceci :

MsgBox Range("A4", Range("A65535").End(xlUp)).Rows.Count

bon après midi
@+

 

[Spacepak]

Re : [VBA] Calculer le nombre de ligne d'une plage dynamique

Merci Mr Gilbert de votre réponse mais malheureusement ça ne marche pas
Ca me fait "Incompatibilité de type"

 

[Pierrot93]

Re : [VBA] Calculer le nombre de ligne d'une plage dynamique

Re,

pas sûr que tu ais vu le post #3...

 

[Spacepak]

Re : [VBA] Calculer le nombre de ligne d'une plage dynamique

Effectivement je n'avais pas vu! Et celà fonctionne! Merci beaucoup.

D'ailleurs je me permet de vous demander : comment faire pour balayer les cellules de cette même plage dynamique?

Par exemple Je veux créer une variable Range qui prenne toutes les valeurs de cette plage.

Range = Range("A4" ....

Merci de votre aide.

 

[gilbert_RGI]

Re : [VBA] Calculer le nombre de ligne d'une plage dynamique

range est un mot clè il est préférable de ne l'employer que pour un range
sinon faites une boucle de la première à la dernière cellule non vide

 

[Spacepak]

Re : [VBA] Calculer le nombre de ligne d'une plage dynamique

Oui en fait prenons cette variable alors : Var

Donc en fait j'aimerai que Var = toute la plage. Je n'arrive pas à voir comment faire intervenir une boucle dans ce cas là..

Ps : Quand je calcule le nombre de lignes avec votre formule Pierrot93 ça marche mais par contre si je veux calculer le nombre de lignes d'une plage qui se situe dans une autre feuille ça ne marche pas. Même avec Sheets("Feuil2") devant

 

[Pierrot93]

Re : [VBA] Calculer le nombre de ligne d'une plage dynamique

Re,

il faut spécifier 2 fois la feuille :

MsgBox Sheets("Feuil2").Range("A4", Sheets("Feuil2").Range("A65535").End(xlUp)).Rows.Count

pour initialiser une variable de type "range", faire précéder de "Set"

Dim maplage As Range,c As Range
Set maplage = Range("A4", Range("A65535").End(xlUp))
'pour boucler sur cete même plage 
For Each c In maplage

Next c

 

[gilbert_RGI]

Re : [VBA] Calculer le nombre de ligne d'une plage dynamique

un petit exemple vaut mieux qu'un long discours

 

[Spacepak]

Re : [VBA] Calculer le nombre de ligne d'une plage dynamique

Merci beaucoup pour votre aide!
Celà m'a pas mal aidé!

Par contre y'a juste une formule que je n'arrive pas à faire marcher :
Set maplage = Range("A4", Range("A65535").End(xlUp))

J'aimerai que ma plage soit égale à une plage située dans une autre feuille j'ai donc fais comme vous avez dit :
Set maplage = Sheets("Feuil2").Range("B1", Sheets("Feuil2").Range("B65535").End(X1up))

Et là ça me fait : Erreur définie par l'application ou par l'objet.
J'ai essayé de faire avec une plage sur la feuille active mais pareil...

 

[Pierrot93]

Re : [VBA] Calculer le nombre de ligne d'une plage dynamique

Bonjour,

essaye avec xlup et non x1up...

Dim maplage As Range
Set maplage = Sheets("Feuil2").Range("B1", Sheets("Feuil2").Range("B65535").End(xlUp))

bon après midi
@+

 

[tototiti2008]

Re : [VBA] Calculer le nombre de ligne d'une plage dynamique

Bonjour Spacepak, Bonjour Gilbert, Bonjour Pierrot,

J'aimerai que ma plage soit égale à une plage située dans une autre feuille j'ai donc fais comme vous avez dit :
Set maplage = Sheets("Tab1").Range("B1", Sheets("Tab1").Range("B65535").End(X1up))

Et là ça me fait : Erreur définie par l'application ou par l'objet.
J'ai essayé de faire avec une plage sur la feuille active mais pareil...

Essaye

End(xlup)

(en majuscules (XLUP))

Edit : Bing, trop tard

 

[Spacepak]

Re : [VBA] Calculer le nombre de ligne d'une plage dynamique

AAaaaaah.. C'était donc ça...

Effectivement ça marche!

Merci à vous!