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

Pb selection plage variable!

  • Initiateur de la discussion Initiateur de la discussion jerem13
  • Date de début Date de début

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 !

J

jerem13

Guest
Bonjour a tous, je debute en vba et je bloque sur les variables voici mon probleme.

Dim der As Long
Dim prem As Long

der = Range("A65536").End(xlUp).Offset(0, 4)
prem = Range("E65536").End(xlUp).Offset(1, 0)

Range("E" & prem & der).Select

Explication du code:

la variable prem c'est la première cellule vide de la colonne E
la variable der c'est la cellule de la colonne E qui est située au même niveau que la dernière cellule pleine de la colonne A.

Mon objectif parvenir à selectionner la plage de cellule variable (de prem à der), c'est la que je suis bloqué.

Merci de votre attention.

Ce sujet est dans la continuité de mon précéent probleme qui n'a pas trouvé de solution, c'est dans cette optique que j'essaye de contourner ce problème.

https://www.excel-downloads.com/thr...a-la-derniere-cel-de-la-col-de-gauche.105935/
 
Dernière modification par un modérateur:
Re : Pb selection plage variable!

bonjour jerem13

A tester:

Code:
der = Range("A65536").End(xlUp).Offset(0, 4).Row
prem = Range("E65536").End(xlUp).Offset(1, 0).Row
Range("E" & prem & ":E" der).Select

Edit Salut hasco
 
Re : Pb selection plage variable!

Merci pour vos réponses.

la dernière fonctionne (faut juste rajouter & entre [:E" et der]),
c'est génial, merci beaucoup
 
Dernière modification par un modérateur:
Re : Pb selection plage variable!

Re

Toutes mes excuses:

Voila qui doit etre meilleur

Code:
der = Range("A65536").End(xlUp).Offset(0, 4).Row
prem = Range("E65536").End(xlUp).Offset(1, 0).Row
Range("E" & prem & ":E" & der).Select
 
Re : Pb selection plage variable!

Bonjour,

salut Pierrejean 🙂 et Hasco 🙂

avec le code d'Hasco :

Code:
Dim der As Range, prem As Range
Set der = Range("A65536").End(xlUp).Offset(0, 4)
Set prem = Range("E65536").End(xlUp).Offset(1, 0)
Range(prem, der).Select
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
15
Affichages
793
Réponses
5
Affichages
917
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…