VBA excel : Récupérer les n° des lignes des cellules sélectionnées

Question

Je pédale pour un ptit' prog...
Je souhaite récupéré (dans une variable tableau par exemple) les numéros des lignes de chaque cellule sélectionnée (les colonnes ne m'interessent pas).
Merci

cs_Willis · Answer

Ou alors, peut-être plus simple, ne pas sélectionner les cellules mais carément les lignes entières, donc récupérer les n° des lignes sélectionnées...
Comment puis-je faire...
Une chtite idée ??

HFanny · Answer

Bonjour,

avec ce code tu récupères le numéro de ligne de chaque cellule sélectionnée dans une feuille.
Par contre, si tu sélectionnes 2 cellules sur la même ligne, alors tu auras 2 fois le numéro de ligne dans le tableau.
Ce code n'enlève pas les doublons.


Dim tabCellules(), compteur As Integer
Dim cellule As Range

compteur = 0

For Each cellule In Selection
    ReDim Preserve tabCellules(compteur)
    tabCellules(compteur) = cellule.Row
    compteur = compteur + 1
Next cellule

ReDim Preserve tabCellules(compteur - 1)

For i = 0 To UBound(tabCellules)
    MsgBox tabCellules(i)
Next i



A toi de voir si les doublons te dérangent.

Fanny

cs_Willis · Answer

Merci c'est génial !!!
Merci merci

VBA excel : Récupérer les n° des lignes des cellules sélectionnées

3 réponses

Discussions similaires