bonjour,

je voudrais remplir un tableau en parcourant chacune des cellules avec la boucle for each.
je butte sur le message "erreur d'exécution 1004 la méthode 'range' de l'objet '_global a échoué"

je n'arrive pas à identifier d'où ça vient.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub remplissage_tu()
'remplissage des temps unitaire
 
Dim plage_tu As Range
Dim cell_tu
Dim op As String
Dim type_chassis As String
Dim La As Integer
Dim Ca As Integer
Dim L As Integer
 
 
Worksheets("charge").Activate
ligne = Sheets("charge").Range("L65536").End(xlUp).Row 'nombre de ligne non vide du tableau
L = ligne
Set plage_tu = Sheets("charge").Range(Cells(6, 17), Cells(L, 23)) 'plage à parcourir
For Each cell_tu In Range("plage_tu").Cells
Ca = cell_tu.Column
La = cell_tu.Row
op = Application.Intersect(Columns("Ca:Ca"), Range("nom_op")).Value
type_chassis = Application.Intersect(Rows("La:La"), Range("nom_gamme")).Value
cell_tu = temps_unitaire(op, type_chassis) 'appel à la fonction temps_unitaire
Next cell_tu
End Sub
l'exécution s'arrête au niveau la ligne:
For Each cell_tu In Range("plage_tu").Cells
et affiche le message ci dessus

Merci de vos conseils éclairés