Discussion :

[Phifou]

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

[Jarvis13]

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

[Piixx_e]

Bonjour,

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

[EngueEngue]

Un truc dans le genre:

Code :

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

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 :

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

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

x = 6

Code :

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

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

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

[Phifou]

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 :

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

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!!

Merci à tous de votre aide,


Philippe