Bonjour,
Je cherche à faire une boucle qui recherche un mot en particulier dans une certaine colonne.
Une fois ce mot trouvé, la boucle devrait pouvoir copier l'intégralité des colonnes en relation avec ce mot.
Voici ce que j'ai codé:
colonne = 18
critere_de_copie = "POM"
i = 1
Do While (Cells(i, colonne) <> "")
If Cells(i, colonne) = critere_de_copie Then
Range(Cells(1, 1), Cells(65536, colonne - 1)).Copy
Workbooks.Open Filename:= _
"T:\INFINANCIAL-FTID\PrimeTerminal\Portfolios\Template\PIM GLOBAL OPPORTUNITIES (Trade) - Template.xls" _
, Origin:=xlWindows
Sheets("DataGPMS").Range("A1").Select
ActiveSheet.Paste
Mon problème se situe à la ligne rouge. Je ne sais pas comment sélectionner le contenu des colonnes qui précèdent la 18 et où apparait le mot POM, et SEULEMENT ces colonnes là.
Merci par avance!
Je cherche à faire une boucle qui recherche un mot en particulier dans une certaine colonne.
Une fois ce mot trouvé, la boucle devrait pouvoir copier l'intégralité des colonnes en relation avec ce mot.
Voici ce que j'ai codé:
colonne = 18
critere_de_copie = "POM"
i = 1
Do While (Cells(i, colonne) <> "")
If Cells(i, colonne) = critere_de_copie Then
Range(Cells(1, 1), Cells(65536, colonne - 1)).Copy
Workbooks.Open Filename:= _
"T:\INFINANCIAL-FTID\PrimeTerminal\Portfolios\Template\PIM GLOBAL OPPORTUNITIES (Trade) - Template.xls" _
, Origin:=xlWindows
Sheets("DataGPMS").Range("A1").Select
ActiveSheet.Paste
Mon problème se situe à la ligne rouge. Je ne sais pas comment sélectionner le contenu des colonnes qui précèdent la 18 et où apparait le mot POM, et SEULEMENT ces colonnes là.
Merci par avance!