Aide pour charcher une combobox

Version imprimable

13/04/2019, 11h40
orguyrine006

1 pièce(s) jointe(s)

Aide pour charcher une combobox

Bonjour à la communauté

J ai une perte de mémoire je m'entraine en vba dans un usform pour charger un combobox et je bloque je pense me compliquer la vie
Pouvez vous m aider
Je vous joins le fichier
En vous remerciant

Orguyrine
13/04/2019, 12h55
unparia

Bonjour
Lis ma signature (en ce qui concerne l'ouverture de classeurs tiers).
Je t'aiderai volontiers si tu voulais bien montrer le code tenté en exposant tenants et aboutissants.
13/04/2019, 15h59
orguyrine006

1 pièce(s) jointe(s)

Pièce jointe 466455

Voici l erreur que m affiche excel suite au code pour charger un combobox dans un formulaire

En vous remerciant

orguyrine
13/04/2019, 16h43
unparia

C'est ton code, que tu dois mettre ici (entre balises code) et non une capture d'écran. D'autant que l'on parvient très difficilement à en lire le texte ...

code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub UserForm_Initialize()
 
'Procédure alimenter cbochercher (combobox1)
    Dim f As Worksheet
    Dim i As Integer
    Dim lr As Integer
 
    Set f = ThisWorbook.Sheets("Feuil1")
 
    With f
            lr = .Range("B" & Rowscount).End(xlUp).Row
 
        For i = 2 To lr
            Me.Cbochercher.AddItem.Range("B" & i).Value
        Next i
 
     End With
End Sub

Le code erreur est erreur de compilation erreur de syntaxe surbrillance sur ThisWorkbook.

En vous remerciant

orguyrine

13/04/2019, 19h27
unparia

Déjà : ThisWorbook est en effet un objet inconnu. ThisWorkbook est, lui, le classeur en cours.;)

1 pièce(s) jointe(s)

Bonsoir,

Sur une BD importante, éviter Additem qui est lent.

Code:

1
2
3
4
5
6
7
8
Option Explicit
Private Sub UserForm_Initialize()
    Dim f
    Set f = Sheets("source")
    Me.Cbochercher.ColumnCount = 2
    Me.Cbochercher.ColumnWidths = "20;100"
    Me.Cbochercher.List = f.Range("A3:B" & f.[A65000].End(xlUp).Row).Value
End Sub

Code:

1
2
3
4
5
6
Option Explicit
Private Sub UserForm_Initialize()
    Me.Cbochercher.ColumnCount = 2
    Me.Cbochercher.ColumnWidths = "20;100"
    Me.Cbochercher.List = [tableau1].Value
End Sub

Boisgontier