Discussion :

[Pierre67]

Bonjour à tous

sur la base d'un tableau, j'ai crée un userform de saisie, consultation, ... pas de problème grâce à tout ce que j'ai appris ici.
merci à tous les contributeurs.

ma question : si je rajoute une colonne à mon tableau, est-il possible que dans mon userform soit rajouté via le code un label avec l'intitulé de ma nouvelle colonne et la textbox correspondante ?

Quelqu'un a t-il déjà réalisé un truc pareil ou est-ce vraiment trop compliqué ?

bon week end à tous

[tamtam64]

Ce n'est pas dur , mais par contre je trouve ca un peu dommage, je m'explique , pourquoi faire ca , tu risque d'alourdire ton userform , explique nous pourquoi tu veux rajouter des textbox :
Car si tu ajoute 10 colonne tu aura 1à textbox en plus?
dur à gerer ton truc , revois l'organisation et on t'aidera avec plaisir

[Pierre67]

en fait, s'il fallait ce serait rajouter une voire 2 colonnes.

[joe.levrai]

Bonjour,

pourquoi ne pas construire dynamiquement tes contrôles ?

1) tu crée un userform sans contrôle
2) dans sa procédure d'initialisation, tu inspectes les colonnes de ta feuille
3) pour chaque colonne : création d'un label avec le nom de l'en-tête et d'un Textbox associé

fait une recherche sur le forum, il y a des tuto, faq et quantités de sujets qui te permettront :

- de gérer la création des contrôles
- d'éventuellement écrire des procédures pour ces contrôles
- de calculer automatiquement les bonnes dimensions et les bons positionnements des contrôles

[Pierre67]

Bonjour et Merci Joêl

j'ai cherché déjà, pas trop trouvé ce que je voulais

j'avais vu une applic où le simple fait de saisir un texte dans un ligne spécifique ajoutait automatiquement le le label et textbox mais je en sais plus

c'est beaucoup pour ma culture perso :-)

[joe.levrai]

Prend un nouveau classeur
dans la feuille 1, tu remplies la ligne 1 en partant de la colonne A ... remplis 8 cellules par exemple (pas de cellule vide pour ce test)

tu crées ensuite un Userform que tu laisses entièrement vide

tu colles ce code dans le Userform :

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
Private Sub UserForm_Initialize()
Dim MesTitres()
 
MesTitres = Application.Transpose(Feuil1.UsedRange.Rows(1).Value)
 
With Me
    .Height = (UBound(MesTitres, 1) + 1) * 24
    .Width = 180
    For i = LBound(MesTitres, 1) To UBound(MesTitres, 1)
        With .Controls.Add("Forms.Label.1")
            .Left = 12
            .Top = i * 24 - 20
            .Caption = MesTitres(i, 1)
        End With
 
        With .Controls.Add("Forms.TextBox.1")
            .Left = 84
            .Top = i * 24 - 20
        End With
    Next i
End With
 
End Sub

tu lances la procédure et voilà, c'est pas compliqué

maintenant, à toi de jouer sur le dimensionnement, le positionnement etc...