Erreur de déclaration ?

Bonjour à toutes et à tous,

je rencontre un petit pb d'exécution de vba. Je dois faire une erreur de débutant dans mes déclarations ou mes affectations de variables ...

morceau de code ci-dessous qui pose pb

"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 26/02/2009 par Nico ' Dim ra_pla As Range, ra_tcd As Range, cel_tcd As Range, cel_pla As Range Dim derlg_tcd As Integer, derlig_pla As Integer Application.EnableEvents = False derlig_tcd = Worksheets("Of ouverts").Range("a65536").End(xlUp).Row If derlig_tcd < 13 Then derlig_tcd = 13 ra_tcd = Sheets("Of ouverts").Range("A13:A" & derlig_tcd) derlig_pla = Sheets("Planning").Range("b65536").End(xlUp).Row If derlig_pla < 13 Then derlig_pla = 13 range_pla = Sheets("Planning").Range("A13:A" & derlig_pla)

---

"
Pas de pb en compilation, mais en éxecution la ligne rouge bloque (erreur 91)
Mon objectif est de définir une plage de cellules de deux feuilles différentes sur lesquelles je dois ensuite faire des manips.

Si vous avez une petite seconde pour identifier mon erreur, ce serait très sympa.

Merci d'avance

Bonjour.

ra_tcd est de type Range. Cela devrait donc être

Code:

---

Set ra_tcd = Sheets("Of ouverts").Range("A13:A" & derlig_tcd)

---

et mieux:

Code:

---

Set ra_tcd = Thisworkbook.WorkSheets("Of ouverts").Range("A13:A" & derlig_tcd)

---

Cordialement,

PGZ

Citation:

---

Envoyé par pgz

Bonjour.

ra_tcd est de type Range. Cela devrait donc être

Code:

---

Set ra_tcd = Sheets("Of ouverts").Range("A13:A" & derlig_tcd)

---

et mieux:

Code:

---

Set ra_tcd = Thisworkbook.WorkSheets("Of ouverts").Range("A13:A" & derlig_tcd)

---

Cordialement,

PGZ

---

Merci beaucoup PGZ, je vais tester et certainement solutionner mon pb.:mouarf:

Ancien programmeur en Turbo_pascal je rencontre de notables difficultés avec les syntaxes VBA.:cry:

Bonne fin de WE