Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,P7😛30000,R7:S30000" jusq'à la dernière ligne NON vide col "E"
En remplaçant "J7:M30000 par jusqu'à dernière ligne,P7😛30000 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...
🙂
 

Pièces jointes

Dernière édition:
Solution
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
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
Solution
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
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 Formule compter les cellules vides lusqu'à la dernière ligne NON vide
Réponses
10
Affichages
1 K
Usine à gaz
  • Résolu(e)
XL 2021 VBA sélectionner 10 lignes sous dernière cellule colonn A NON VIDE
2
Réponses
20
Affichages
1 K
TooFatBoy
  • Résolu(e)
XL 2021 Coller "RdV Fait Facturé" de "J" ligne active jusqu'à "J" dernière ligne NON vide
2
Réponses
27
Affichages
1 K
TooFatBoy
  • Résolu(e)
XL 2021 Affecter la valeur "ok" en colonne "F" uniquement sur les lignes visibles
Réponses
6
Affichages
594
Usine à gaz
L
  • Question Question
Microsoft 365 Report de valeur d'une cellule dans une autre cellule en fonction de la dernière cellule non vide d'une ligne
Réponses
1
Affichages
1 K
sylvanu
M
  • Question Question
Microsoft 365 Formatage conditionnel jusqu'à la dernière cellule non vide.
Réponses
2
Affichages
681
chris
F
  • Question Question
Microsoft 365 Répéter en boucle plusieurs actions VBA
Réponses
7
Affichages
989
Deadpool_CC
S
  • Résolu(e)
Microsoft 365 Conversion csv en xlsm et filtre automatique dernière ligne non vide
2
Réponses
17
Affichages
1 K
sylvanu
C
  • Question Question
Microsoft 365 Copier cellule jusqu'à prochaine cellule non vide sur la plage sélectionnée
Réponses
3
Affichages
4 K
Hasco
  • Résolu(e)
Microsoft 365 Copier ma formule en I2 jusqu'au niveau de la dernière cellule non vide de la colonne H
Réponses
14
Affichages
2 K
Usine à gaz
  • Résolu(e)
Microsoft 365 appliquer formule sur col. A jusqu'à la dernière ligne NON VIDE de col. B
Réponses
2
Affichages
1 K
Usine à gaz
X
  • Question Question
XL 2019 Copier / Coller une ligne entre deux fichiers depuis un 3ème fichier
Réponses
0
Affichages
852
xorf
X
J
  • Question Question
XL 2016 Macro "copier une cellule, coller jusqu'à dernière cellule non-vide "
Réponses
6
Affichages
2 K
JhnnPhl
J
  • Résolu(e)
XL 2019 Effacer la derniere ligne non vide d'un tableau sauf la première
Réponses
3
Affichages
3 K
soan
S
  • Question Question
Microsoft 365 VBA Sélection plages non contigües
Réponses
10
Affichages
1 K
kiki29
  • Question Question
Microsoft 365 rechercher uniquement de g7 jusqu'à la dernière ligne NON vide
2
Réponses
28
Affichages
2 K
job75
  • Question Question
XL 2010 [Resolu]explication sur : trouve dernière ligne non vide même si formule
2
Réponses
17
Affichages
2 K
patricktoulon
D
  • Résolu(e)
XL 2016 CODE VBA POUR DETERMINER LA DERNIERE LIGNE DE LA FEUILLE ACTIVE
Réponses
4
Affichages
3 K
didou78
D
  • Résolu(e)
Microsoft 365 Supprimer des caractères non visibles en passant par une variable tableau
Réponses
5
Affichages
2 K
Patrice33740
  • Question Question
XL 2016 tester la dernière ligne NON vide col A et contrôler si col 20 est NON vide
2
Réponses
15
Affichages
1 K
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…