2007]

Version imprimable

1 pièce(s) jointe(s)

Rebonjour, je suis confronter à un nouveau problème.
Voila dans mon application j'ai créé une userform avec plusieurs combox. J'ai joins une image de ma fenetre pour exposer le probleme que je me pose. Dans mes combox, je retrouve la liste exacte de toutes mes cellules de la colonne source donc egalement les cellules vides.
j'aimerais voir apparaitre que les cellules qui sont différentes mais en aucun cas cela doit affecter ma colonne source.
Y a til un moyen de realiser ce que je veux? Ai-je beaucoup de choses a modifier sur ma macro? (cf ci-dessous).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub sortir_outil() Load USF_Sortie With USF_Sortie .CBX_posteT.List = Sheets("Réserve").Range("C2:C20").Value .CBX_posteT.ListIndex = 0 .CBX_operationT.List = Sheets("Réserve").Range("A2:A20").Value .CBX_operationT.ListIndex = 0 .CBX_afficheppT.List = Sheets("MagasinT").Range("B2:B600").Value .CBX_afficheppT.ListIndex = 0 .CBX_affichep.List = Sheets("MagasinT").Range("C2:C600").Value .CBX_affichep.ListIndex = 0 .CBX_afficheoutilT.List = Sheets("MagasinT").Range("D2:D600").Value .CBX_afficheoutilT.ListIndex = 0 End With USF_Sortie.Show End Sub
est ce dans les propriétés de mes combox?

Dois-je creer un sous programme?

merci de votre attention

Bonjour

Voici une fonction que j'avais crée

1 - Je mets mes données dans un tableau en enlevant les doublons
2 - Je tri la liste dans l'ordre croissant
3 - Je met mes données dans ma combo

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
40
41
42
43
44
45
46
47
48
49
50
51
 
Public Sub RemplirComboAlpha(cboCombobox As MSForms.ComboBox, strFeuille As String, strColDepart As String, lngRowDepart As Long)
    ' ***** cette procédure va remplir n'importe qu'elle combobox en récupérant les données
    ' ***** d'une colonne, en enlevant les doublons et en faisant un tri *****
    Application.Cursor = xlWait
    ' ***** déclaration des variables *****
    Call Liaison
    Set wks = BaseDorsal.Worksheets(strFeuille)
    Dim i As Long
    Dim lngIncrementTab As Long
    lngIncrementTab = 1
    Dim tabTri As Variant
    ReDim tabTri(1 To 1)
    cboCombobox.Clear
    ' ***** lancement de la procédure pour mettre les données dans une tableau *****
    wks.Range("" & strColDepart & lngRowDepart & "", wks.Range("" & strColDepart & lngRowDepart & "").End(xlDown)).AdvancedFilter Action:=xlFilterInPlace, _
                 criteriarange:=wks.Range("" & strColDepart & lngRowDepart & "", wks.Range("" & strColDepart & lngRowDepart & "").End(xlDown)), unique:=True
    For i = lngRowDepart To CLng(wks.Range("" & strColDepart & lngRowDepart & "").End(xlDown).Row)
        If wks.Range("" & strColDepart & i & "").EntireRow.Hidden = False Then
            tabTri(i - 1) = wks.Range("" & strColDepart & i & "").Value
        End If
        ' redimensionnement du tableau
        lngIncrementTab = lngIncrementTab + 1
        ReDim Preserve tabTri(1 To lngIncrementTab)
    Next i
    Set wks = Nothing
    ' ***** tri de la liste dans l'ordre alphabétique *****
    Dim j As Long
    Dim temp
    For i = LBound(tabTri) To UBound(tabTri) - 1
        For j = i + 1 To UBound(tabTri)
            If tabTri(i) > tabTri(j) Then
                temp = tabTri(i)
                tabTri(i) = tabTri(j)
                tabTri(j) = temp
            End If
        Next j
    Next i
 
    ' ***** remplissage de la liste *****
    cboCombobox.AddItem "(TOUS)"
    For i = LBound(tabTri) To UBound(tabTri) - 1
        If tabTri(i) = "" Or IsNull(tabTri(i)) Then
        Else
            cboCombobox.AddItem tabTri(i)
        End If
    Next i
    cboCombobox.Value = "(TOUS)"
    Application.Cursor = xlDefault
 
End Sub

Si cela peut t'aider

Starec

16/02/2007, 14h07
gromorice

MERCI POUR TON AIDE,

je vais essayer.Mais en utilisant ta soluce, je risque de modifier ma colonne source.Il faudrait donc que je fasse une copie de cette colonne je pense.
je vais voir. en tout cas merci.
16/02/2007, 15h31
Invité

Re

Non tu ne modifieras pas ta colonne source, j'ai écrit :

1 - Je mets mes données dans un tableau en enlevant les doublons
2 - Je tri la liste dans l'ordre croissant
3 - Je met mes données dans ma combo

Starec