formulaire

[Marduk]

Bonjour à tous,

J'ai créé un formulaire qui contient, entre autre ,des combobox. Je rempli mes combobox en même temps qu'une matrice (dans une feuille excel contenant les valeurs utilisé ainsi qu'une autre donnée) avec une boucle dans le UserForm_activate . Lorsqu'un changement est effectué dans une des combobox, j'ai un select Case qui détermine, selon la valeur choisi, quelle donnée affichée dans un textbox un peu plus loin.

Ma question est: Est-ce que c'est possible d'initialisé mon tableau à une autre place ou n'importe quoi d'autre, pour que je puisse me servir de ma matrice dans la partie où l'évenement Txtbox_change est situé (sans refaire la boucle car j'ai 12 combobox)?

J'espère avoir été clair et merci d'avance!!

 

[BERRACHED said]

Re : formulaire

Salut,Marduk

effectivement tu as été claire dans tes explications seulement on peux pas appeler un médecin par telephone pour lui dire qu'on a mal au ventre il faut y aller si tu m'a compris renvoi nous le patient(Fichier) et tous ici sont prêt a vous aidé

Cordialement

 

[Marduk]

Re : formulaire

salut BERRACHED,

Le fichier contient des données importante donc je ne peux pas l'envoyer , mais je peux te mettre du code :

ceci est la façon dont je rempli mes combobox

Private Sub UserForm_Activate()
    i = 23
    
    Do
        CbDim1.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim2.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim3.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim4.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim5.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim6.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim7.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim8.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim9.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim10.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim11.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim12.AddItem Worksheets("Légende").Cells(i, "B").Value
        i = i + 1
    Loop While Worksheets("Légende").Cells(i, "B").Value <> ""

end sub

C'est ici que je mettrais ma matrice contenant premièrement la valeur récupéré présentement ainsi que la donné résultante dans le prochain bout de code . Mon affichage pour l'instant est fait comme ceci:

Private Sub CbDim1_Change()

Select Case CbDim1.Value
    Case "1"
        TxtMo1.Value = 0
    Case "2"
        TxtMo1.Value = 0
    Case "3"
        TxtMo1.Value = 352
    Case "4"
        TxtMo1.Value = 224
    Case "5"
        TxtMo1.Value = 160
    Case "6"
        TxtMo1.Value = 128
    Case "6"
        TxtMo1.Value = 0
    Case "7"
        TxtMo1.Value = 0
    Case "8"
        TxtMo1.Value = 0
    Case "9"
        TxtMo1.Value = 0
    Case "10"
        TxtMo1.Value = 0
    Case "11"
        TxtMo1.Value = 0
    Case "12"
        TxtMo1.Value = 0
    
End Select

L'idée derrière sa est que celui qui utilisera le fichier, même si il connait rien en programmation puisse ajouter des valeurs dans les combobox sans nuire au bon fonctionnement. Je remplacerais les case "1" Txtmo1.value = 0 par
case mat(1)(1) txtmo1.value = mat(1)(2).

Bon j'vous laisse aller relire ma question pour être sur de répondre à la bonne question. Merci d'avance

 

[Marduk]

Re : formulaire

Le fichier va être utiliser sur un ordinateur très lent donc si je suis capable de sauver 12 boucle sa serais déja sa de gagner😀

 

[Bebere]

Re : formulaire

bonjour Marduk,Said
un exemple avec module de classe,évènement change
alimentation combobox par boucle
tu fais un choix dans une combobox et un msgbox apparait avec ton choix
tu complètes le fichier si tu veux de plus ample explication
à bientôt

 

[Marduk]

Re : formulaire

Simple et efficace, bref en plein ce qu'il me faut. Merci à toi!