faire une boucle avec des lettres

[zephir94]

Bonsoir à tous,

J'ai besoin de faire une boucle de D à V
J'ai donc écris ceci mais D ne vaut pas 68 ! D est la 4 eme colonne que diable !
Voici mon code

 For j = 1 To 25
  For t = Asc("D") To Asc("V")
  If Me.Controls("combobox" & j).Value = "Pb AE" Then

Range(t & ligne) = "1"
 End If
 
 Next t
Next j

Merci par avance pour vous pour vos aides

 

[Modeste geedee]

Re : faire une boucle avec des lettres

Bonsour®

peut-être ???? :

For j = 1 To 25
   For t = Asc("D") To Asc("V")
   If Me.Controls("combobox" & j).Value = "Pb AE" Then

 Range(Chr(t) & ligne) = "1"
  End If
  
  Next t
 Next j

??? 🙄

 

[Cousinhub]

Re : faire une boucle avec des lettres

Bonsoir,

Tiré de l'aide...

Asc :
Renvoie une valeur Ce lien n'existe plus qui représente le Ce lien n'existe plus correspondant à la première lettre d’une chaîne.

Donc, D vaut bien 68...

Maintenant, si tu enlèves 64 à cette valeur....
Peut-être.....

Bonne soirée

 

[zephir94]

Re : faire une boucle avec des lettres

Merci beaucoup c'est exactement ça merci beaucoup et bonne soirée