Discussion :

[marco858]

Bonjour,

j'ai créé le programme suivant qui compare la valeur de cellule et il bloque à la 5° ligne en affichant "Problème erreur d'exécution '9' l'indice n'appartient à la sélection".

Code :

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

1
2
3
4
5
6
7
8
9
10
i = 5
Do
j = 6
Do
If Worksheets(Fabrication_routings).Cells(i, 33) = Worksheets(Tools_items_to_create).Cells(j, 8) Then Worksheets(Fabrication_routings).Cells(i, 34) = Worksheets(Tools_items_to_create).Cells(j, 2)
j = j + 1
Loop Until Worksheets(Tools_items_to_create).Cells(j, 1) = ""
i = i + 1
Loop Until Worksheets(Fabrication_routings).Cells(i, 2) = ""
End Sub

Merci pour votre aide

[fring]

Bonjour,

Si Fabrication_routings et Tools_items_to_create sont les noms des feuilles, il faut ajouter des guillemets

Code :

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

Worksheets("Fabrication_routings")

[marco858]

quel oubli !
Merci