Select Case Horrible comment simplifier

  • Initiateur de la discussion Initiateur de la discussion Angelo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

Angelo

Guest
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
 
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é.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
169
Réponses
5
Affichages
131
  • Question Question
Microsoft 365 Traitement
Réponses
7
Affichages
131
Réponses
25
Affichages
618
Réponses
5
Affichages
568
Réponses
5
Affichages
401
Retour