Selectionner une plage à la suite d'une boucle

[blabal2]

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!

 

[Pierrot93]

Re : Selectionner une plage à la suite d'une boucle

Bonjour,

essaye peut être ainsi, si j'ai bien compris... pas sûr...

Cells(i, 1).Resize(1, 17).Copy

bon après midi
@+

 

[blabal2]

Re : Selectionner une plage à la suite d'une boucle

Oui je me suis peut être mal exprimé.

En fait je voudrais pouvoir copier le contenu des colonnes 1 à 17 de ma feuille, lorqu'en colonne 18 il y a écrit POM. S'il y a écrit autre chose que POM en colonne 18 je ne veux pas copier.

C'est faisable?

Merci beaucoup en tout cas!