Bonjour
J'ai une boucle for, dans laquelle, je veux changer les valeurs e m et n par les valeurs du ange
Actuellement seulement le couplé 100,200 apparait
dans le range se trouve 100,200,300,400,500,600,700,800,900,1000
100 200 qui en fait est le couplé 1 2
Sub test()
Dim Tab_couple_a_supprimer(1 To 20, 1 To 1)
Set plage = Sheets("feuil2").Range("Y4:Y23")
Tab_couple_a_supprime = plage.Value
For m = 1 To 17
For n = m + 1 To 18
m = Tab_couple_a_supprime(m, 1)
n = Tab_couple_a_supprime(n, 1)
Next n, m
merci
J'ai une boucle for, dans laquelle, je veux changer les valeurs e m et n par les valeurs du ange
Actuellement seulement le couplé 100,200 apparait
dans le range se trouve 100,200,300,400,500,600,700,800,900,1000
100 200 qui en fait est le couplé 1 2
Sub test()
Dim Tab_couple_a_supprimer(1 To 20, 1 To 1)
Set plage = Sheets("feuil2").Range("Y4:Y23")
Tab_couple_a_supprime = plage.Value
For m = 1 To 17
For n = m + 1 To 18
m = Tab_couple_a_supprime(m, 1)
n = Tab_couple_a_supprime(n, 1)
Next n, m
merci