Macro VBA : Obtenir les numeros de lignes des cellules selectionnees

[SAMWRC]

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]

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

Bonjour,

regarde le code ci-dessous :

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]

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

Bonjour,
Un exemple pour les lignes et colonnes

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

 

[SAMWRC]

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

Ok merci, ca marche parfaitement !

😉

A plus