range et cells

Bonjour
Je n'arrive pas à utiliser un code du genre :

Code:

---

Sheets(xMagasin).Range(Cells(linImage, colImage), Cells(linImage + 49, colImage + 39)).Select

---

qui me donne une erreur, même emplacé par plus simple :

Code:

---

1 2	Sheets(xMagasin).Select Range(Cells(1, 1), Cells(25, 25)).Select

---

Alors que le même code dans un classeur tout simple fonctionne.

Auriez-vous une idée
Merci.

Bonsoir,ton code est bon mais certainement que tu n'es pas dans la feuile concernée

Code:

---

1 2	Sheets(xMagasin).activate Range(Cells(linImage, colImage), Cells(linImage + 49, colImage +39)).Select

---

Mais sauf impératif, evites d'employer les select.

Bonne soirée,
PS :c'était ma dernière intervention

Merci casefayre. J'avais essayé 'Activate', mais sans succès.
Il doit y avoir une cause plus lointaine...?

fais un test sur feuille vierge

Code:

---

1 2	'remplace feuil1 par le nom de ta feuille vierge Sheets("feuil1").Range(Cells(1,1), Cells(25, 25)).interior.colorindex = 5

---

Bonsoir Flamel et casefayere.

Tu peux aussi essayer

Code:

---

1 2 3

With Thisworkbook.Worksheets("xMagasin") .Range(.Cells(linImage, colImage), .Cells(linImage + 49, colImage +39)).Select End with

---

Si tu as une feuille qui s'appelle xMagasin.
Et si les variables linImage et colImage sont des entiers naturels.

Cordialement,

PGZ

Bonsoir pgz
je pensais que xmagasin était une variable mais il faut regarder si les cellules sont protégées, au cas ou

Bonsoir,

Citation:

---

Envoyé par casefayere

je pensais que xmagasin était une variable mais il faut regarder si les cellules sont protégées, au cas ou

---

Et tu as peut-être raison, mais il m'a semblé bizarre que le nom de feuille soit dans une variable dans ce contexte.
Je voulais surtout montrer le .Cells. Mais c'est vrai qu'avant un Select, on peut aussi se contenter d'activer la feuille.

Cordialement,

PGZ