XL 2021 Sélectionner plusieurs plages jusqu'à la dernière ligne NON vide en col "E"

Usine à gaz · 10 Février 2024

Bjr à toutes et à tous

Je n'arrive pas à coder correctement :
Sélectionner plusieurs plages (cellules visibles) jusqu'à la dernière ligne NON vide en col "E"

Besoin : Je voudrais sélectionner "J7:M30000,P730000,R7:S30000" jusq'à la dernière ligne NON vide col "E"
En remplaçant "J7:M30000 par jusqu'à dernière ligne,P730000 par jusqu'à dernière ligne,R7:S30000 par jusqu'à dernière ligne"

J'ai tenté des codes sans résultat.

Mon code "pas bon" :

VB:

Sub sélection()
Application.EnableEvents = False
    Range("J7:M[B]30000[/B],P7:P[B]30000[/B],R7:S[B]30000[/B]").SpecialCells(xlCellTypeVisible).Select  'Selectionne cellules visibles
    Application.EnableEvents = True
    Exit Sub
End Sub

Pourriez-vous m'aider ?
Un grand merci à toutes et à tous
Je joins un petit fichier test et je continue mes recherches...

sylvanu · 10 Février 2024

Bonjour Lionel,
Essayez avec :

VB:

Sub sélection()
Application.EnableEvents = False
    DL = Range("E100000").End(xlUp).Row
    Set Plage = Application.Union(Range("J7:M" & DL), Range("P7:P" & DL), Range("R7:S" & DL))
    Plage.SpecialCells(xlCellTypeVisible).Select 'Selectionne cellules visibles
    Application.EnableEvents = True
End Sub

sylvanu · 10 Février 2024

Bonjour Lionel,
Essayez avec :

VB:

Sub sélection()
Application.EnableEvents = False
    DL = Range("E100000").End(xlUp).Row
    Set Plage = Application.Union(Range("J7:M" & DL), Range("P7:P" & DL), Range("R7:S" & DL))
    Plage.SpecialCells(xlCellTypeVisible).Select 'Selectionne cellules visibles
    Application.EnableEvents = True
End Sub

Usine à gaz · 10 Février 2024

Bjr sylvanu

Merci pour ce code.
Essai réussi....
Merci encore une fois.

Usine à gaz · 10 Février 2024

Re
Bizarre pour moi lol
Dans mon fichier de travail :

Pourtant, j'ai juste copié ton code

sylvanu · 10 Février 2024

Si vous avez en tête de macro "Option explicit" alors rajoutez "Dim DL as Long, Plage as Range"

VB:

Option explicit
Sub sélection()
Dim DL As Long, Plage As Range
Application.EnableEvents = False
DL = Range("E100000").End(xlUp).Row
Set Plage = Application.Union(Range("J7:M" & DL), Range("P7:P" & DL), Range("R7:S" & DL))
Plage.SpecialCells(xlCellTypeVisible).Select 'Selectionne cellules visibles
Application.EnableEvents = True
End Sub

Usine à gaz · 10 Février 2024

Merci
C'est bon

XL 2021 Sélectionner plusieurs plages jusqu'à la dernière ligne NON vide en col "E"

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Discussions similaires