tri combox en sautant une colonne

Version imprimable

bonsoir

j'ai réalisée une boite de dialogue pour faire des requête(filtre) dans une base de donnée, le probléme que je rencontre est que mes colonnes avec lesquels je remplie mes combox ne sont pas côte à côte, conséquence mon code ne fonctonne pas; j'ai à peu prés saisi ou se trouve mon erreur mais je ne sais pas la corrigé.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub UserForm_Initialize()
    Dim Cellule As Range
    Dim Balan As Range
    Dim oCollection As New Collection
    Dim i As Long
 
    For Each Cellule In Feuil4.Range("a2:a" & Feuil4.Range("a" & Rows.Count).End(xlUp).Row)
        AjouterItem oCollection, Cellule.Value
     Next Cellule
 
      For i = 1 To oCollection.Count
        ComBox1.AddItem oCollection.Item(i)
    Next i
     For Each Balan In Feuil4.Range("c2:c" & Feuil4.Range("c" & Rows.Count).End(xlUp).Row)
        AjouterItem oCollection, Balan.Value
     Next Balan
 
    For i = 1 To oCollection.Count
        ComBox2.AddItem oCollection.Item(i)
    Next i
End Sub

si quelqu'un peu m'éclairée

Bonjour,
Je suis pourtant un adepte des collections mais ici, je ne vois pas du tout l'intéret d'opérer de cette façon.
Si c'est une obligation tu dis ?
Et explique un peu mieux ce que tu veux faire.
Un 1ère approche, sans trop savoir :cry:
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub UserForm_Initialize() Dim i As Long 'With Feuil4 '???? 'mais je pense plutôt que c'est With Sheets("Feuil4") For i = 2 To .Range("A65536").End(xlUp).Row combo1.AddItem Cells(i, 1) combo2.AddItem Cells(i, 3) Next i End With End Sub
A+
Merci Mercatog

14/01/2010, 20h31
stéphanie123

tri combox en sautant une colonne

bonjour,

j'a intégrée le code dans mon programme, mais quand je l'éxecute, celui ci m'annonce une ereur à ce niveau

Code:

For i = 2 To .Range(A65536).End(xlUp).Row
14/01/2010, 20h36
mercatog

Code:

For i = 2 To .Range("A65536").End(xlUp).Row

les guillemets!!