Optimisation de code... *Sucrerie*

[Charly88]

Je suis presque certain qu'il y a possibilité de raccourcir ceci mais je ne sais comment :

If Choix = 0 Then
Sheets(TitreFeuilleRapport).Cells(5 + iMid + iBig, 2).Value = Carma.Perio.List(p, 0)
Sheets(TitreFeuilleRapport).Cells(5 + iMic + iMid + iBig, 2).Value = Carma.Catés.List(c, 0)
Sheets(TitreFeuilleRapport).Cells(5 + iMid + iBig, 2 + jMic).Value = Carma.Sujets.List(s, 0)
ElseIf Choix = 1 Then
Sheets(TitreFeuilleRapport).Cells(5 + iMid + iBig, 2).Value = Carma.Perio.List(p, 0)
Sheets(TitreFeuilleRapport).Cells(5 + iMic + iMid + iBig, 2).Value = Carma.Sujets.List(s, 0)
Sheets(TitreFeuilleRapport).Cells(5 + iMid + iBig, 2 + jMic).Value = Carma.Catés.List(c, 0)
ElseIf Choix = 2 Then
Sheets(TitreFeuilleRapport).Cells(5 + iMid + iBig, 2).Value = Carma.Sujets.List(s, 0)
Sheets(TitreFeuilleRapport).Cells(5 + iMic + iMid + iBig, 2).Value = Carma.Perio.List(p, 0)
Sheets(TitreFeuilleRapport).Cells(5 + iMid + iBig, 2 + jMic).Value = Carma.Catés.List(c, 0)
ElseIf Choix = 3 Then
Sheets(TitreFeuilleRapport).Cells(5 + iMid + iBig, 2).Value = Carma.Sujets.List(s, 0)
Sheets(TitreFeuilleRapport).Cells(5 + iMic + iMid + iBig, 2).Value = Carma.Catés.List(c, 0)
Sheets(TitreFeuilleRapport).Cells(5 + iMid + iBig, 2 + jMic).Value = Carma.Perio.List(p, 0)
ElseIf Choix = 4 Then
Sheets(TitreFeuilleRapport).Cells(5 + iMid + iBig, 2).Value = Carma.Catés.List(c, 0)
Sheets(TitreFeuilleRapport).Cells(5 + iMic + iMid + iBig, 2).Value = Carma.Sujets.List(s, 0)
Sheets(TitreFeuilleRapport).Cells(5 + iMid + iBig, 2 + jMic).Value = Carma.Perio.List(p, 0)
ElseIf Choix = 5 Then
Sheets(TitreFeuilleRapport).Cells(5 + iMid + iBig, 2).Value = Carma.Catés.List(c, 0)
Sheets(TitreFeuilleRapport).Cells(5 + iMic + iMid + iBig, 2).Value = Carma.Perio.List(p, 0)
Sheets(TitreFeuilleRapport).Cells(5 + iMid + iBig, 2 + jMic).Value = Carma.Sujets.List(s, 0)
End If

Comme vous le voyez nous avons 3 cellules et 3 valeurs différentes, logées dans leur listbox respective, tout ce qui change c'est qui reçoit quoi en fonction de la valeur de choix... Y'aurait-il une solution en créant une (ou 3 ?) variable variant et avec un petit coup de génie peut-être ? :-D

 

[jeanpierre]

Re : Optimisation de code... *Sucrerie*

Bonsoir Charly88,

Un peu la tête qui tourne à lire,

mais il me semble que toutes tes actions sont identiques... NON ?

Précisions à recevoir.

Bonne soirée.

Jean-Pierre

 

[Charly88]

Re : Optimisation de code... *Sucrerie*

Bonsoir Jean-Pierre, c'est vrai que ce n'est pas clair, je traduis :

si choix = 0
cellule_1 = valeur_A
cellule_2 = valeur_B
cellule_3 = valeur_C
si choix = 1
cellule_1 = valeur_A
cellule_2 = valeur_C
cellule_3 = valeur_B
si choix = 2
cellule_1 = valeur_B
cellule_2 = valeur_A
cellule_3 = valeur_C
si choix = 3
cellule_1 = valeur_B
cellule_2 = valeur_C
cellule_3 = valeur_A
si choix = 4
cellule_1 = valeur_C
cellule_2 = valeur_A
cellule_3 = valeur_B
si choix = 5
cellule_1 = valeur_C
cellule_2 = valeur_B
cellule_3 = valeur_A

Ouf ! J'espère que c'est un peu plus compréhensible. Du fait des choix, peut-être que c'est la seule solution mais...

 

[jeanpierre]

Re : Optimisation de code... *Sucrerie*

Re,

Est-ce plus compréhensible ? Oui dans la mesure où les choix aboutissent à des solutions différentes.

Cette seconde présentation est bien plus précise et très différente de la première, maintenant te dire que c'est la seule solution (qui me semble bonne pour une opération que je ne connais pas)... Je ne sais pas, il faudrait voir le fichier, le questionnement, et la résultante.

Est-ce possible ?

 

[job75]

Re : Optimisation de code... *Sucrerie*

Bonjour, re jeanpierre,

A tester (je me suis servi du dernier post sans vérifier) :

If  Choix >= 0 And Choix <= 5 then
a = Carma.Perio.List(p, 0)
b = Carma.Catés.List(c, 0)
c = Carma.Sujets.List(s, 0)
With Sheets(TitreFeuilleRapport)
.Cells(5 + iMid + iBig, 2).Value = Choose(Choix + 1, a, a, b, b, c, c)
.Cells(5 + iMic + iMid + iBig, 2).Value = Choose(Choix + 1, b, c, a, c, a, b)
.Cells(5 + iMid + iBig, 2 + jMic).Value = Choose(Choix + 1, c, b, c, a, b, a)
End With
End If

A+

 

[Charly88]

Re : Optimisation de code... *Sucrerie*

Miam !! C'est court, c'est propre, j'adore !
Très sympathique ce petit choose, il a de l'avenir. Merci à tous les deux et bravo Job !

 

[Lii]

Re : Optimisation de code... *Sucrerie*

Bonjour Tous,

Pour moi, c'est une réponse qui mérite un rappel.
Merci job75 de nous indiquer qu'il est toujours préférable de faire le bon "choix" ! De plus, ce n'est pas la première fois que tu nous montres l'intérêt de cette fonction.