VBA: Appeller une textbox créée depuis le code

M

mememe

XLDnaute Nouveau
Bonjour à tous!

Tout d'abord, bonne et heureuse année à tous!
Je viens à vous pour un petit problème qui me turlupine!

En fait, j'ai créé des textbox dans un userform via ma macro, et je lui ai donné un nom.
Jusqu'ici, rien d'extraordinaire.

Quand je demande une liste des controls du userform avec un for....each..., mes textbox apparaissent avec le bon nom.

Mais quand je tape une valeur dans le userform et que j'essai de la récupérer via un userform.textbox11.value, il ne reconnait pas la textbox.

Quelqu'un pour m'aider?
D'avance merci, ça me bloque un peu...

Bonne soirée!



Code: 
Public Sub CommandButton1_Click()
Dim obj As Object
Dim answer As String

For Each obj In Def_paroi.Controls
answer = answer & vbLf & obj.Name
Next

MsgBox answer

answer = (Def_paroi.textbox32.Value)


Unload Def_paroi

End Sub

Public Sub nombre_mur_change()

Dim valeur As Variant

Def_paroi.Hide
ReDim nb_mur_paroi(Def_paroi.nombre_mur.Value)
nb_mur_paroi(no_paroi) = Def_paroi.nombre_mur.Value
    
Dim Top, Lefti, Width, Height, i As Integer
Dim NumeroTextBox As Integer
Dim TextBoxName, labelname, labelcolonne As String

'supp^ression des textbox

Dim CTRL As Control
i = 0
For Each CTRL In Me.Controls
    If TypeOf CTRL Is MSForms.TextBox Or TypeOf CTRL Is MSForms.Label Then
            Me.Controls.Remove (i)
    Else
        i = i + 1
    End If
Next
    
Top = 70

Width = 50
Height = 20
NumeroTextBox = 1




Def_paroi.Height = 115


i = 1
test = False

While i <= 20 And i <= nb_mur_paroi(no_paroi)

       
 Def_paroi.Width = 260
 Lefti = 70
             Def_paroi.Height = Def_paroi.Height + 25
            
        labelname = "Paroi" & i
        Set labelparoi = Def_paroi.Controls.Add("Forms.label.1", labelname, True) 'Ouverture est le nom de ma fenetre
        
        Lefti = 50
        
        With labelparoi
        .Visible = True
        .Caption = "paroi " & i
        .Top = Top 'Definit la distance entre le bord de la fenetre et le bord du conteneur
        .Left = Lefti - 45 'Definit la distance entre le bord gauche de la fenetre et le bord du conteneur
        .Width = Width 'Definit la largeur de l'objet
        .Height = Height 'Definit la hauteur de l'objet
        .Font.Size = 10
        End With
        
            
            
            For j = 1 To 3
        
                TextBoxName = "textbox" & i & j
                Set TextBox = Def_paroi.Controls.Add("Forms.textbox.1", TextBoxName, True)  'Ouverture est le nom de ma fenetre
        
                With TextBox
                .Name = TextBoxName
                .Visible = True
                .Top = Top 'Definit la distance entre le bord de la fenetre et le bord du conteneur
                .Left = Lefti 'Definit la distance entre le bord gauche de la fenetre et le bord du conteneur
                .Width = Width 'Definit la largeur de l'objet
                .Height = Height 'Definit la hauteur de l'objet
                .Font.Size = 10
                End With
                
                
                labelcolonne = "Labelcolonne" & j
                Set labelcol = Def_paroi.Controls.Add("Forms.label.1", labelcolonne, True)  'Ouverture est le nom de ma fenetre
        
                With labelcol
                .Visible = True
                .Top = 50 'Definit la distance entre le bord de la fenetre et le bord du conteneur
                .Left = Lefti 'Definit la distance entre le bord gauche de la fenetre et le bord du conteneur
                .Width = Width 'Definit la largeur de l'objet
                .Height = Height 'Definit la hauteur de l'objet
                .Font.Size = 10
                End With
                
                If j = 1 Then
                    labelcol.Caption = "Coord. X"
                Else
                    If j = 2 Then
                        labelcol.Caption = "Coord. Y"
                            Else
                                labelcol.Caption = "Teta /X"
                            End If
                    End If
                
                
            Lefti = Lefti + 70
            
            Next j
 i = i + 1
Top = Top + 25
        
Wend


