Discussion :

[jomaly56]

Bonjour à tous,

Je souhaite sélectionner l'ensemble des données d'un tableau.
L'entête du tableau (titres des colonnes) est sur la ligne 5.
Les données à sélectionner sont sous cette ligne et jusqu'à la colonne F.

Pour cela je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A6:F" & Range("F65000").End(xlUp).Row).Select

Tout se passait bien, jusqu'à ce que j’effectue le test tableau vide...
Dès lors, le Range sélectionne la ligne 6 ET la ligne 5 jusque F. Donc l'entête du tableau.
Très contraignant car par la suite j’effectue un Paste dans un tableau similaire sur une autre feuille.

J'ai testé xlDown à la place du xlUp sauf qu'un tas de cellules vides sont sélectionnées.

Pour résumer, je veux sélectionner les données du tableau, que si celui si est rempli (au moins une ligne).
En énonçant mon problème je songe à une solution de test de cellule vide.

N'y a-t-il pas un Range qui sélectionne que la première ligne de mon tableau ?

J'espère avoir été compréhensible.
Merci d'avance pour votre aide.

[parmi]

Bonjour,

Tu pourrais faire un test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim nbLignes as long
nbLignes = Cells(Rows.Count,"A").end(xlup).row
If nbLignes > 5 then
   Range("A6:F" & nbLignes).Select
End if

[casefayere]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A6", Range("F" & Rows.Count).End(xlUp)).Select

en espèrant que le "Select" n'est qu'un exemple

EDIT : pas vu ta réponse Parmi

[jomaly56]

Super ! Merci à vous deux !

Ta solution fonctionne parfaitement Parmi.
En revanche Casefayere, j'ai le même soucis qu'avant avec ta solution. PB : si la ligne 6 est vide, alors on sélectionne la ligne 6 ET la ligne 5 (de titre).

Merci d'avoir prit le temps.