Mon problème est le suivant:
Sur la feuille 1 sur la ligne 5 j'ai les valeurs suivantes :
Service |ACTION | Données | DAT | ARS | ASC | AST | NET | DMIS | EAS |MDV |
DCP | DPR | DPSA | DPI | DAT |....
Chacune de ces valeurs sont des titres de colonnes. Sauf qu'elles sont
issues d'un tableau dynamqie et donc ne sont pas toujours toutes présentes.
Je veux faire une recherche sur la ligne 5 où se trouvent ces données et
copier les colonnes correspondantes et les coller dans une autre feuille, on
va dire feuille2 où ces colonnes sont toutes présentes et fixes donc je peux
définir exactement l'endroit où je coller la colonne en question.
Par exemple la colonne DAT est en D2, ou DPSA est en V2....
Voici les bouts de code que j'ai :
Range("D5:O5").Select
Selection.Find(What:="NET", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("..:.." & [..65536].End(xlUp).Row).Select
Cela pour copier juste la colonne pleine du tableau.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Michel,
x = Sheets("Feuil1").Rows("5:5").Find(What:="NET", LookAt:=xlWhole).Column y = Cells(65536, x).End(xlUp).Row Sheets("Feuil1").Range(Cells(5, x), Cells(y, x)).Copy _ Destination:=Sheets("Feuil2").Range("H5")
isabelle
Bonjour,
Mon problème est le suivant: Sur la feuille 1 sur la ligne 5 j'ai les valeurs suivantes : Service |ACTION | Données | DAT | ARS | ASC | AST | NET | DMIS | EAS |MDV | DCP | DPR | DPSA | DPI | DAT |.... Chacune de ces valeurs sont des titres de colonnes. Sauf qu'elles sont issues d'un tableau dynamqie et donc ne sont pas toujours toutes présentes. Je veux faire une recherche sur la ligne 5 où se trouvent ces données et copier les colonnes correspondantes et les coller dans une autre feuille, on va dire feuille2 où ces colonnes sont toutes présentes et fixes donc je peux définir exactement l'endroit où je coller la colonne en question.
Par exemple la colonne DAT est en D2, ou DPSA est en V2....
Voici les bouts de code que j'ai : Range("D5:O5").Select Selection.Find(What:="NET", After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse, SearchFormat:úlse).Activate
Range("..:.." & [..65536].End(xlUp).Row).Select Cela pour copier juste la colonne pleine du tableau.
Quelqu'un peut il m'aider?
Je vous en remercie par avance.
bonjour Michel,
x = Sheets("Feuil1").Rows("5:5").Find(What:="NET", LookAt:=xlWhole).Column
y = Cells(65536, x).End(xlUp).Row
Sheets("Feuil1").Range(Cells(5, x), Cells(y, x)).Copy _
Destination:=Sheets("Feuil2").Range("H5")
isabelle
Bonjour,
Mon problème est le suivant:
Sur la feuille 1 sur la ligne 5 j'ai les valeurs suivantes :
Service |ACTION | Données | DAT | ARS | ASC | AST | NET | DMIS | EAS |MDV |
DCP | DPR | DPSA | DPI | DAT |....
Chacune de ces valeurs sont des titres de colonnes. Sauf qu'elles sont
issues d'un tableau dynamqie et donc ne sont pas toujours toutes présentes.
Je veux faire une recherche sur la ligne 5 où se trouvent ces données et
copier les colonnes correspondantes et les coller dans une autre feuille, on
va dire feuille2 où ces colonnes sont toutes présentes et fixes donc je peux
définir exactement l'endroit où je coller la colonne en question.
Par exemple la colonne DAT est en D2, ou DPSA est en V2....
Voici les bouts de code que j'ai :
Range("D5:O5").Select
Selection.Find(What:="NET", After:¬tiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
Range("..:.." & [..65536].End(xlUp).Row).Select
Cela pour copier juste la colonne pleine du tableau.
x = Sheets("Feuil1").Rows("5:5").Find(What:="NET", LookAt:=xlWhole).Column y = Cells(65536, x).End(xlUp).Row Sheets("Feuil1").Range(Cells(5, x), Cells(y, x)).Copy _ Destination:=Sheets("Feuil2").Range("H5")
isabelle
Bonjour,
Mon problème est le suivant: Sur la feuille 1 sur la ligne 5 j'ai les valeurs suivantes : Service |ACTION | Données | DAT | ARS | ASC | AST | NET | DMIS | EAS |MDV | DCP | DPR | DPSA | DPI | DAT |.... Chacune de ces valeurs sont des titres de colonnes. Sauf qu'elles sont issues d'un tableau dynamqie et donc ne sont pas toujours toutes présentes. Je veux faire une recherche sur la ligne 5 où se trouvent ces données et copier les colonnes correspondantes et les coller dans une autre feuille, on va dire feuille2 où ces colonnes sont toutes présentes et fixes donc je peux définir exactement l'endroit où je coller la colonne en question.
Par exemple la colonne DAT est en D2, ou DPSA est en V2....
Voici les bouts de code que j'ai : Range("D5:O5").Select Selection.Find(What:="NET", After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse, SearchFormat:úlse).Activate
Range("..:.." & [..65536].End(xlUp).Row).Select Cela pour copier juste la colonne pleine du tableau.
