Usf Afficher des Tbx en Fonction, d'un Nombre choisi dans Cbx

[MuscatMimi]

Bonjour a tous

J'aimerai savoir ,s'il est possible de faire afficher
des TBx dans un Usf, en fonction
d'un Nombre choisi dans une Cbx
Ex: Choix de 2 pour afficher que deux Tbx

par avance ,merci
Cordialement

 

[Pierrot93]

Re : Usf Afficher des Tbx en Fonction, d'un Nombre choisi dans Cbx

Bonjour,

regarde ceci, si j'ai bien compris :

Dim i As Byte
If ComboBox1.ListIndex <> -1 Then
    For i = 1 To ComboBox1.Value
        Me.Controls("TextBox" & i).Visible = True
    Next i
End If

bon après midi
@+

 

[YANN-56]

Re : Usf Afficher des Tbx en Fonction, d'un Nombre choisi dans Cbx

Bonjour Christian, et à ceux qui passeront par ici,

Voici comment j'ai pensé le faire, sous réserve d'avoir compris ta recherche:

Private Sub ComboBox1_Change()

Dim MES_TEXTBOXES As Control
For Each MES_TEXTBOXES In Me.Controls

    If TypeName(MES_TEXTBOXES) = "TextBox" Then
    
       MES_TEXTBOXES.Visible = False
    
        If Mid(MES_TEXTBOXES.Name, 8, 2) < CDbl(Me.ComboBox1.Value) + 1 Then
         MES_TEXTBOXES.Visible = True
        End If
        
    End If
    
Next MES_TEXTBOXES

End Sub

Quant à ce que j'ai mis dans l'Initialize de l'USF,
cela n'est issu que de ma fainéantise à paramétrer les Contrôles.

Regarde l'exemple joint, et dis-moi.
(A noter qu'il y a peut-être plus simple)

Amicalement

Yann

P.S. Pierrot, je ne t'avais pas vu.... Mes amitiés au passage. 🙂
Je vais regarder à simplifier mon code suivant ta façon de faire.
(Sauf que dans ma bidouille je réinitialise l'USF)

 

[YANN-56]

Re : Usf Afficher des Tbx en Fonction, d'un Nombre choisi dans Cbx

Re à tous,

Preuve, de la lourdeur de mon code initial:
Le voici allégé par suite de l'aide de Pierrot!

Private Sub ComboBox1_Change()
Dim i As Byte

For i = 1 To Me.ComboBox1.ListCount 'Pour la machine arrière!
Me.Controls("TextBox" & i).Visible = False
Next i

If ComboBox1.ListIndex <> -1 Then 'Suivant l'aide de Pierrot
    For i = 1 To ComboBox1.Value
        Me.Controls("TextBox" & i).Visible = True
    Next i
End If

End Sub

Dis Pierrot! T'aurais pas aussi un truc pour ma bedaine? 🙂

Quel bonheur de recevoir si belle aide!!!

Au plaisir.

Yann

 

[Pierrot93]

Re : Usf Afficher des Tbx en Fonction, d'un Nombre choisi dans Cbx

Re, bonjour Yann

Dis Pierrot! T'aurais pas aussi un truc pour ma bedaine?

Aarf, perso rien pour toi de ce cotè là... 🙂
Te souhaitant une bonne fin d'après midi
@+

 

[laetitia90]

Re : Usf Afficher des Tbx en Fonction, d'un Nombre choisi dans Cbx

bonjour vaucluse immo les amis Pierrot & yann🙂🙂
une autre approche mais il faudrait savoir ce que veut faire vaucluse immo avec ces textboxs???

 

[MuscatMimi]

Re : Usf Afficher des Tbx en Fonction, d'un Nombre choisi dans Cbx

Bonsoir, a tout les intervenants, de mon fil

Finalement j'ai opté pour le code de Pierrot

Laetitia,pas mal ta démo,qui génére des Tbx,
et ce qui serait bien, c'est de pouvoir,augmenter la taille de l'Usf
en fonction du nombres de Tbx crées,
ça éviterais, un Usf vide a l'ouverture
Dans ma version 'l'Usf a une zone vide, zone qui corresponds a l'emplacement des 12 Tbx
tout comme dans ton exemple(qui en comporte 10)

Bonne soirée a tous

Cordialement

En fait mes Tbx servent a entrer des Noms de Dossiers
pour les créer dans un Dossier de mon choix,dossier que je sélectionne ,via BrowseFolder
dont le chemin s'affiche dans une Tbx

 

[YANN-56]

Re : Usf Afficher des Tbx en Fonction, d'un Nombre choisi dans Cbx

Bonsoir Christian, aux participants et à ceux qui passeront par ici,

La proposition de création dynamique des TextBoxes faite par Laetitia est des plus pertinentes.

Tu n'auras certainement pas de mal à adapter la mise en page dans ton USF
(Voire sur différentes positions en "Left" et en limiter le nombre en vertical)

Quant à préciser la taille en hauteur de l'USF; il suffit de lui préciser
son "Height" = Le dernier TextBox vertical.Top+ Ce dernier height + 6 par exemple.

A noter qu'il y aurait peut-être plus simple pour créer un Sous-Dossier
au nom que tu aurais précisé dans une TextBox, et ceci dans un répertoire de ton choix.

Un nom -> une Création... Un nom -> une Création... Et c.
Et au passage changer éventuellement de destination.

Au risque que cela soit trop fastidieux; aller chercher les noms dans une colonne d'une feuille!

Mais comme tu sembles bien avancé dans ton projet, je ne voudrais pas y fiche le désordre.

Amicalement.

Yann

 

[MuscatMimi]

Re : Usf Afficher des Tbx en Fonction, d'un Nombre choisi dans Cbx

Bonjour a tout les intervenant pour ce fil, et le Forum

Merci de tes explications Yann,mais côté créer dynamiquement
des controles,Usf etc,ça je sais pas faire

Si, Laetitia,ou une autre personne a une idée,
sur la base de l'exemple de Laetitia,
pour agrandir Usf en fonction du nombres
de Tbx a afficher, ce serais super parfait

a +++++++ a tous et merci de votre aide

Bonne journée
Cordialement

 

[laetitia90]

Re : Usf Afficher des Tbx en Fonction, d'un Nombre choisi dans Cbx

rebonjour tous;

un autre exemple a adapter

 

[MuscatMimi]

Re : Usf Afficher des Tbx en Fonction, d'un Nombre choisi dans Cbx

Bonjour Laetitia

Je n'ai qu'un mot a dire Chapeau, belle prestation, trop fort

Maintenant,je vais essayer,de comprendre le code
et de pouvoir placer ces Tbx sur deux colonnes
Si je n'y arrive pas je reviendrai vers toi
Cordialement

 

[YANN-56]

Re : Usf Afficher des Tbx en Fonction, d'un Nombre choisi dans Cbx

Bonjour Christian, et à ceux qui passeront par ici,

Merci de tes explications Yann,mais côté créer dynamiquement
des controles,Usf etc,ça je sais pas faire

C'est pourtant ce que Laetitia t'a montré dans son code.

Parallèlement à son beau travail, je me suis amusé à faire l'exemple joint.

A noter que si tu veux paramétrer la saisie dans ces TextBoxes,
il sera indispensable de le faire via un module de classe.

Amicalement.

(Et en restant à ta disposition pour plus amples explications relatives à cette création dynamique, et si besoin est, sur la mise dans un module de Classe de tes TextBoxes .... Il y a du boulot, mais cela en vaut la peine!!!)

Yann