Bonsoir à tous,
je butte sur un petit soucis : je souhaiterai copier une colonne entière qui contient un certain intitulé dans une autre feuille sans aller sur la feuille source. Voici mon code de départ qui va sur la feuille source :
je l'ai transformé en :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Sheets("feuil1").Select Rows("1:1").Select Selection.Find(What:="AFF_CODE", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.EntireColumn.Select Selection.Copy Sheets("feuil2").Select Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False
Je souhaiterai assembler la ligne 1 et la ligne 2 pour supprimer le .activate de la ligne 1. Mais ce code ne fonctionne pas :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Sheets("feuil1").Rows("1:1").Find(What:="AFF_CODE", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate 'ligne 1 ActiveCell.EntireColumn.copy 'ligne2 Sheets("feuil2").Range("A1").Paste Application.CutCopyMode = False
Je suis sûr que ça de doit pas être grand chose mais je ne trouve pas ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Sheets("feuil1").Rows("1:1").Find(What:="AFF_CODE", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).copy
si une bonne âme connait la solution ou une meilleur voie je suis preneur !
Partager