selection

[manulemalin13000]

Bonjour,

Dans une feuille excel comment fait on pour selectionner une ligne sur 2 independemment de ce que les cellules contiennent ?
Merci

 

[Guest]

Re : selection

Bonjour,

La macro suivante sélectionne les lignes paires de la plage de cellules utilisées dans la feuille active.

Sub SelectLignePaires()
Dim plage As Range, r As Range
For Each r In ActiveSheet.UsedRange.Rows
    If r.Row Mod 2 = 0 Then
        If plage Is Nothing Then
            Set plage = r
        Else
            Set plage = Union(plage, r)
        End If
    End If
Next
If Not plage Is Nothing Then plage.Select
End Sub

Si cela ne convient pas, précises ta demande.

A+

 

[manulemalin13000]

Re : selection

Merci de ta reponse Hasco,

Je cherche plus une macro du style:

Une ligne sur x (x varie selon le fichier que je traite) selectionne toute les lignes

Donc par exemple une ligne sur 4 ou une ligne sur 9

Merci

manu

 

[manulemalin13000]

Re : selection

Re,

Ou bien si une cellule dans la colonne A contient "toto" alors selectionne toute la ligne

Manu

 

[Guest]

Re : selection

Re,

Pour la première demande:

Sub SelectionLignes()
Dim plage As Range, r As Range
Dim Incr As Integer
Incr = InputBox("Valeur du pas de lignes ", "Sélectionner une ligne sur n")
If Val(Incr) < 0 Or Val(Incr) > 20 Then Exit Sub
For Each r In ActiveSheet.UsedRange.Rows
    If r.Row Mod Incr = 0 Then
        If plage Is Nothing Then
            Set plage = r
        Else
            Set plage = Union(plage, r)
        End If
    End If
Next
If Not plage Is Nothing Then plage.Select
End Sub

A+

 

[manulemalin13000]

Re : selection

Merci ca marche tres bien.
Merci pour ton aide et ton temps

Manu