Macro VBA : Obtenir les numeros de lignes des cellules selectionnees

SAMWRC

XLDnaute Occasionnel
Bonjour,

Comment puis-je obtenir les numeros de ligne de toutes les cellules selectionnees meme si la selection n'est pas continue (par ex : si A1,A2 et A5 sont selectionnees, je voudrais obtenir 1, 2 et 5) ?

Merci d'avance
 

Pierrot93

XLDnaute Barbatruc
Re : Macro VBA : Obtenir les numeros de lignes des cellules selectionnees

Bonjour,

regarde le code ci-dessous :

Code:
Sub test()
Dim c As Range, t As String
For Each c In Selection
    t = t & c.Row & vbLf
Next c
MsgBox "lignes des cellules" & vbLf & "sélectionnées :" & vbLf & t
End Sub
bonne journée
@+
 

RENAUDER

XLDnaute Accro
Re : Macro VBA : Obtenir les numeros de lignes des cellules selectionnees

Bonjour,
Un exemple pour les lignes et colonnes
Code:
Sub Test()
    For Each Cell In Selection
        Range("D6,E12,G16").Select
        Lignes = Lignes & Cell.Row & ","
        Colonnes = Colonnes & Cell.Column & ","
    Next Cell
    Lignes = Left(Lignes, Len(Lignes) - 1)
    Colonnes = Left(Colonnes, Len(Colonnes) - 1)
    MsgBox "Le résultat est pour les lignes : " & Lignes & _
        " et pour les colonnes " & Colonnes
End Sub
 
Dernière édition:

SAMWRC

XLDnaute Occasionnel
Re : Macro VBA : Obtenir les numeros de lignes des cellules selectionnees

Ok merci, ca marche parfaitement !

;)

A plus
 

Discussions similaires


Haut Bas