Code plus "correcte" Résolu/Fermé

Question

Bonjour à toutes et à tous,

   Je voudrais savoir s'il y a moyen de rendre se code plus correcte, il me sert à rentrer un liste dans une combobobox, je ne veux pas utiliser RowSource, j'utilise ça mais j'en ai beaucoup à faire (pour info 13):

Private Sub ComboBox1_Change()

If Me.ComboBox1.ListIndex = 1 Then
ComboBox2.Clear
ComboBox2.List = Array("Rénovation chaufferie", "Equipements annexes (cuve, conduits d'évacuation, ...)", "Réfection Réseaux de distribution", "Remplacement Emetteurs", "Remplacement D'une ou plusieurs CTA", "Remplacement de l'installation VMC")
End If
End Sub

If Me.ComboBox1.ListIndex = 2 Then
ComboBox2.Clear
ComboBox2.List = Array("Rénovation chaufferie", "Equipements annexes (cuve, conduits d'évacuation, ...)", "Réfection Réseaux de distribution", "Remplacement Emetteurs", "Remplacement D'une ou plusieurs CTA", "Remplacement de l'installation VMC")
End If
End Sub


Merci d'avance

tarek_dotzero · Answer

Je pense que:


If (Me.ComboBox1.ListIndex = 1) or (Me.ComboBox1.ListIndex = 2) Then 
ComboBox2.Clear 
ComboBox2.List = Array("Rénovation chaufferie", "Equipements annexes (cuve, conduits d'évacuation, ...)", "Réfection Réseaux de distribution", "Remplacement Emetteurs", "Remplacement D'une ou plusieurs CTA", "Remplacement de l'installation VMC") 
End If 
End Sub 


Est plus simple, si c'est le même Array.

othanga · Answer

j'imagine que comme moi, tu t'oublies qqes fois sur le copier/coller et que donc le contenu de la combobox2 varie selon la sélection dans la combo1.

les axes pour écrire plus "propres" (mais y en a pas beaucoup)
1. utiliser un SELECT ... CASE au lieu des IF qui s'enchainent ou d'un IF avec de multiples ELSEIF
2. mettre tes array(liste de textes) en constantes en début de pgm (mais comme je suis pas très doué en basic, je sais pas si c'est possible).

Ça pourrait donner un truc du genre
const kListeA = Array("ChoixA1", "ChoixA2", "ChoixA3") (le k est mon petit memo pour CONSTANT)
const kListeB = Array("ChoixB1", "ChoixB2", "ChoixB3")
...
bcp plus loin
...
SELECT combobox1.ListIndex CASE
1: combobox2.Clear: combobox2.List = kListeA
2: combobox2.Clear: combobox2.List = kListeB


... ensuite, je te laisse explorer la possibilité de faire un tableau de tableaux (ça n'est pas choquant) pour avoir
const kListe = Array(Array("ChoixA1", "ChoixA2", "ChoixA3"),Array("ChoixB1", "ChoixB2", "ChoixB3"),...)
ensuite
ComboBox2.Clear: ComboBox2.Liste = kListe(combobox1.ListIndex)

C'est un peu tiré par les cheveux, mais ça serait plutot lisible

michel_m · Answer

Excuses moi, Imis d'avoir voulu t'aider;  mais c'est promis, cela ne se renouvellera plus.

ImiS · Answer

Bon finalement à force de bidouiller le code refonctionne mais pour combient de temps ^^, je vais essayer de tirer ça au clair.

Merci et bonne journée.

othanga · Answer

Bon, j'imagine que ça fonctionne dans Excel mais à la maison je n'ai que de l'OOo donc je peux pas tester tes fonctions avec lesquelles je suis pas à l'aise.
Et si c'est de l'Excel, on peut alors dire que la programmation est relativement propre car les constantes ne sont pas dans le programme (on rejoint un peu le désir de le mettre dans un fichier texte). Toujours si c'est de l'excel, les colonnes excel jouent parfaitement le rôle des Array utilisés initialement... Il n'y aurait donc pas énormément de "proprification" à apporter.
Par contre si c'est par de l'Excel, alors chuis vraiment largué :D

othanga · Answer

Cool.
On sacrifiera un poulet pour que ça se reproduise plus :)

lermite222 · Answer

Bonjour,
Peut-ont savoir quel est la condition qui te fait renoncer à RowSource ?
une autre façon d'abordrer ton problème...
Const NBListIx = 5 'nombre d'item dans combo1
Const NBitem = 6 'nombre maximum d'item dans combo2
Dim TB(NBListIx, NBitem)

Private Sub ComboBox1_Change()
Dim i As Byte, e As Byte
    If TB(0, 0) = "" Then '1ère initialisation
        GoSub InitTB
    End If
    ComboBox2.Clear
    For i = 0 To NBitem
        If TB(ComboBox1.ListIndex, i) <> "" Then
            ComboBox2.AddItem TB(ComboBox1.ListIndex, i)
        Else
            Exit For
        End If
    Next i
    ComboBox2.ListIndex = 0
Exit Sub
InitTB:
i = 0
    a = Array("Item 1:1", "Item 1:2", "Item 1:3", "Item 1:4", "Item 1:5", "Item 1:6")
    GoSub Entrer:    i = i + 1
    a = Array("Item 2:1", "Item 2:2", "Item 2:3", "Item 2:4", "Item 2:5", "Item 2:6")
    GoSub Entrer:    i = i + 1
    a = Array("Item 3:1", "Item 3:2", "Item 3:3", "Item 3:4", "Item 3:5", "Item 3:6")
    GoSub Entrer:    i = i + 1
    a = Array("Item 4:1", "Item 4:2", "Item 4:3", "Item 4:4", "Item 4:5", "Item 4:6")
    GoSub Entrer:    i = i + 1
    a = Array("Item 5:1", "Item 5:2", "Item 5:3", "Item 5:4", "Item 5:5", "Item 5:6")
    GoSub Entrer:    i = i + 1
    a = Array("Item 6:1", "Item 6:2", "Item 6:3", "Item 6:4", "Item 6:5", "Item 6:6")
    GoSub Entrer:
Return
Entrer:
    For e = 0 To UBound(a)
        TB(i, e) = a(e)
    Next e
    Return
End Sub
A+

ImiS · Answer

Bonjour Lermitte222,

   Je vous remercie pour votre code mais celui de michel_m fonctione à merveille. Ce qui me fais renoncer au rowsource c'est que je souhaitais créer des sous menus de la manière suivante:
ComboBox1 = titre
ComboBox2= sous titre
et que je n'ai pas réussis en fonction des Rowsource, mais je le redit mon prblème est résolu grâce à michel_m, mais merci de votre solicitation.

Bonne journée

Code plus "correcte"

8 réponses

Discussions similaires