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