Discussion :

[guitalex]

Bonjour,

J'aimerais afficher une série de "string" variable (pouvant être différentes à chaque affichage) dans un userform qui lui, contient le texte précédant mais également des Textbox ainsi que des CommandButon.

Mon concept est: Créer un bouton "Recherche" affichant tous les clients trouvés dans une liste ayant, par exemple, tous la même première lettre, et donner le choix à l'utilisateur d'en choisir 1 parmi eux ! Etc..

Comment dois-je faire pour afficher ces choix?

Merci infiniment de votre aide!

[Theze]

Bonjour,

Une piste avec Like. Pour le test, une ListBox et un TextBox, la liste se remplie en fonction des lettres saisies dans le TextBox. A mettre dans le module de la Form :

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
27
28
29
30
31
32
33
34
35
 
'afin de ne pas tenir compte de la casse
Option Compare Text
 
Private Sub TextBox1_Change()
 
    Dim Plage As Range
    Dim Cel As Range
 
    'vide la liste systématiquement
    ListBox1.Clear
 
    'si vide, fin !
    If TextBox1.Text = "" Then Exit Sub
 
    'défini la plage en colonne A de la feuille active
    With ActiveSheet
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    'parcour la plage à la recherche des mots commençant par les lettres saisies
    'et les charge dans la ListeBox
    For Each Cel In Plage
 
        If Cel.Value Like TextBox1.Text & "*" = True Then
 
            ListBox1.AddItem Cel.Value
 
        End If
 
    Next Cel
 
End Sub

Hervé.

[guitalex]

Merci beaucoup de votre aide si rapide et utile! Trop génial!

Dans la même lignée de question, est-il possible de créer des zones de texte *d'affichage* dans un userform? Bref, j'aimerais afficher une phrase (string) dans une zone de mon userform mais je ne trouve pas de solution....

Merci infiniment encore une fois!

en fait, j'ai en parti réussi...

J'ai fais un Label et je change les propriétés mais lors de l'exécution du userform, ce changement n'est effectif qu'après avoir cliqué sur la zone de texte affichable... Pourquoi?

Comment faire pour que l'Affichage de mon userform se fasse directement avec les propriétés changées...?

re-re et re-merci!

[Theze]

Bonjour,

ce changement n'est effectif qu'après avoir cliqué sur la zone de texte affichable... Pourquoi?

Le changement n'est effectif qu'après avoir cliqué car tu utilise l'évènement "Click" du Label.
Sur quel évènement veux-tu que ton changement soit effectif dans ton Label ?

Hervé.

[guitalex]

j'aimerais que le Label soit changé à l'ouverture/affichage du userform.

[Theze]

Bonjour,

Tu peux utiliser l'évènement "Initialize" de la Form. A mettre dans le module de la Form :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub UserForm_Initialize()
 
    Label1.Caption = "C'est le texte que je veux afficher à l'ouverture de la Form !"
 
End Sub

Hervé.