Beaucoup trop de if a la suite !!

[Evelynetfrancois]

Bonjour le forum
je cherche a faire une boucle ou autre sur ma macro qui fonctionne bien ,mais qui me parait d'une écriture longue et douteuse

Auriez vous qq. chose de plus propre à me proposer

(Je vais de a à z sur Textbox6 et de 2 a 27 sur combobox2)

If TextBox6.Value = "a" Then
ComboBox2.Value = Sheets("MATERIEL").Range("ae2").Value
End If
If TextBox6.Value = "b" Then
ComboBox2.Value = Sheets("MATERIEL").Range("ae3").Value
End If
If TextBox6.Value = "c" Then
ComboBox2.Value = Sheets("MATERIEL").Range("ae4").Value
End If
If TextBox6.Value = "d" Then
ComboBox2.Value = Sheets("MATERIEL").Range("ae5").Value
End If
If TextBox6.Value = "e" Then
ComboBox2.Value = Sheets("MATERIEL").Range("ae6").Value
End If

Merci pour tout et trés bonne journée à tous
E et F

 

[Pierrot93]

Re : Beaucoup trop de if a la suite !!

Bonjour,

peut être ainsi, non testé...

Dim t() As Variant
t = Array("a", "b", "c", "d", "e")
If Not IsError(Application.Match(textbox6, t, 0)) Then
    ComboBox2.Value = Sheets("MATERIEL").Range("ae" & Application.Match(textbox6, t, 0) + 1).Value
End If

bonne journée
@+

 

[GeoTrouvePas]

Re : Beaucoup trop de if a la suite !!

Bonjour,

Ou avec un bon vieux select case :

Select Case TextBox6.Value
Case "a"
    ComboBox2.Value = Sheets("MATERIEL").Range("ae2").Value
Case "b"
    ComboBox2.Value = Sheets("MATERIEL").Range("ae3").Value
Case "c"
    ComboBox2.Value = Sheets("MATERIEL").Range("ae4").Value
etc...
End Select

Bonne journée

 

[Dormeur74]

Re : Beaucoup trop de if a la suite !!

Bonjour tout le monde.

Je mettrais tout simplement :

ComboBox2.Value = Sheets("MATERIEL").Range("ae" & Asc(TextBox6.Value) - 95)

Mais attention aux minuscules : "a" oui, mais "A" non.

 

[Evelynetfrancois]

Re : Beaucoup trop de if a la suite !!

MERCI pour vos trois propositions super !!
Celle de pierrot93 me va très bien !!!
Celle de Geo trouve pas me convient également, mais reste longue malgré tout ! mais fonctionne à merveille
Quand a celle de Dormeur 74 , elle me semble bien , très courte , mais chez moi ça beugue
Je mets tout ça de coté
Je vous remercie infiniment pour tout votre travail


Au plaisir de vous lire
EetF

 

[Dormeur74]

Re : Beaucoup trop de if a la suite !!

Chez toi ça plante ? Bizarre, ça marche chez moi. Mais je ne serais pas surpris.
J'aimerais savoir si c'est la fonction Asc( ) qui plante.

Essaye ça pour voir, ça m'intéresse :

ComboBox2.Value = Sheets("MATERIEL").Range("ae" & VBA.Asc(TextBox6.Value) - 95)

 

[Evelynetfrancois]

Re : Beaucoup trop de if a la suite !!

re Dormeur 74
dsl l'erreur venait d'une action (macro)faite en amont de ta ligne, et la coloré en jaune , j ai rectifié et du coup les deux propositions fonctionnent mnt
Merci pour tout !!
E et F