XL 2016 Boucle For Next, texte et valeurs

Nairolf à dit:

Salut et bienvenue,

Avec un fichier ça serait plus facile pour toi d'avoir une réponse la plus précise correspondant à ton besoin.

Je te conseille d'utiliser un tableau pour comparer tes valeurs, par exemple (taper à la volée sans tester), comme suit:

VB:

Dim pref(1 To 20)
Dim pts(1 To 20)
pref(1)=1
pts(1)=2
...
For i = 1 To 20
   For j = 1 To 20
      If pts(i)=pref(j) Then y=y+1
   Next j
Next i

Cliquez pour agrandir...