Vba selection derniere ligne&colone

  • Initiateur de la discussion Initiateur de la discussion F2T
  • 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 !

F2T

XLDnaute Occasionnel
Bonjour,

quelqu'un connaitrais t'il un code qui permetrait de selectionner une plage de donné repondant au critere suivant :

Selection derniere ligne rempli
Selection derniere colonne rempli

Pour exemple mon code:

Range("A1").End(xlDown).Select
Range("A1").End(xlToLeft).Select

mais ne fontionne pas 🙁

Merci pour l'aide si possible
 
Re : Vba selection derniere ligne&colone

Bonjour

Pour la dernière cellule renseignée de la colonne A :

Code:
Range("A65536").End(xlUp).Select

dernière cellule renseignée sur la ligne 1 :

Code:
Range("IV1").End(xlToLeft).Select

entre autres...

bon après midi
@+
 
Re : Vba selection derniere ligne&colone

Bonsoir,

re- Pierrot

pour sélectionner la dernière cellule :

Code:
With ActiveSheet
    .Cells(.Cells.Find("*", , , , xlByRows, xlPrevious).Row, .Cells.Find("*", , , , xlByColumns, xlPrevious).Column).Select
End With

Bonne soirée
 
Re : Vba selection derniere ligne&colone

Bonjour F2T, Pierrot93, bhbh,
Une version pour selectionner la plage en partant de A1:

Code:
Sub Der_cel()
Derligne = Range("A" & Application.Rows.Count).End(xlUp).Row
Dercol = Sheets("Feuil1").Cells(1, Application.Columns.Count).End(xlToLeft).Column
Range(Cells(1, 1).Address & ":" & Cells(Derligne, Dercol).Address).Select
End Sub
Cordialement
 
Re : Vba selection derniere ligne&colone

Ok merci beaucoup pour votre aide.

J'ai essayer la derniere methode et cela fonctionne 🙂🙂

Serait il possible de partir de la cellule A2.

Car la ligne 1 contient les titres.

Cela n'est point essentiel, je peux m'arranger sans.

Muchas Gracias 🙂🙂
 
Re : Vba selection derniere ligne&colone

Re à tous,
Pour partir de A2 :
Code:
Sub Der_cel()
Derligne = Range("A" & Application.Rows.Count).End(xlUp).Row
Dercol = Sheets("Feuil1").Cells(1, Application.Columns.Count).End(xlToLeft).Column
Range(Cells([COLOR=red][B]2,[/B][/COLOR] 1).Address & ":" & Cells(Derligne, Dercol).Address).Select
End Sub
Cordialement
 
- 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

Réponses
2
Affichages
398
Réponses
21
Affichages
2 K
L
Réponses
1
Affichages
1 K
L
Réponses
7
Affichages
987
O
  • Résolu(e)
Microsoft 365 Lien hypertexte
Réponses
21
Affichages
2 K
Retour