Discussion :

[stéphanie123]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LeForestier]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[stéphanie123]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

les guillemets!!