Discussion :

[redstoff]

Bonjour,
je me trouve devant un probleme^^

tout d'abord voici mon code

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
18
19
chiffre = 1
    For LCadran = 1 To 3
        For CCadran = 1 To 3
            Set NouveauObject = Support.Controls.Add("Forms.CommandButton.1")
            With NouveauObject
                .Width = 70
                .Font.Size = 30
                .Top = Support.Height / 8 * (7 - LCadran)
                .Left = Support.Width / 6 * (CCadran + 1) - .Width / 2
                .Height = 40
                .Caption = chiffre
            End With
            Set collect = New Collection
            Set C1 = New Classe1
            Set C1.ChiffreCodeEtiquette = NouveauObject
            collect.Add C1
            chiffre = chiffre + 1
        Next CCadran
    Next LCadran

et celui qui va avec

Code :

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

    Support.Controls("ZoneSaisieCodeEtiquette") = ChiffreCodeEtiquette.Caption & Support.Controls("ZoneSaisieCodeEtiquette")

Normalement sa fonction doit etre:
- je crée des bouton de 1 à 9 (avec les caractéristiques .top, .caption ....)
- quand je clique sur un bouton il ajoute sa valeur .caption sur un label

le soucis de ce code viens du fait qu'il n'y a que le dernier bouton crée qui ajoute sa valeur au label.
et malheuresement je ne sais pas d'ou il peut venir le probleme.

Si quelqu'un sait je le remercie d'avance pour sa proposition.

[redstoff]

Bon j'ai réalisé ma connerie

le probleme venait de la commande

Code :

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

Set collect = New Collection

qui faut juste sortir de la boucle