Bonjour,
J'aimerais copier des colonnes suivant leur nom dans une autre feuille Excel.
Exemple:
Nom | Prénom | Age | Ville
Robert | Luis | 45 | Chalons
Villenave | Thierry | 34 | Tours
Babel | Alexis | 26 | Chartres
Je n'aimerais copier que les colonnes Nom et Ville par exemple, et les coller sur la Feuil2, respectivement en colonne A et B simplement.
J'arrive à trouver les colonnes désirées et à inscrire le numéro de la colonne (1,2,3 etc) mais comment faire pour sélectionner la colonne jusqu'à la dernière valeur non vide et la copier pour la coller dans Feuil2??
Mon code:
Merci du coup de pouce par avance!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub Macro1() Cells.Find(What:="Product Type", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate Num_Col = ActiveCell.Column Columns(Num_Col).Select End Sub
Partager