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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas