Discussion :

[Pomine]

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 :

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

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 :

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

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

J'obtiens :

Erreur de compilation
Type d'argument Byref incompatible

Je ne comprends pas cette erreur de compilation ?

Merci!!

[LeForestier]

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

[Didier Gonard]

Bonjour,

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

le message d'erreur te fournit la réponse

vois du genre :

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

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

[Pomine]

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

Bonnes fêtes !