XL 2010 Textbox

job75

XLDnaute Barbatruc

• 2 Septembre 2020

• #2

Bonjour nabilexcel2007,

Voyez le fichier joint où j'ai ajouté les 3 TextBoxes TextBox2, TextBox3,TextBox4.

Leur propriété Visible est à False, elles sont donc masquées à l'ouverture de l'UserForm.

Ensuite elles s'affichent et se masquent par ces 2 macros :

VB:

Private Sub ListBox1_Click()
Dim i As Byte
For i = 2 To 4 'à adapter
    Me("TextBox" & i).Visible = True
Next
End Sub

Private Sub TextBox1_Enter()
Dim i As Byte
For i = 2 To 4 'à adapter
    Me("TextBox" & i).Visible = False
Next
End Sub

A+

 

Pièces jointes

• VBA(1).xlsm

  257.5 KB · Affichages: 11

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 3 Septembre 2020

• #3

Bonjour
Les textbox s'affiche vide ?
je veux que le textbox prend le contenu de la cellule N° dossier annexe Empl ......
Merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Septembre 2020

• #4

nabilexcel2007 à dit:

je veux que le textbox prend le contenu de la cellule N° dossier annexe Empl ......

Cliquez pour agrandir...

VB:

Private Sub ListBox1_Click()
Dim lig&, i As Byte
lig = ListBox1.ListIndex
For i = 2 To 4 'à adapter
    Me("TextBox" & i).Visible = True
    If lig > -1 Then Me("TextBox" & i) = ListBox1.List(lig, i - 2)
Next
End Sub

 

Pièces jointes

• VBA(2).xlsm

  262.5 KB · Affichages: 11

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 3 Septembre 2020

• #5

Ohhhh Merci beaucoup vous êtes un ange
Que dieu vous gardent pour nous et longue vie au site

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 3 Septembre 2020

• #6

Est ce que je peux afficher les textbox que je veux par rapport a mon tableau feuille BD ?
d'apres ce que j'ai compris le textbox prend l'affichage de la listbox et moi je peux pas afficher tout le tableau sur ma listbox , j'ai 20 colonnes.
desole au debut ma question n'etait pas clair

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Septembre 2020

• #7

nabilexcel2007 à dit:

Est ce que je peux afficher les textbox que je veux par rapport a mon tableau feuille BD ?

Cliquez pour agrandir...

Oui, voyez ce fichier (3) et la macro :

VB:

Private Sub ListBox1_Click()
Dim lig As Variant, i As Byte
With [Tab_BD] 'tableau structuré
    lig = Application.Match(Trim(ListBox1), .Columns(1), 0)
    For i = 2 To 4 'à adapter
        If IsError(lig) Then Me("TextBox" & i) = "" Else Me("TextBox" & i) = .Cells(lig, i - 1)
        Me("TextBox" & i).Visible = True
    Next
End With
End Sub

Les dossiers en colonne A servent de références, ce sera parfait s'il n'y a pas de doublon.

 

Pièces jointes

• VBA(3).xlsm

  261.6 KB · Affichages: 9

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Septembre 2020

• #8

Bonjour nabilexcel2007, le forum,

J'attire votre attention sur une malfaçon due à votre macro UserForm_Initialize.

Quand ListBox1 contient des valeurs filtrées par TextBox1 :

- les valeurs de la 1ère colonne (N° Dossier) se terminent par un espace

- toutes les valeurs des 7 autres colonnes commencent et se terminent par un espace.

Ce n'est pas normal, il faudra y remédier mais ce n'est plus le sujet de ce fil.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Septembre 2020

• #9

Bon il est très simple d'éviter les espaces, utiliser ce fichier (4).

Il suffisait de remplacer choix(i) = choix(i) & bd(i, k) & " * "

par choix(i) = choix(i) & bd(i, k) & "*" dans UserForm_Initialize.

Du coup le Trim dans ListBox1_Click n'est plus nécessaire.

 

Pièces jointes

• VBA(4).xlsm

  262 KB · Affichages: 8

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 6 Septembre 2020

• #10

Bonjour et Merci

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 6 Septembre 2020

• #11

Bonjour,
je fait comment pour afficher le textbox que je veux moi ? par ex:
je veux affiche N° dossier col A + empl col C je veux pas afficher Annexe col B.
sachant que j'ai un tableau qui contient 25 colonnes

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Septembre 2020

• #12

Bonjour nabilex2007,

nabilexcel2007 à dit:

je fait comment pour afficher le textbox que je veux moi ? par ex:
je veux affiche N° dossier col A + empl col C je veux pas afficher Annexe col B.

Cliquez pour agrandir...

Lister les numéros des colonnes à récupérer dans un Array avec ce code, fichier (5) :

VB:

Private Sub ListBox1_Click()
Dim col, lig As Variant, i As Byte
col = Array(1, 3) 'numéros des colonnes à récupérer
With [Tab_BD] 'tableau structuré
    lig = Application.Match(ListBox1, .Columns(1), 0)
    For i = 2 To UBound(col) + 2
        If IsError(lig) Then Me("TextBox" & i) = "" Else Me("TextBox" & i) = .Cells(lig, col(i - 2))
        Me("TextBox" & i).Visible = True
    Next
End With
End Sub

A+

 

Pièces jointes

• VBA(5).xlsm

  262.1 KB · Affichages: 7

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 6 Septembre 2020

• #13

j'ai mis:
Private Sub ListBox1_Click()
Dim col, lig As Variant, i As Byte
col = Array(1, 2, 3, 4, 5, 6, 9, 13, 14, 15, 16, 18, 19) 'numéros des colonnes à récupérer
With [Tab_BD] 'tableau structuré
lig = Application.Match(ListBox1, .Columns(1), 0)
For i = 2 To UBound(col) + 2
If IsError(lig) Then Me("TextBox" & i) = "" Else Me("TextBox" & i) = .Cells(lig, col(i - 2))
Me("TextBox" & i).Visible = True
Next
End With
End Sub

erreur sur la ligne couleur jaune : Me("TextBox" & i) = .Cells(lig, col(i - 2))

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 6 Septembre 2020

• #14

ohhh c'est bon Merci Merci Merci

 

Vote positif 0 Vote négatif

N

nabilexcel2007

XLDnaute Occasionnel

• 6 Septembre 2020

• #15

dans la recherche multicolonnes "textbox1" par ex : je cherche un N° dossier quand je selectionne la ligne dans la listbox les texbos ne s'affichent pas!!!

 

Vote positif 0 Vote négatif