Simplification de programme

Bonjour à toutes et tous....

je suis en train de réaliser un programme et je pense que je suis lourd et même très lourd:

alors voici en exemple une toute petite partie de ce que je suis en train de réaliser:

If z = 2 Then

base = C

Else

If z = 3 Then

base = D

Else

If z = 4 Then

base = E

Else

If z = 5 Then

base = F

Else

If z = 6 Then

base = G

Else

If z = 7 Then

base = H

Else

If z = 8 Then

base = i

Else

If z = 9 Then

base = j

Else

If z = 10 Then

base = k

Else

Auriez-vous une idée svp, afin de simplifier ce programme?

si oui tant mieux sinon je devrais continuer à le faire ainsi....

Par avance merci...

Bonjour,

Tu peux t'inspirer de cette macro

Sub Test()
Dim TBase
Dim Reponse As String
    TBase = Array("C", "D", "E", "F", "G", "H", "I", "J", "K")
    Reponse = InputBox("Valeur de z ?")
    MsgBox "Base = " & TBase(Reponse - 2)
End Sub

A+

Bonsoir

Une autre idée

Sub Essai()
Dim Base As String
Dim Z as Integer

  Base = Chr(65 + Z)
End Sub

Bonsoir,

merci à tout les deux!!!

c'est nettement plus lisible maintenant...Et en plus j'apprends de nouvelles fonctions.

et tout ça grace à vous!!!

A+