Discussion :

[mrah1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

Bonjour.

C'est soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

capa_op = Cells(l, 4).Value

Cordialement,

PGZ

[mrah1]

j'ai trouvé !

la modification suivante fonctionne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci

[mrah1]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

Alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

capa_op = Cells(l, 4)

devrait marcher aussi.
Pour l'autre pb, essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement,

PGZ