If i > 20 Then
Top = 70
 For i = 21 To nb_mur_paroi(no_paroi)
 
             Def_paroi.Width = 520
             Lefti = 320
        
        labelname = "Paroi" & i
        
        Set labelparoi = Def_paroi.Controls.Add("Forms.label.1", labelname, True) 'Ouverture est le nom de ma fenetre
                
        With labelparoi
        .Visible = True
        .Caption = "paroi " & i
        .Top = Top 'Definit la distance entre le bord de la fenetre et le bord du conteneur
        .Left = Lefti - 45 'Definit la distance entre le bord gauche de la fenetre et le bord du conteneur
        .Width = Width 'Definit la largeur de l'objet
        .Height = Height 'Definit la hauteur de l'objet
        .Font.Size = 10
        End With
        
            
            
            For j = 1 To 3
        
                TextBoxName = "textbox" & i & j
                Set TextBox = Def_paroi.Controls.Add("Forms.textbox.1", TextBoxName, True)  'Ouverture est le nom de ma fenetre
        
                With TextBox
                .Name = TextBoxName
                .Visible = True
                .Top = Top 'Definit la distance entre le bord de la fenetre et le bord du conteneur
                .Left = Lefti 'Definit la distance entre le bord gauche de la fenetre et le bord du conteneur
                .Width = Width 'Definit la largeur de l'objet
                .Height = Height 'Definit la hauteur de l'objet
                .Font.Size = 10
                End With
                
                
                labelcolonne = "Labelcolonne" & j
                Set labelcol = Def_paroi.Controls.Add("Forms.label.1", labelcolonne, True)  'Ouverture est le nom de ma fenetre
        
                With labelcol
                .Visible = True
                .Top = 50 'Definit la distance entre le bord de la fenetre et le bord du conteneur
                .Left = Lefti 'Definit la distance entre le bord gauche de la fenetre et le bord du conteneur
                .Width = Width 'Definit la largeur de l'objet
                .Height = Height 'Definit la hauteur de l'objet
                .Font.Size = 10
                End With
                
                If j = 1 Then
                    labelcol.Caption = "Coord. X"
                Else
                    If j = 2 Then
                        labelcol.Caption = "Coord. Y"
                            Else
                                labelcol.Caption = "Teta /X"
                            End If
                    End If
                                
            Lefti = Lefti + 70
            
            Next j
            
        Top = Top + 25
 
        
Next
End If


Def_paroi.Height = Def_paroi.Height - 25

Def_paroi.Show
'Def_paroi.nombre_mur.SetFocus

'MsgBox (Def_paroi.textbox32.Value)


End Sub
 
Trier par date Trier par votes
M

mememe

XLDnaute Nouveau
Re : VBA: Appeller une textbox créée depuis le code

C'est pas mon code cette fois:rolleyes:

L'interet est de décaler les trois colonnes pour que les 20 lignes suivantes soient dans une deuxième colonne... c'est pas clair?

En gros, au dessus de 20lignes, le USF sort en bas de l'écran sur les petits écrans...
Donc, il faudrait créer une deuxième colonne...

Une idée? :confused:
 
Vote positif 0 Vote négatif
James007

James007

XLDnaute Barbatruc
Re : VBA: Appeller une textbox créée depuis le code

Merci pour ton explication ...

Mais je ne comprends pas tout : pourquoi la paroie 1 et la paroie 21 devraient avoir les mêmes trois coordonnées ...?

Ne faudrait-il pas tout doubler ...?

Avant de partir dans des calculs de modulo, pour décaler les labels ... mieux vaut être clair sur l'objectif final ...

P.S. a priori, je viens de faire un test sur un autre ordinateur ... c'est davantage 17 que 20 que tu devrais considérer comme limite pour les petits écrans ...

A +
:)
 
Vote positif 0 Vote négatif
M

mememe

XLDnaute Nouveau
Re : VBA: Appeller une textbox créée depuis le code

Les parois 21 et 1 n'auront pas les même coordonnées.
En fait, le numéro de la paroi va changer, et l'incrémentation du nom des textbox va continuer, ce seront donc des textbox différentes, avec des coordonnées de paroi différentes.

Dans le code qu'on m'a fourni, ca n'a pas été reprit, mais les textbox s'appelleront:

ligne 1 : textbox11 textbox12 textbox13
ligne 2: textbox21 textbox22 textbox23

A chaque fois, je concatene i et j pour former le nom de ma textbox.

C'est vraiment gentil de prendre du temps, merci!
 
Vote positif 0 Vote négatif
James007

James007

XLDnaute Barbatruc
Re : VBA: Appeller une textbox créée depuis le code

