Discussion :

[Tinni]

Bonjour a Forum, bonjour a tous,

Ma premiere question sur ce forum pcq je suis un peu perdu...

A l'initialisation de mon usf j´ai des textbox qui se créent dynamiquement. Ce que je cherche a faire cést lors d´un évenement cmd clik, appeler ces txtbox et en fonction de leur valeur (qui doit etre numerique) je crée de nouveux textbox et appelle des fonctions pour determiner leur valeur...

Intuitivement j´ai fait le code suivant mais je nárrive pas a appeler ces txtbox... et du coup je suis un peu bloqué sur mon code... (precision mes variables sont déclarées en debut de module)

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
20
21
22
23
24
25
26
Private Sub CmdCalc_Click()
NbLignes = Sheets(2).Range("A1", Selection.End(xlDown)).Cells.Count
For Each Ctrl In Me.Controls
'************ premier soucis -> je n'arrive pas a appeler mes controle qui se créent dynamiquement a l'initialisation de mon usf et agir en fonction de leur valeur
   If Ctrl.Name Like "TxtSelladas*" <> "" And Ctrl.Name Like "TxtFrac*" <> "" Then
        Set CollectTxt = New Collection
        For i = 2 To NbLignes
        Set Obj = Me.Controls.Add("forms.textbox.1")
            With Obj
                .Name = "TxtCantSelladas" & i
                .Object.Value = Selladas("TxtCantPract" & i, "TxtFrac" & i, "TxtSelladas" & i) 
                .Left = 644
                .Top = 22 * i + 4
                .Width = 22
                .Height = 16
                .Enabled = False
                .TextAlign = fmTextAlignCenter
            End With
        Set Cl = New Clase1
        Set Cl.textbox = Obj
        CollectTxt.Add Cl
        Next i
    Else
    MsgBox "Todos los campos de Sellada y de Fracción deben ser llenados!", 48, "Mensaje de error"
   End If
Next Ctrl

Je pense que ma solucion est au travers d´un module de classe avec un evenemnt sur mes ctrl mais nouvelle notion dont je ne métrise pas encore ses suptilités

Toutes bonnes idées et autres seront recues avec plaisir!

Merci d' avance.

[kiki29]

Salut, voir ici par exemple.

[Tinni]

Bjr Kiki29,

Ce lien me permet de limiter a l´entrée numerique dans mes txtbox qui se créent a l´initialisation de mon USF, cela grace a leur propriété tag.
Trés intéressant en soit, car ca va faire 2 heures que je cogite dessus.

Mais qui n´est pas spécifique a mon pb, car je souhaite créent de maniere dynamique d´autre text box lorsque mes text box "TxtSelladas" & i et "TxtFrac" & i ne sont pas vide, mon souci est que je ne sais pas comment les appeler (si ce n´est au travers de leur tag) ou meme interagir avec ces derniéres en fonction de leur valeur...

J´espere avoir été plus clair dans ma problématique.

Dans tous les cas merci, ca m´a permis de comprendre un peu mieux les modules de classe.

[Tinni]

Bonjour Forum,

Quelqu´un aurait si ce n´est juste une idée pour m´aider SVP; Si je n´ai pas été claire dans ma problématique je peurx fournir plus d ínfo...

Merci d ´avance...