utilisation de boucle for each

**mrah1** · 21/02/2009, 13h33

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

**Godzestla** · 21/02/2009, 14h58

Salut,
ta syntaxe est mauvaise car tu ne dois pas utiliser de quotes.

Essaie ceci :

Code :

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

1
2
 
For Each cell_tu In plage_tu

**mrah1** · 21/02/2009, 16h54

OK merci, mon code modifié

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
25
26
27
28
 
Sub remplissage_tu()
'remplissage des temps unitaire
 
Dim plage_tu As Range, colonne_active As Range, ligne_active As Range
Dim cell_tu
Dim op As String
Dim type_chassis As String
Dim La As Integer
Dim Ca 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 plage_tu.Cells
    Ca = cell_tu.Column
    La = cell_tu.Row
    Set colonne_active = Columns("Ca:Ca")
    Set ligne_active = Rows("La:La")
    op = Application.Intersect(colonne_active, Range("nom_op")).Value
    type_chassis = Application.Intersect(ligne_active, Range("nom_gamme")).Value
    cell_tu = temps_unitaire(op, type_chassis) 'appel à la fonction temps_unitaire
 
Next cell_tu
End Sub

maintenant j'ai une autre erreur à la ligne
Set ligne_active = Rows("La:La")

c'est bizarre, l'exécution ne signale pas d'erreur à la ligne au dessus
Set colonne_active = Columns("Ca:Ca")

une idée ? (je débute)