Merci ...

Voilà une explication claire et rassurante ... pour éviter d'aller ... dans le mur ;)

Tu n'as plus qu'à décider du modulo qui va modifier le Left et le Top de tes Labels ...

A +
:)
 
Vote positif 0 Vote négatif
M

mememe

XLDnaute Nouveau
Re : VBA: Appeller une textbox créée depuis le code

Heu.... je vais me faire huer, mais c'est quoi un modulo?
Et je le mets où ce fameux bidule?

Il faut bien que je mette la condition du nombre de ligne avant le changement de colonne?
Et avec le code du fichier mememe.xls, je ne sais pas du tout où la mettre!

Je vais surement m'acheter un bouquin, histoire d'avoir les bases et d'éviter ce genre de questions à l'avenir!
 
Vote positif 0 Vote négatif
James007

James007

XLDnaute Barbatruc
Re : VBA: Appeller une textbox créée depuis le code

C'est plus simple que çà ... je viens de regarder ton code ...

Il te suffit de rajouter une condition dans ta boucle i pour Lbl et que
lorsque i > 20 , Left soit égal par exemple au Left de base + 40
et Top soit égal au Top de base - (25 * 20 )

A +
:)
 
Vote positif 0 Vote négatif
M

mememe

XLDnaute Nouveau
Re : VBA: Appeller une textbox créée depuis le code

Je ne sais pas si on parle du même code....
Ou alors, je suis vraiment naze :(

Code: 
Private Sub CommandButton1_Click()
Dim ctl As Control
Dim liste As String
For Each ctl In Me.Controls
    liste = liste & vbLf & ctl.Name
Next
MsgBox liste

End Sub

Private Sub CommandButton2_Click()
MsgBox Me!TextBox11
'ou
'MsgBox Me.Controls("TextBox1")

End Sub

Public Sub NbMurs_change()
Dim ctl As Control, TLbl As Variant, Lbl As Control, NbLbl As Byte, NbTbx As Byte
For Each ctl In Me.Controls
    If TypeOf ctl Is MSForms.textbox Or TypeOf ctl Is MSForms.Label Then Me.Controls.Remove ctl.Name
Next
pos = Me.Top + (Me.Height / 2)
NbLbl = 1
NbTbx = 1
If NbMurs.ListIndex = -1 Then Exit Sub
TLbl = Array("Coord. X", "Coord. Y", "Teta /X", "Type paroi")
For i = LBound(TLbl) To UBound(TLbl)
    Set Lbl = Me.Controls.Add("forms.Label.1", "Label" & NbLbl)
    With Lbl
        .Object.Caption = TLbl(i)
        .Left = 50 + i * 55
        .Top = 50
        .Width = 50
        .Height = 12
        .TextAlign = 2
        NbLbl = NbLbl + 1
    End With
Next
For i = 1 To NbMurs
    Set Lbl = Me.Controls.Add("Forms.Label.1", "Label" & NbLbl)
    With Lbl
        .Object.Caption = "Paroi" & i
        .Left = 10
        .Top = 74 + (25 * (i - 1))
        .Width = 35
        .Height = 12
        .TextAlign = 1
        NbLbl = NbLbl + 1
    End With
    For j = 1 To 3
        Set Lbl = Me.Controls.Add("Forms.TextBox.1", "TextBox" & i & j)
        With Lbl
            .Left = 50 + (55 * (j - 1))
            .Top = 70 + (25 * (i - 1))
            .Width = 50
            .Height = 18
            NbTbx = NbTbx + 1
            Haut = .Top
        End With
    Next
Next

Me.Height = Haut + 50
Me.Top = pos - (Me.Height / 2)

End Sub

Private Sub UserForm_Activate()
Dim i As Integer
For i = 1 To 40
NbMurs.AddItem i
Next i
 
Vote positif 0 Vote négatif
James007

James007

XLDnaute Barbatruc
Re : VBA: Appeller une textbox créée depuis le code

Re,

Dans ta boucle : For i = 1 To NbMurs
tu as ensuite une section : With Lbl
qui te sert à la création de tes Labels
et c'est là que se trouve .Left et .Top

Corriges moi si je dis une bêtise ... mais ce sont bien ces deux valeurs que tu cherches à modifier depuis le début .... :confused: :confused:

A +
:)
 
Vote positif 0 Vote négatif
James007

James007

XLDnaute Barbatruc
Re : VBA: Appeller une textbox créée depuis le code

mememe à dit:
Oui, et aussi la largeur du USF.

