Discussion :

[Pierre67]

Bonjour

Sur un userform je souhaite alimenter une combobox avec la syntaxe suivante

Code :

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

1
2
 
Me.cbotiers.RowSource = "Annuel!range(cells(prementre,2),cells(dernetre,2))"

Mais j'obtiens une erreur 380
Sauriez vous pourquoi ?
Cordialement

[Theze]

Bonsoir,

La propriété attend un String donc, une adresse :

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
 
Private Sub UserForm_Initialize()
 
    Dim prementre As Integer
    Dim dernetre As Integer
 
    prementre = 1
    dernetre = 10
 
    With Worksheets("Annuel")
 
        Me.cbotiers.RowSource = "Annuel!" & .Range(.Cells(prementre, 2), .Cells(dernetre, 2)).Address
 
    End With
 
End Sub

Hervé.