Masquer une sélection discontinue

[Etienne2323]

Bonjour à tous,
j'aimerais savoir s'il existe une manière de masquer simultanément plusieurs lignes discontinues qui sont sélectionnées, et ce, sans passer par une boucle ?

Par exemple, j'ai les lignes 1 3 7 et 10 qui sont sélectionnées et j'aimerais, par VBA, les masquées toutes en même temps.

Merci d'avance !

Étienne

 

[Gael]

Re : Masquer une sélection discontinue

Bonsoir Etienne,

Peut-être simplement avec:

Selection.EntireRow.Hidden = True

@+

Gael​

 

[mth]

Re : Masquer une sélection discontinue

Bonsoir Etienne 🙂

Avec les lignes sélectionnées, peut-être avec ça ? :

Sub masque()
With ActiveSheet
    Selection.Rows.Hidden = True
End With
End Sub

@ +

mth

Edit: 🙂 🙂 Bonsoir Gael 🙂 🙂
Bien contente de te croiser 🙂 ce n'est pas si souvent ! 🙂
Grosse bise 🙂
Mireille

 

[Etienne2323]

Re : Masquer une sélection discontinue

Bonsoir Gael, Mireille 🙂,
une fois de plus, avec vos réponses, je me rends compte que je cherchais beaucoup trop loin. J'étais en train de trouver une solution avec des Union et Array.

Bref, en me basant sur vos exemples, voici une solution qui me convient.

Sub Masquer_des_lignes()
 
    Dim DerLig As Integer, i As Integer
    Dim Mon_Range
    
    DerLig = Cells(65536, 1).End(xlUp).Row
    
    For i = 1 To DerLig
        If Cells(i, 1).Value <> "" Then
            Mon_Range = Mon_Range & "," & Cells(i, 1).EntireRow.Address
        End If
    Next
    
    Mon_Range = Mid(Mon_Range, 2, Len(Mon_Range) - 1)
    Range(Mon_Range).EntireRow.Hidden = True

End Sub

Encore une fois, merci beaucoup !

Cordialement,

Étienne

 

[Pierrot93]

Re : Masquer une sélection discontinue

Bonjour à tous,

une autre solution, afin de masquer les lignes dont la cellule de la colonne A contient une constante, le "on error resume next" au cas ou aucune cellule ne répondrait au critère :

On Error Resume Next
Range("A1", Range("A65536").End(xlUp)).SpecialCells(xlCellTypeConstants).EntireRow.Hidden = True
On Error GoTo 0

bonne journée
@+