Problème d'argument de type contrôle dans call

Bonjour,

Je vous présente le contexte :
- Mon userform comporte un multipage
- Je crée dans une des pages de ce multipage un contrôle combobox intitulé Box1
- Je souhaite, par l'intermédiaire d'une fonction Positionnement_Control, placer ce contrôle à un endroit précis de la page

Mon morceau de code est le suivant :

Code:

---

1 2	Set Box1 = MultiPage1.Pages(6).Controls.Add("forms.ComboBox.1", "Box1") Call Positionnement_Control(Box1, Height1, Left1, Top1, Width1)

---

Plus loin voici la déclaration de procédure que je souhaite utiliser

Code:

---

Sub Positionnement_Control(Controle As Control, a As Integer, b As Integer, c As Integer, d As Integer)

---

J'obtiens :

Citation:

---

Erreur de compilation
Type d'argument Byref incompatible

---

Je ne comprends pas cette erreur de compilation ?

Merci!!

Quel language tu emploi ??
Pour positionner un contrôle avec Excel voir la fonction
Control.Move(gauche,Haut,Largeur,hauteur)
A+

Bonjour,

Sans préjuger de l'approche employée,

le message d'erreur te fournit la réponse ;)

vois du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub UserForm_Click() Set box1 = usf1.Controls.Add("forms.ComboBox.1", "New Combo") Call Positionnement_Control(box1, Height1, Left1, Top1, Width1)   End Sub Sub Positionnement_Control(ByVal Controle As Control, ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer) a = 10 b = 20 c = 30 d = 40   Controle.Height = a Controle.Left = b Controle.Top = c Controle.Width = d End Sub

---

mais comme le dit si justement Le Forestier :

Citation:

---

Move, méthode


Déplace une feuille ou un contrôle, ou déplace tous les contrôles de la collection Controls.

Syntaxe

Pour une feuille ou un contrôle
object.Move( [Left [, Top [, Width [, Height [, Layout]]]]])

Pour une collection Controls
object.Move( X, Y)

---

cordialement,

Didier

Merci, les deux solutions marchent. J'ai choisi le .move, c'est plus simple !

Bonnes fêtes !