Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 3 sur 3
  1. #1
    Invité de passage
    Inscrit en
    mai 2006
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : mai 2006
    Messages : 6
    Points : 0
    Points
    0

    Par défaut [VBA-E] UserForm avec textbox "Dynamique"

    Je travaille actuellement sur une base de données sous Excel . Les données sont saisies dans une userform avec plusieurs textbox placés dans des frames différentes.A la fin de ma userform ,j'ai une frame qui contient plusieurs textbox me permettant de joindre des documents . Dans cette frame j'ai 6 textbox avec un bouton "+" à coté et une dernière textbox.

    Au début dans ma denière frame , j'ai seulement ma 1ère textbox qui est visible . L'utilisateur appuie sur le bouton "+" à coté et la 2ème textbox s'affiche . En gros , la seule solution (vu mon nivo ) est de jouer sur la longeur de ma userform -> le bouton "+" augmente sa taille au fur et à mesure révélant ainsi mes autres textbox déjà " en dur " sur ma userform.

    Ca me pose plusieurs problèmes : 1 - c'est pas "propre" au nivo du code et si la personne à 7 pièces à joindre , elle doit appeler de nouveau la userform .


    Pour conclure mes questions :
    - 1) Comment créer des textes dynamiquements avec mon bouton "+" ( "simplement" dès que j'appuie sur + après avoir rempli ma textbox , une nouvelle apparait après avoir appuyer sur "+" ? Est-ce faisable du code écrivant du code ??? Est ce compliqué à faire ?

    - 2) Comment les récupérer ( Ref. du control et valeur ) ?

    - 3 ) Comment ajouter dynamiquement une barre verticale scrolling pour eviter que mon filtre ne dépasse la taille de l'écran.

    -4 ) BONUS : Si 1) faisable , est-ce possible de les supprimer avec un bouton "-" en cas d'erreur utilisateur ?

    Je remercie déjà les personnes qui vont lire mon message

  2. #2
    Membre expérimenté
    Inscrit en
    septembre 2005
    Messages
    613
    Détails du profil
    Informations forums :
    Inscription : septembre 2005
    Messages : 613
    Points : 569
    Points
    569

    Par défaut

    Voici un exemple de code à placer dans un Userform, qui permet de créer
    dynamiquement un COMMANDBUTTON et un TEXTBOX et de récupérer leurs
    événements:
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
     
    Private WithEvents Bouton1 As MSForms.CommandButton
    Private WithEvents Text1 As MSForms.TextBox
     
    Private Sub Bouton1_Click()
    MsgBox "Hello !!!"
    End Sub
     
    Private Sub CommandButton1_Click()
    Set Bouton1 = UserForm1.Controls.Add("Forms.CommandButton.1", "Bouton1",
    True)
    Bouton1.Left = 18
    Bouton1.Top = 150
    Bouton1.Width = 175
    Bouton1.Height = 20
    Bouton1.Caption = "je suis : " & Bouton1.Name
     
    Set Text1 = UserForm1.Controls.Add("Forms.TextBox.1", "Text1", True)
    Text1.Left = 18
    Text1.Top = 200
    Text1.Width = 175
    Text1.Height = 20
    Text1.Text = "je suis : " & Text1.Name
    End Sub
    Pour le supprimer :

    Code :
    1
    2
    UserForm1.Controls.Remove "NomDuControle"
    Inspire toi de ca...
    N'oubliez pas de mettre le

  3. #3
    Membre expérimenté
    Inscrit en
    septembre 2005
    Messages
    613
    Détails du profil
    Informations forums :
    Inscription : septembre 2005
    Messages : 613
    Points : 569
    Points
    569

    Par défaut

    Pour les scrollbar tu peux les afficher comme ca:

    Code :
    1
    2
    UserForm1.ScrollBars = fmScrollBarsVertical
    UserForm1.ScrollHeight = 2000
    PS la heuteur dépendra du nombre de controle ajoutés a toi de trouver un moyen de les compter

    Pour les enlever completement

    Code :
    1
    2
    UserForm1.ScrollHeight = 0
    UserForm1.ScrollBars = fmScrollBarsNone

    Et voila :p
    N'oubliez pas de mettre le

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •