Problème réinitialisation de données

Version imprimable

17/04/2008, 09h41
Shadow5

Problème réinitialisation de données

Bonjour tout le monde,

Le problème que je vais soumettre va peut être vous paraitre gadget à première vue. Mais comme le programme que je suis en train de réaliser est destiner à des "néophytes" (je sais, je ne suis guère mieux,:mouarf:), c'est un problème qui risque d'être assez gênant car je suis obligé de revenir à chaque fois sur le code pour remplir les combobox correctement puisqu'ils ont l'air de se vider à chaque fermeture du fichier.

Comment puis je y remédier?

Merci de votre attention
17/04/2008, 09h47
Jean-Pierre49

bonjour,

Il me semble normal que les variables soient détruites lors de la fermeture de ton fichier.
Le problème est de savoir comment tes Comobox sont remplis à l'intialisation de ton USF

dis

A+

Ils sont remplis de la manière suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub Combobox1_Click()
    Dim Cella As Range
    Dim Tableaua()
    Dim TempTaba As Variant
    Dim ia As Integer, ja As Integer
    Dim boolVerifa As Boolean
 
    ReDim Tableaua(1 To 1)
    Tableaua(1) = Cells(1, 1)
 
    For Each Cella In Worksheets("Feuil3").Range("A1:A2")
        boolVerifa = False
 
        For ia = 1 To UBound(Tableaua)
            If Tableaua(ia) = Cella Then
                boolVerifa = True
                Exit For
            End If
        Next
 
        If boolVerifa = False Then
            ReDim Preserve Tableaua(1 To UBound(Tableaua) + 1)
            Tableaua(UBound(Tableaua)) = Cella
        End If
 
        For ia = 1 To UBound(Tableaua)
            For ja = 1 To UBound(Tableaua)
                If Tableaua(ia) < Tableaua(ja) Then
                    TempTaba = Tableaua(ia)
                    Tableaua(ia) = Tableaua(ja)
                    Tableaua(ja) = TempTaba
                End If
            Next ja
        Next ia
    Next Cella
 
    ComboBox1.List = Tableaua
 
End Sub

Si ce code peut t'aider...(?)

17/04/2008, 10h14
Jean-Pierre49

Bonjour
juste survolé ton code,
Tes combobox se remplissent quand tu clique dessus

Pourquoi ne pas les intilialiser lors de l'ouverture de l'USF avec

Code:

Private Sub UserForm_Initialize()
17/04/2008, 10h55
Shadow5

J'ai oublié de le préciser, mais combobox ne sont pas sur userform, mais sur feuille excel "Feuil1".
17/04/2008, 11h02
Jean-Pierre49

Alors peut être avec

Dans ThisWorkbook

Code:

Private Sub Workbook_Open()
17/04/2008, 12h14
Shadow5

Ok, je vais essayer:mrgreen:

A plus

Mais par contre, je ne pourrais te donner la réponse que demain matin:oops:

Bonne journée (et bon appétit);)