Je dois recréer 2 variable non?
Une pour le left de lbl et l'autre pour le left des txtbox? non?
Cliquez pour agrandir...

Tu as raison ... puisque tout se décale sur la gauche de 40 ...
L'idéal serait même d'espacer tous tes contrôles depuis un point fixe en haut à droite ...
Tu peux te lancer dans le code ou attendre ...
Car Kjin est un vrai magicien ...:)

A +
:)
 
Vote positif 0 Vote négatif
M

mememe

XLDnaute Nouveau
Re : VBA: Appeller une textbox créée depuis le code

James007 à dit:
Car Kjin est un vrai magicien ...:)
:)
Cliquez pour agrandir...

Oui, j'avoue....
Vous me rendez bien service.

J'aurais une autre question pratique, en attendant kjin!
Je souhaite ensuite déclarer x murs par paroi, et x panneaux par murs.
Le plus simple est de faire un USF dynamique par étape?

Sachant que je compte ensuite incrémenter 3 tableaux:
Un paroi, un mur et un panneau

une question, quand on cache le userform (par .Hide), les valeurs sont conservées?
Jusqu'à quand?
 
Vote positif 0 Vote négatif
K

kjin

XLDnaute Barbatruc
Re : VBA: Appeller une textbox créée depuis le code

Re, salut James :),
Ton fichier réadapté en PJ

Edit : j'oubliais...les TextBoxes se nomment dorénavant TexBox1_1, TextBox1_2, TextBox1_3 pour Paroi1...etc
mememe à dit:
Je souhaite ensuite déclarer x murs par paroi, et x panneaux par murs.
Le plus simple est de faire un USF dynamique par étape?
Sachant que je compte ensuite incrémenter 3 tableaux:
Un paroi, un mur et un panneau
Cliquez pour agrandir...
Pas vraiment compris
mememe à dit:
une question, quand on cache le userform (par .Hide), les valeurs sont conservées?
Jusqu'à quand?
Cliquez pour agrandir...
Oui, jusqu'au déchargement du formulaire
A+
kjin
 

Pièces jointes

  • mememe_v2.zip
    12 KB · Affichages: 41
Dernière édition:
Vote positif 0 Vote négatif
M

mememe

XLDnaute Nouveau
Re : VBA: Appeller une textbox créée depuis le code

Ho my god.

C'est génial, merci beaucoup, vraiment! c'est gentil d'aider les débutants!

Pour le bidule que j'ai mal expliqué:

Je souhaite dire après avoir renseigné les parois que la paroi(i) comporte n murs, qui eux même comportent n panneaux.
J'aurais aimé faire un seul userform, mais ça risque d'être très compliqué vu mon niveau.

Qu'en pensez vous?
Une boucle qui fait renseigner le nombre de mur pour chaque paroi, puis une boucle pour le nombre et les dimensions des parois pour chaque mur?
Ou un seul USF c'est gérable?

Et merci encore, surtout!
 
Vote positif 0 Vote négatif

Discussions similaires

D
  • Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
360
crocrocro
C
S
  • Question
Microsoft 365 créer un macro vba
Réponses
0
Affichages
153
souhaib ad
S
M
  • Question
XL 2019 Optimisation code VBA
Réponses
11
Affichages
687
mmaiga
M
O
  • Question
Microsoft 365 Excel [VBA]. Erreur d’exécution 424 Objet requis sur une concaténation
Réponses
3
Affichages
153
Oneida
Oneida
J
  • Question
XL 2016 Transformer un nouveau Tableau à double entrée en liste en VBA - impossibilité d'adapter le code
2
Réponses
23
Affichages
970
patricktoulon
patricktoulon
S
  • Question
Microsoft 365 Précocher des cases d'une VBA listbox multiselect
Réponses
2
Affichages
734
SGL
S
Ferbank
  • Question
XL 2019 modifier une macro
Réponses
2
Affichages
745
Ferbank
Ferbank
PHV.FSM
  • Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
3 K
Nico_J
Nico_J
T
  • Résolu(e)
XL 2019 Copier une zone de texte à intervalle régulier
Réponses
11
Affichages
757
thespeedy20
T
Etoto
  • Résolu(e)
Microsoft 365 Code VBA qui renvoie une matrice à partir d'un liste à cocher au lieu d'une cellule
Réponses
5
Affichages
572
yal
Y

Membres actuellement en ligne

2 membres et 42 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 215
Messages
2 086 329
Membres
103 184
dernier inscrit
Di Martino