[E-07] erreur '1004' vba Excel (suite)

Bonjour,

J'ai de nouveau une erreur '1004' que je n'arrive pas à déboguer. Sur les problèmes précédents j'ai pu debloquer avec la déclaration de l'attachement de l'objet range en question.

Ci après les messages qui apparaissent:

"La méthode 'Range de l'objet '_Global a échoué"



Voici l'extrait du code à l'endroit où ça coince:

Code:

---

1 2 3 4

wshCapa.Activate Set tableau_capa = wshCapa.Range("tab_capa") l = tableau_capa.Find(monOp(n)).Row capa_op = Range(Cells(l, 4)).Value

---

Ca coince au niveau de la ligne "capa_op = Range(Cells(l, 4)).Value"

Quand je parcours la ligne surlignée en jaune lors du débogage, les valeurs des variables sont pourtant bonnes.

voici les déclarations

Code:

---

1 2 3 4 5 6 7 8

Dim n As Integer, l As Integer Dim capa_op As Single Dim monOp Dim tableau_capa As Range   Dim wshCapa As Excel.Worksheet   Set wshCapa = Application.ThisWorkbook.Worksheets("capacités")

---

(je suis sous EXCEL 2007)

Un conseil ?

Merci

Bonjour.

C'est soit

Code:

---

capa_op = Range(Cells(l, 4), Cells(...)).Value

---

soit

Code:

---

capa_op = Cells(l, 4).Value

---

Cordialement,

PGZ

j'ai trouvé !

la modification suivante fonctionne:

Code:

---

capa_op = Range(Cells(l, 4), Cells(l, 4))

---

Merci

J'ai un autre problème qquelques lignes plus loin:

Code:

---

1 2	Set tu_op = wshO.Range(Cells(6, c), Cells(5 + nbligne, c)) charge = Application.WorksheetFunction.SumProduct(qte_i, tu_op)

---

toujours l'erreur 1004 à la ligne "tu_op..."

A l'aide PZG !

Merci d'avance

Alors

Code:

---

capa_op = Cells(l, 4)

---

devrait marcher aussi.
Pour l'autre pb, essaie

Code:

---

Set tu_op = wshO.Range(wshO.Cells(6, c), wsho.Cells(5 + nbligne, c))

---

Cordialement,

PGZ