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

[Vorens]

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?

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

 

[Efgé]

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

Bonjour Vorens,
Une proposition:

Sub Graph()
Sheets("00439").Activate
Rows(Sheets("00439").Range("a1").End(xlDown).Row).Select
End Sub

Cordialement

 

[Vorens]

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 ?

 

[Efgé]

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

Re
Une autre proposition:

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

 

[Vorens]

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

Là je dit OUI !

Exactement ce qu'il me fallait, merci bcp à toi =)

Bonne journée

Cordialement

 

[julberto]

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

Bonjour Vorens,

Ou cela :

Sub Graph()
Sheets("00439").Range("a1:h" & Sheets("00439").Range("a1").End(xlDown).Row).Select
End Sub

cordialement

Oups ! Trop tard. Bonjour Efgé