[VBA-W] dupliquer une frame [Résolu]

[dev81]

Bonjour,
J'ai besoin d'aide pour copier une frame dans une userform.J'aimerais dupliquer une frame avec tous ces objets.Est_ce possible? et si oui, comment?
Merci beaucoup pour ces informations.

[ouskel'n'or]

On a dit un frame dans un userform + 1 bouton derrière lequel, le code suivant :

Code :

1
2
3
4
5
Private Sub CommandButton1_Click()
Me.Frame1.SetFocus
Me.Copy
Me.Paste
End Sub

Tu dis

[dev81]

Ok, très bien, mais comment sont nommés les nouveaux frames?
J'aimerai les placer sur le userform et les afficher ou pas.
J'aurais besoins de leur noms?

[ouskel'n'or]

Tu veux tout alors ? Je ne sais pas... Essaie de le retrouver comme ça

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim i
    For Each LeControle In Me.Controls
          i = i + 1
    Next
    Me.Frame1.SetFocus
    Me.Copy
    Me.Paste
    MsgBox Me.Controls(i).Name
End Sub

Je vois déjà venir ta question suivante et je m'inquiète

[dev81]

C'est quoi ta variable "Lecontrole"?
Et pourquoi tu me parle de controle alors que moi je te parle de frames?
(ou bien c'est juste une histoire de noms à changer)
merci

[ouskel'n'or]

J'ai omis de le déclarer :

Code :

Dim LeControle as control

Représente tous les contrôles contenus dans ton userform

[dev81]

Ta méthode ne marche que pour un seul copier coller de frame mais dès que je boucle ca ne marche plus???

[ouskel'n'or]

Si, elle fonctionne, mais si tu ne positionnes pas tes frames, elles sont superposées. Tu le vérifies pas le nom. Tu as d'abord frame2 puis frame3, incrémenté à chaque clic du bouton. Ou alors ta boucle a un pb
A+

[dev81]

Ca pose un problème en quoi qu'ils soient superposés le Frames?
Car dans mon application,
-je veux creer plusieurs frame au meme endroit et les afficher quand je les appelerai.
Voila ce que j'aimerai faire.Merci pour ton aide.

[ouskel'n'or]

Mets un frame dans un userform assez haut + 1 bouton et derrière le clic, mets ça

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim i
    For Each LeControle In Me.Controls
          i = i + 1
    Next
    Me.Frame1.SetFocus
    Me.Copy
    Me.Paste
    Nom = Me.Controls(i).Name
    Me.Controls(i).Top = Me.Controls(i - 1).Top + Me.Controls(i - 1).Height
End Sub

Pour chaque clic tu auras un frame qui ira se mettre sous l'autre
A toi de gérer
A+

[dev81]

J'ai une erreur d'execution avec comme remarque "argument invalide".
sur cette ligne:

Code :

Nom = FormPilotage.Controls(k).Name

voila mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For j = 1 To FormPilotage.TextBox_NbPara.Value
 
        For Each LeControle In FormPilotage.Controls
              k = k + 1
        Next
        FormPilotage.FraPara.Visible = True
        FormPilotage.FraPara.SetFocus
        FormPilotage.Copy
        FormPilotage.Paste
        FormPilotage.FraPara.Visible = False
        Nom = FormPilotage.Controls(k).Name
        FormPilotage.Controls(k).Top = FormPilotage.Controls(k - 1).Top + FormPilotage.Controls(k - 1).Height
 
    Next j

Ca ne marche pas des que la boucle fait plus d'un tour.
Pouvez-vous m'aider?

Merci d'avance.

[ouskel'n'or]

Reûfléchis ! Si tu ne réinitialises pas k en fin de boucle For each, avant Next j, tes k continuent de s'incrémenter

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For j = 1 To FormPilotage.TextBox_NbPara.Value
 
        For Each LeControle In FormPilotage.Controls
              k = k + 1
        Next
        FormPilotage.FraPara.Visible = True
        FormPilotage.FraPara.SetFocus
        FormPilotage.Copy
        FormPilotage.Paste
        FormPilotage.FraPara.Visible = False
        Nom = FormPilotage.Controls(k).Name
        FormPilotage.Controls(k).Top = FormPilotage.Controls(k - 1).Top + FormPilotage.Controls(k - 1).Height
        k= 0
    Next j

Pas tester mais tu ne vas pas tarder à le faire
Tu dis
A+

[dev81]

Merci, étourderie.

[ouskel'n'or]

C'est résolu ? Alors un petit clic sur Résolu en bas de la fenêtre

[dev81]

Pas tout à fait, derniere chose,
comment récuperer le controle qui m'interesse (le frame)?

Ici on récupère le nom du controle:

Code :

Nom = FormPilotage.Controls(k).Name

copier le controle en gros.

J'ai essayé ca mais ca ne marche pas.

Code :

1
2
Dim Nframe As Controls
Set Nframe = FormPilotage.Controls(k)

voici le code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
For j = 1 To FormPilotage.TextBox_NbPara.Value
 
        For Each LeControle In FormPilotage.Controls
              k = k + 1
        Next
        FormPilotage.FraPara.Visible = True
        FormPilotage.FraPara.SetFocus
        FormPilotage.Copy
        FormPilotage.Paste
        FormPilotage.FraPara.Visible = False
        Nom = FormPilotage.Controls(k).Name
        MsgBox Nom
        Set Nframe = FormPilotage.Controls(k)
        Nframe.Visible = False
        FormPilotage.Controls(k).Top = FormPilotage.Controls(k - 1).Top + FormPilotage.Controls(k - 1).Height
        k = 0
 
    Next j

[ouskel'n'or]

Et si tu te contentes de mettre

Code :

FormPilotage.Controls(k).visible = false

Testé, ça fonctionne.
Par contre, va falloir que tu t'organises pour identifier chaque frame par son index

[ouskel'n'or]

Tiens, j'ai fait ça, aussi, en dehors de la boucle et ça fonctionne aussi.

Code :

    Me.Controls(2).Visible = False

épissaoci !

Code :

    Me.Controls("Frame2").Visible = False

[ouskel'n'or]

Épijéféça

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
Dim LesFrames As New Collection
Dim i
    For Each LeControle In Me.Controls
          i = i + 1
    Next
    Me.Frame1.SetFocus
    Me.Copy
    Me.Paste
    Nom = Me.Controls(i).Name
    LesFrames.Add Me.Controls(Nom)
    Me.Controls(i).Top = Me.Controls(i - 1).Top + Me.Controls(i - 1).Height
    'Me.Controls("Frame2").Visible = False
    LesFrames(1).Visible = False
End Sub

et ça marche aussi

[dev81]

Merci c'est bon.

[dev81]

Pas tout à fait finallement, Désolé je t'enbeter pas mal et je te remercie de toute les infos que tu me fournis.
Maintenant que j'ai copié mes frames et que je peux les afficher comme je veux.
Comment trouver les boutons sur mes frames?(qui change suivant les frames affichés.)