Range & cells

[Pitoo]

Bonjour a tous,

Une petite question car ca me rend fou, et car bien souvent il vaut mieux demander plutot que s'acharner...

Pourquoi ce bout de code tout simple ne marche pas dans ma macro ?

ThisWorkbook.Worksheets('SPR9 ON').Range(Cells(i, 3), Cells(i, m)).Select

Ou i et m sont des entiers, i fait tourner ma boucle et m est un nombre de mois donc de colonnes (limpide, non ?)

Merci d'avance !

Pitoo

Message édité par: pitoo, à: 29/11/2005 08:37

Message édité par: pitoo, à: 29/11/2005 08:38

 

[PascalXLD]

Bonjour

Si tu es vraiment obligé de selectionne tes cellules as-tu essayé d'abord de selectionner ta feuille puis tes cellules

ThisWorkbook.Sheets('SPR9 ON').Select
Range(Cells(i, 3), Cells(i, m)).Select

 

[Pitoo]

salut Pascal,

je dois jongler entre le workbook contenant ma macro (thisworkbook) et le workbook vers lequel je veux envoyer des donnees (activeworkbook) donc je veux selectionner une plage definie par des variables de boucle, et la copier-coller dans le workbook de reception...

J'ai essaye plein de solutions, toutes me renvoient une erreur 1004, je deviens fou !

 

[PascalXLD]

re

essaies en selectionnant

ThisWorkbook.Activate
Sheets('SPR9 ON').Select
Range(Cells(i, 3), Cells(i, m)).Select

Et dis si ça marche

 

[Pitoo]

Bien vu, ca fonctionne comme ca, en fait la macro ne veut pas tolerer les longues phrases, et je suis oblige de tout detailler a chaque fois que je veux selectionner une feuille, une plage, la copier, etc.

Merci !

 

[Pitoo]

je corrige ce que je viens de dire, ca ne marche pas, a chaque fois une erreur nouvelle survient, a differents endroits, et a chaque fois sur la confusion possible entre thisWorkbook et activeWorkbook

je vais tenter autre chose... merci de votre aide !