Discussion :

[issoram]

Bonjour à tous,

Bon ben tout est dans le titre: comment créer (si c'est possible) un contrôle par copie?
En effet je dispose de contrôles "modèles" crées à la main via la boîte à outils et dont j'ai édité les propriétés. Ce que je voudrais faire c'est pouvoir dupliquer ces contrôles au lieu de me recopier bêtement une par une les propriétés. Ci dessous ce que je fais actuellement et que je trouve laborieux et pas propre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim control as Variant
 
'Création du contrôle
Set control = monUF.Controls.Add("Forms.textbox.1") 'monUF désigne mon UserForm
'Recopie des proprietés
With control
        .Name = "copie1"
        .Font.Size = monUF.TextBoxModele.Font.Size
        .BorderStyle = monUF.TextBoxModele.BorderStyle
        .SpecialEffect = monUF.TextBoxModele.SpecialEffect
        .AutoSize = monUF.TextBoxModele.AutoSize
        .Locked = monUF.TextBoxModele.Locked
        'etc. etc. etc.....
end With

Merci d'avance.

[patricktoulon]

bonjour

la reponse est "NON" je ne pense pas qu'il y est une autre solution

par contre si tu dois en rajouter plusieurs tu risque le plantage

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
Dim control as Variant
for i = 1 to 5
 
'Création du contrôle
Set control = monUF.Controls.Add("Forms.textbox.1") 'monUF désigne mon UserForm
'Recopie des proprietés
With control
        .Name = "copie"&i
        .Font.Size = monUF.TextBoxModele.Font.Size
        .BorderStyle = monUF.TextBoxModele.BorderStyle
        .SpecialEffect = monUF.TextBoxModele.SpecialEffect
        .AutoSize = monUF.TextBoxModele.AutoSize
        .Locked = monUF.TextBoxModele.Locked
        .top=monUF.TextBoxModele + i * monUF.TextBoxModele.top+3
end With
next

au plaisir

[Daniel.C]

Bonjour,

Code :

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

1
2
    ActiveSheet.OLEObjects("CommandButton2").Copy
    ActiveSheet.Paste

[patricktoulon]

bonjour daniel

ActiveSheet......

c'est dans un userform que ca se passe

au plaisir

[Daniel.C]

Bonjour Patrick,

Oups, au temps pour moi.

[issoram]

Ok merci Patrick, je les nomme dynamiquement donc pas de soucis.
et avec

Code :

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

DoCmd.RunCommand acCmdCopy

il n'y a vraiment pas moyen?

[patricktoulon]

re
non ca sa peut te servir éventuellement a copier ses fonctions sur un autre bouton en aucun cas ces propriétés du moins je crois
au plaisir

[fring]

Bonjour,

DoCmd.RunCommand est une commande propre à Access

Pour info : http://domi2.developpez.com/tutoriel...runcommand/#LI

[patricktoulon]

re
on en aprend tout les jours merci fring

[issoram]

Merci à tous les 3, je vais donc continuer comme ça. Tant pis