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

Sélection d'une plage avec adresse dernière cellule (VBA)

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

Vorens

XLDnaute Occasionnel
Je désire sélectionner un plage en fonction de la dernière ligne remplie de mon tableau.

J'ai fait le code suivant mais une erreur #400 se produit à la dernière ligne. Je suppose qu'on ne peut l'ecrire comme sa. Es ce que quelqu'un connait la bonne syntaxe?

Code:
Sub Graph()

Dim NoLastCell As Integer

Sheets("00439").Activate
Range("a1").Select
Selection.End(xlDown).Select
NoLastCell = ActiveCell.Row
Cell1 = "A" & NoLastCell
Cell2 = "H" & NoLastCell
Rows(Cell1 & ":" & Cell2).Select




End Sub


Merci pour votre aide


Cordialement

Vorens
 
Re : Sélection d'une plage avec adresse dernière cellule (VBA)

Bonjour Vorens,
Une proposition:
VB:
Sub Graph()
Sheets("00439").Activate
Rows(Sheets("00439").Range("a1").End(xlDown).Row).Select
End Sub
Cordialement
 
Re : Sélection d'une plage avec adresse dernière cellule (VBA)

Re,

Merci pour la réponse, Cela sélectionne bien la dernière ligne mais je désire sélectionner les cellules de A à H de cette ligne pour pouvoir y copier / coller les infos ailleurs or en sélectionnant la ligne entière, je me vois copier toutes les colonnes de la feuille et je les copies dans un tableau qui commence à la colonne J donc je me vois embêté par la limite de la feuille.

Comment puis-je sélectionner uniquement les colonnes de A à H ?
 
Re : Sélection d'une plage avec adresse dernière cellule (VBA)

Re
Une autre proposition:
VB:
Sub Graph2()
Dim NoLastCell As Long
With Sheets("00439")
    .Activate
    NoLastCell = .Range("a1").End(xlDown).Row
    .Range("A" & NoLastCell & ":H" & NoLastCell).Select
End With
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

L
Réponses
1
Affichages
1 K
L
T
Réponses
4
Affichages
6 K
ThomasGLT
T
A
Réponses
1
Affichages
4 K
Antoine C.
A
F
Réponses
5
Affichages
2 K
Fariri
F
V
Réponses
2
Affichages
2 K
vynmarius
V
F
Réponses
3
Affichages
2 K
FéFéClochette
F
C
Réponses
1
Affichages
1 K
C
M
  • Question Question
Réponses
0
Affichages
1 K
Mirguy23
M
L
Réponses
21
Affichages
8 K
las-dias
L
T
Réponses
4
Affichages
2 K
D
Réponses
2
Affichages
577
D
Réponses
3
Affichages
2 K
demonsares
D
R
Réponses
7
Affichages
2 K
R
B
Réponses
1
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…