userform avec affichage de texte variable

Version imprimable

13/03/2014, 03h35
guitalex

userform avec affichage de texte variable

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!

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:

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é.

14/03/2014, 03h21
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!
14/03/2014, 06h54
Theze

Bonjour,

Citation:

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é.
14/03/2014, 10h58
guitalex

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

Bonjour,

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

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é.

15/03/2014, 16h45
guitalex

Bonjour à vous!

Question 1) Entre temps, j'avais trouvé ma réponse cependant, elle diffère de vous. Moi j'avais "activate()" au lieu de "initialize()". Quel est la différence entre les 2?

Question 2) Si j'ai 2 userform. Dans le code du 1er Userform je calcul un tableau "Compteur(10)" et que j'aimerais passer et utiliser ce même tableau dans le code du 2e Userform. Comment dois-je m'y prendre?

Je vous remercie infiniment de votre réponse...

Je suis désolé si mes questions vous paraissent basiques et enfantines mais je suis très débutant et surtout 100% autodidacte et "sur le tas" comme on dit.. lol
17/03/2014, 07h03
Theze
Bonjour,

Citation:

Question 1) Entre temps, j'avais trouvé ma réponse cependant, elle diffère de vous. Moi j'avais "activate()" au lieu de "initialize()". Quel est la différence entre les 2?

"Initialize" est le tout premier évènement se produisant au chargement de la Form, "Activate" viens après. "Initialize" ne se produit qu'une fois alors que "Activate" peut se produire plusieurs fois comme par exemple après un "Hide" (la Form est toujours chargée en mémoire mais plus visible à l'écran).

Citation:

Question 2) Si j'ai 2 userform. Dans le code du 1er Userform je calcul un tableau "Compteur(10)" et que j'aimerais passer et utiliser ce même tableau dans le code du 2e Userform. Comment dois-je m'y prendre?

Tu as plusieurs solutions mais en voilà deux :
1) tu déclare ta variable "Public" dans la Form 1 :
Code:

1 2 Public MaVariable As String
et tu fais appel à cette variable depuis la seconde Form de la façon suivante :
Code:

1 2 MsgBox UserForm1.MaVariable
2) tu utilise une variable dans un module standard et dans ce cas, tous tes objets y ont accès.

Silve Hervé.