Eviter des longues lignes d'instructions IF...ELSEIF....END IF

Fermé

pointfinal - 11 avril 2017 à 08:49
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 11 avril 2017 à 10:05

Bonjour,

Voici le code que j'aimerais réduire. En fonction du mot contenu dans la cellule ((cellule que j'ai liée à une combobox)(9,16)), le code attribue une couleur à une forme. Mais je me rends compte que ce sera fastidieux décrire toutes ces lignes pour chaque valeur de ma cellule. QUE FAIRE?

Sub listederoulante ()
concession = Cells(6, 19).Value

If (concession = "F1") Then
n = 200
m = 100
i = 1
ElseIf (concession = "L1") Then
n = 0
m = 10
i = 100
ElseIf (concession = "M1") Then
n = 100
m = 0
i = 100
ElseIf (concession = "K1") Then
n = 0
m = 100
i = 150
ElseIf (concession = "T1") Then
n = 30
m = 30
i = 30
ElseIf (concession = "Y1") Then
n = 10
m = 10
i = 10
ElseIf (concession = "E1") Then
n = 0
m = 100
i = 100
ElseIf (concession = "S1") Then
n = 10
m = 10
i = 100
ElseIf (concession = "B1") Then
n = 100
m = 10
i = 100
ElseIf (concession = "E1") Then
n = 10
m = 150
i = 100
ElseIf (concession = "N1") Then
n = 15
m = 10
i = 100
ElseIf (concession = "M1") Then
n = 155
m = 10
i = 100
ElseIf (concession = "E1") Then
n = 10
m = 10
i = 100
End If

A voir également:

Eviter des longues lignes d'instructions IF...ELSEIF....END IF
Connexion messenger if - Guide
Exemple planning 1 week end sur 3 ✓ - Forum Excel
The realtek network controller was not found. if deep sleep mode is enabled please plug the cable ✓ - Forum Pilotes (drivers)
If not exist batch ✓ - Forum Autoit / batch
Figer des lignes excel - Guide

2 réponses

Réponse 1 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié le 11 avril 2017 à 10:09

Bonjour
il existe l'instruction "select case".

voir l'aide en ligne

Select case concession

case "F1"
  n = 200 
  m = 100 
   i = 1 

case"L1"
n=0
etc

end select

Michel

Réponse 2 / 2

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
11 avril 2017 à 10:05

Bonjour,

Tu peux simplifier en rentrant tes paramètres en constantes

Sub listederoulante()
Const pc = "F1,L1,M1,K1,T1,Y1,E1,S1,B1,E1,N1,M1,E1,"
Const pi = "1,100,100,150,30,10,100,100,100,100,100,100,100,"
Const pm = "100,10,0,100,30,10,100,10,10,150,10,10,10,"
Const pn = "200,0,100,0,30,10,0,10,100,10,15,155,10,"
Dim pos As Long, concession As String, i As Long, n As Long, m As Long, tbp
concession = UCase(Cells(6, 19).Value)
pos = InStr(pc, concession & ",")
tbp = Split(Left(pc, pos), ",")
If UBound(tbp) >= 0 Then
    n = Split(pn, ",")(UBound(tbp))
    m = Split(pm, ",")(UBound(tbp))
    i = Split(pi, ",")(UBound(tbp))
Else
    MsgBox "paramétres erronés"
End If
End Sub

Discussions similaires

Fonction if exist et else

EndClothing...

Afficher toutes les lignes masquées excel

If not Then vba

Test IF a plusieurs condition en PHP

Discussions similaires

Newsletters