XL 2016 Boucle For Next, texte et valeurs

[gege5959]

Bonjour à tous,

Je suis débutant en VBA et je cherche un moyen de comparer des valeurs.

pref1 à pref20 contiennent de valeurs ainsi que pts1 à pts20.

Je souhaite comparer les valeurs pref1 à pref20 aux valeurs pts1 à pts20

Par exemple: si pref1 = pts1 alors j'incrémente y de 1

J'ai fait comme suit mais je compare en fait du texte au lieu de valeurs

For i = 1 To 20

For j = 1 To 20

If "pts" & i = "pref" & j Then y = y + 1

Next j

Next i

Quelqu'un aurait-il une idée? Merci

 

[Nairolf]

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:

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

 

[gege5959]

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:

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

 

[gege5959]

Bonjour,

Merci pour votre réponse; cela fonctionne.

En fait, pref1 est une valeur contenue dans une cellule (pref1= Sheets("PREF").Cells(lig, 1).Value).
En remplaçant pref1 par pref(1) cela fonctionne.

Merci beaucoup, A bientôt !