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 : 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
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.