Discussion :

[yobor]

bonjour ,
j'ai un petit problème de sélection , je fais une recherche par nom dans une feuil " base de données " sur une colonne (par exemple: étudiant ), après je conserve l'indice de la colonne i ,je situe sur la cellule (1,i ) avec " Cells(1,i).select " et j'ai besoin de sélectionner tous les éléments de cette colonne pour les copier dans une autre feuil "Etudiants", l'instruction " Range(Selection, Selection.End(xlDown)).Select " ne marche pas, elle sélectionne seulement un partie des éléments !! Comment faire svp et merci d'avance ??
voici mon code :

Code :

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

1
2
3
4
5
6
Cells(2, i).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    sheets("destination").Select
    Range("A2").Select
    ActiveSheet.Paste

[Jean-Philippe André]

Salut,

le xlDown n'est pertinent que si toutes tes lignes sont occupees.

La syntaxe que l'on preconise est plutot d'utiliser xlup en partant "d'en bas" :

Code :

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

1
2
Cells(2, i).Select
    Range(Selection, Cells(65536,i).End(xlUp)).Select

De plus, la selection n'est pas utile en soit, tu peux t'en passer :

Code :

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

1
2
3
    Range(Cells(2, i), Cells(65536, i).End(xlUp)).Copy
    sheets("destination").Range("A2").Select
    ActiveSheet.Paste

(encore optimisable selon moi =])

[yobor]

merci beaucoup jpcheck, ça marche bien