Discussion :

[Melhiril]

Bonjour,

Pour les besoins de mon entreprise, j'essaie de créer une macro VB (je suis débutante) qui me permet de sélectionner un tableau dont le nombre de lignes peut varier (mais pas les colonnes) selon les données. Je voudrais donc sélectionner uniquement les lignes où il y a des données pour faire ensuite un tri sur une des colonnes.

Je n'arrive pas à trouver le code adéquat pour sélectionner tout le tableau sans prendre les lignes sans valeur (mais qui contiennent des formules).
Quelqu'un peut-il m'aider ?

Merci d'avance.

Melhiril

[JOHN14]

Bonjour,
Le plus simple est de nommer l'aire du tableau + 1 ligne dans le fichier initiale.
Cette ligne supplémentaire sert à étendre automatiquement l'aire nommée quand l'utilisateur insère une ligne.

Pour le copier dans le nouveau fichier il suffit ensuite de faire :
fichier 1 : Range("MonTableauNommé").copy et
fichier 2 : Cellulechoisie. Paste

et c'est tout !

bien Cordialement

[Melhiril]

Merci JOHN14 pour ta réponse.
J'ai bien compris ton idée, mais si justement il y a moins de données dans mon tableau ? Le fait de nommer l'aire va tout sélectionner même les lignes vides non ? Je précise que les utilisateurs n'ajouteront ni ne supprimeront de lignes, c'est pour ça que j'ai mis des formules prédéfinies sur un certain nombre de lignes pour anticiper.

J'ai l'impression que je me suis un peu compliquée

[Invité]

Bonjour,

Je ne suis pas certain d'avoir bien compris votre problème, mais est-ce que cela ne suffirait pas :

Code :

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

1
2
dl = Range("A2").CurrentRegion.End(xlDown).Row
Range("A2:F" & dl).Select

[Melhiril]

Ce code fonctionne très bien sur mon fichier d'exemple.
Par contre, lorsque je l'applique sur mon vrai fichier, la sélection ne se fait pas, il ne prend que la première ligne Je ne comprends pas d'où vient le problème...

Merci pour votre aide, je ne suis pas très douée!

[Invité]

Il faudrait préciser :

1) quelle est la différence entre votre fichier exemple et votre fichier réel ?

2) avez-vous par exemple une ligne vide entre la ligne de titre et la première ligne de données (et peut-être d'autres lignes vides) ?

Quand je parle de lignes vides, elles peuvent contenir des formules, mais pas de données en colonne "A".

Pour voir la différence, si votre fichier réel a la même structure au niveau des colonnes que le fichier exemple, essayez :

DerniereLigne = Range("A1").End(xlDown).Row