VBA - compter les lignes d'une selection et récupérer le numéro de la ligne

Bonjour à tous,

J'aurais besoin dans un tableur excel de selectionner différentes lignes (soit en selectionnant des cases, soit en selectionnant des lignes entières, peu importe) et ai besoin de récupérer le nombre de ligne selectionnée.

Alors, j'ai bien essayé un Selection.Rows.count mais ça ne fonctionne pas puisque le VBA ne me prends alors que la première sélection et me renvoi donc un nombre de ligne incorrect (sauf dans le cas d'une selection unique).

En plus de ça j'aurais besoin de récupérer le numéro des lignes selectionnées, dans une variable (ou un tableau ou... enfait je ne sais pas trop, donc n'hésitez pas à me conseillez selon ce que vous auriez fait)

Je vous remercie par avance,


Philippe

Bonjour Phifou,
Pour tes besoins, tourne-toi du côté de la collection Areas dans la FAQ ou dans le devcenter Office
Cette collection te permettra de travailler avec des sélections multiples

Bonjour,

Citation:

---

Envoyé par Phifou

En plus de ça j'aurais besoin de récupérer le numéro des lignes selectionnées, dans une variable (ou un tableau ou... enfait je ne sais pas trop, donc n'hésitez pas à me conseillez selon ce que vous auriez fait)

---

Tu peux peut-être faire un tableau où tu entres la donnée que tu veux, et le numéro de la ligne. Un tableau à deux dimensions me semblerait donc bien, mais je suis loin d'être une pro alors je laisse les autres donner leur avis :)

Un truc dans le genre:

Code:

---

1 2 3 4 5 6 7

Sub toto() Set sel = Union(Range("C1"), Range("D4:J7"), Range("M12")) For Each ar In sel.Areas x = x + ar.Rows.Count Next ar MsgBox ("il y a " & x & " lignes") End Sub

---

Par contre si tu selectionnes des AREAS qui ont les mêmes lignes... Ton résultat sera faux.

Code:

---

Union(Range("C1"), Range("D4:J7"), Range("M12"))

---

x = 6

Code:

---

Union(Range("C1"), Range("D4:J7"), Range("M4"))

---

x = 6 alors que x devrait être égal à 5...

Mon idée étant de faire une copie de ces lignes selectionnées, pour les mettres ailleurs, je n'ai pas besoin fondamentalement de garder les valeurs des lignes, j'ai donc trouvé une solution (après trois jours de recherches ardues sur internet...)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Cellule As Range Dim Plage As Range Dim maLigne as Integer   Set Plage = Selection   For Each Cellule In Plage maLigne = Cellule.Row 'Travail avec maLigne... '... Next Cellule

---

Et voilà !!! ça marche!! :D

Merci à tous de votre aide,


Philippe