Discussion :

[AurelieB]

Boujour
Apres avoir selectionne plusieurs lignes de ma feuille excel, je desirerais executer une operation (a l'aide d'un bouton) sur ces lignes, l'une apres l'autre.
Je ne sais pas comment parcourir les lignes de ma feuille pour verifier si elles sont selectionnees ou pas.
Merci

[Marc-L]

Bonjour,

voir la propriété Selection et l'instruction For Each par exemple …

Code :

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

1
2
3
4
5
6
7
Sub Demo()
    Dim Ligne As Range
 
    For Each Ligne In Selection.Rows
        Debug.Print Ligne.Address
    Next
End Sub

Pour les cellules :

Code :

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

1
2
3
4
5
6
7
Sub Demo()
    Dim Cel As Range
 
    For Each Cel In Selection
        Debug.Print Cel.Address, Cel.Value
    Next
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[SfJ5Rpw8]

Bonjour,

Il ne faut pas parcourir les lignes de ta feuilles mais ta sélection seulement et vérifier si la ligne entière est sélectionné ..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'
' Boucle sur sélection
'
Sub ParcoursLignes()
 Dim r As Range 'ligne traitée
 Dim mSelection As Range 'Mémorise sélection initiale
 
 Set mSelection = Selection
 For Each r In mSelection.Rows
    If r.EntireRow.Address = r.Address Then
     TraiteLigne r
    End If
 Next
End Sub
 
'
' Procédure traitement ligne
'
Sub TraiteLigne(rl As Range)
  Debug.Print "Traitement de la ligne " & rl.Address
End Sub

Nota : tu peu enlever le test d'égalité adresse si tu dois agir sur une ligne du moment ou au moins une seule ligne et sélecté..

[AurelieB]

Merci a vous tous, vous etes d'une efficacite epoustouflante.