Select Case Horrible comment simplifier

[Angelo]

voila j'ai fais un bout de code mais ca me parais tres lourd


le voici


Lettre = TextBox1.Value
Select Case Lettre
Case 'A', 'a'
NoColonne = 1
Case 'B', 'b'
NoColonne = 2
Case 'C', 'c'
NoColonne = 3
Case 'D', 'd'
NoColonne = 4
Case 'E', 'e'
NoColonne = 5
Case 'F', 'f'
NoColonne = 6
Case 'G', 'g'
NoColonne = 7
Case 'H', 'h'
NoColonne = 8
Case 'I', 'i'
NoColonne = 9
Case 'J', 'j'
NoColonne = 10
Case 'K', 'k'
NoColonne = 11
Case 'L', 'l'
NoColonne = 12
Case 'M', 'm'
NoColonne = 13
Case 'N', 'n'
NoColonne = 14
Case 'O', 'o'
NoColonne = 15
Case 'P', 'p'
NoColonne = 16
Case 'Q', 'q'
NoColonne = 17
Case 'R', 'r'
NoColonne = 18
Case 'S', 's'
NoColonne = 19
Case 'T', 't'
NoColonne = 20
Case 'U', 'u'
NoColonne = 21
Case 'V', 'v'
NoColonne = 22
Case 'W', 'w'
NoColonne = 23
Case 'X', 'x'
NoColonne = 24
Case 'Y', 'y'
NoColonne = 25
Case 'Z', 'z'
NoColonne = 26

End Select

en gros on récupere une lettre dans un texte box et selon cette lettre je souhaite connaitre le numéro de colonne correspondante

n'y aurai t'il pas plus simple avec une boucle ? ou autre

 

[Hervé]

Bonjour angelo

peut etre comme ceci :

NoColonne = Asc(UCase(TextBox1.Value)) - 64

salut

 

[Angelo]

marche niquel !!

pour info le Ucase ca fais quoi exactement ?

 

[WILFRIED]

Salut angelo,

Petite suggestion pour simplifier un peu :

select case ucase(Lettre)

case 'A'
....
end select

cela t'evite d'entrer les combinaison Maj et minuscule.

Je ne vois pas d'autre méthode pour l'attribution de la position de colonne que le select cas;

désolé.

 

[WILFRIED]

Arf hervé

Tu as été plus rapide que moi et en plus tu as mieux répondu que moi...

Je dois être rouillé depuis le temps car je n'est même pas pensé à la formul asc...

A+

 

[Jeannot45]

Bonjour,

Pour info, UCASE traduit le contenu de la Textbox en Majuscule ce qui permet de taper minuscule ou majuscule dans ta textebox

Jeannot

 

[Angelo]

merci à tous :kiss: