Discussion :

[BenoitL77]

Bonjour à tous,
Je cherche à compter le nombre de ligne de ma sélection.
Cette sélection peut être des cellules/lignes/colonnes contiguës ou non contiguës (càd sélectionnées avec ctrl)

Avec le code ci dessous (sel as range) :

Code :

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

1
2
3
For Each sel In Selection
x = x + sel.Rows.Count
Next sel

J'obtient bien un nb de ligne, mais il ajoute une ligne au total pour chaque cellule de la sélection. Si je sélectionne une ligne complète, le résultat est 18384.
Pour la sélection d'une ligne complète, j'attends x=1
Pour 3 lignes (contiguës ou non), j'attends x=3
pour 2 cellules sélectionnées sur 2 lignes différentes, j'attends x=2
etc...

Comment puis-je code ça?
Merci d'avance
Benoit

[halaster08]

Bonjour,

une proposition:

Code :

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

1
2
3
4
5
6
Dim r As Long, c As Long, cel as range
For Each cel In Selection.Cells
If Not cel.Row = r Then c = c + 1
r = cel.Row
Next cel
MsgBox c

edit: le code de Mehnir est bien meilleur

[Menhir]

Code :

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

x = Intersect(Selection.EntireRow, Columns(1)).Cells.Count

[BenoitL77]

Que de choix !
Merci Messieurs, les 2 codes fonctionnent impec.
Je comprends comment fonctionne celui de Halaster, mais pas bien celui de Menhir.

Pour que je me couche moins ignare, pourrais de m'expliquer stp?

Bonne fin de journée à tous
Benoit

[halaster08]

Pour que je me couche moins ignare, pourrais de m'expliquer stp?

selection.entirerow selectionne les lignes complètes de tout ce que tu as sélectionné
Intersect permet de garder uniquement ce qui appartient au deux range qu'on lui passe en paramètre
Donc ici toutes tes lignes et la colonne 1, il te reste donc la première cellule de chaque ligne et tu en compte le nombre

[Menhir]

Utiliser EntireRow a deux avantages : d'abord ça fusionne les cas de cellules sur une même ligne, ensuite on est sûr que pour chaque ligne il y aura la colonne 1.
Du coup, il suffit de faire l'intersection avec la colonne 1 pour avoir une cellule par ligne.
Il ne reste plus alors qu'à compter les cellules restantes pour connaitre le nombre de lignes.

[BenoitL77]

Merci pour ces explication.
Mais...j'ai crié victoire trop tôt.
J'ai opté pour la version Menhir :

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Integer
x = Intersect(Selection.EntireRow, Columns(1)).Cells.Count 'compte les lignes de la sélection, même si sélection multiple

Quand j'ouvre mon fichier, j'ai message d'erreur N°91, la variable Object ou la variable de bloc with non définie.
Sur la ligne 3.
J'arrête la macro via débugage et une fois ça passé, ça marche impec.

Pourquoi ce plantage à l'ouverture?
J'ai essayé d’enregistrer le fichier avec des sélections différentes pour voir (une cellule, une ligne...) ça n'a pas d'influence

Merci

[BenoitL77]

je viens de voir que si j'enregistrais mon fichier en étant sur une autre feuille que la feuil2, je n'avais pas de pb à l'ouverture.
ça ne règle pas le pb, mais vous apportera peut être une info pour trouver la solution...