problème - combobox

Version imprimable

problème - combobox

slt à tous
j'ai développé une macro et lors de l'execution je reçois un message:
erreur d'exécution '424': objet requis.
le macro est:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub UserForm_Initialize()
Dim pl As Range, derl As Integer
Dim pl1 As Range, derl1 As Integer
If CloseMode = vbFormControlMenu Then Cancel = True
With Sheets("sté")
   derl = .Range("a65535").End(xlUp).Row
   Set pl = .Range("a2:a" & derl)
End With
UFentree.CBsté.List = plage.Value
UFentree.CBdate.Value = Now
If CloseMode = vbFormControlMenu Then Cancel = True
With Sheets("modèle")
   derl1 = .Range("a65535").End(xlUp).Row
   Set pl1 = .Range("a2:a" & derl1)
End With
UFentree.CBmodèle.List = plage.Value
End Sub

veuillez m'aider.
merci.

20/10/2008, 17h46
deuxmains

bonjour abouhossam,

Dans ton code sur la ligne 15 et sur la ligne 22 tu donne une variable non déclarée : plage

par exemple

Code:

UFentree.CBsté.List = plage.Value

est ce que par hasard ils ne sont pas a remplacer par tes variables pl et pl1?

de même (mais c'est peut être un manque d'xp de ma part) je ne vois pas a quoi fait référence la méthode CloseMode, elle n'est pas référencée chez moi

le code est:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub UserForm_Initialize()
Dim plage As Range, derl As Integer
Dim plage1 As Range, derl1 As Integer
If CloseMode = vbFormControlMenu Then Cancel = True
With Sheets("sté")
   derl = .Range("a65535").End(xlUp).Row
   Set plage = .Range("a2:a" & derl)
End With
UFentree.CBsté.List = plage.Value
UFentree.CBdate.Value = Now
If CloseMode = vbFormControlMenu Then Cancel = True
With Sheets("modèle")
   derl1 = .Range("a65535").End(xlUp).Row
   Set plage1 = .Range("a2:a" & derl1)
End With
UFentree.CBmodèle.List = plage.Value
End Sub

le même problème se pose.

j'ai bien essayé ce code:

Code:

1
2
3
4
5
6
Private Sub UserForm_Initialize()
If closemode = vbFormControlMenu Then Cancel = True
UFentrée.CBsté.List = Sheets("sté").Range("a2:a" & Sheets("sté").Range("a65535").End(xlUp).Row).Value
UFentrée.CBmodèle.List = Sheets("modèle").Range("a2:a" & Sheets("modèle").Range("a65535").End(xlUp).Row).Value
UFentrée.CBdate.Value = Now
End Sub

ça marche
mais je pense qu'il y en a mieu
merci.