utilisation de boucle for each
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:
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
