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".
Merci pour votre aide
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
Partager