Remplir TextBox si un ComboBox change avec un tableau structuré

Version imprimable

06/04/2020, 19h42
modus57

Remplir TextBox si un ComboBox change avec un tableau structuré

Bonjour.

J'ai ami qui est marchand ambulant, il vend des produits sur des marchés ouverts, il m'a demandé de lui faire une petite gestion des données sur Excel.

J'ai découvert récemment les tableaux structurés.

Après une recherche infructueuse sur internet et malgré ma bonne volonté je n'arrive pas à remplir un TextBox si un ComboBox change avec un tableau structuré.

J'ai besoin d'aide pour écrire la syntaxe, je souhaite à partir du choix fait dans un ComboBox qui contient une liste de produit générée depuis un tableau structuré (Produits), afficher l'information associée dans un TextBox depuis le tableau (Produits – Prix de vente) .

Merci d'avance pour votre petit coup de pouce et vos réponses.

1 pièce(s) jointe(s)

Bonsoir,

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
  Me.ComboBox1.ColumnCount = [tableau1].Columns.Count
  Me.ComboBox1.ColumnWidths = "30;60;30"
  Me.ComboBox1.List = [tableau1].Value
End Sub
 
Private Sub ComboBox1_Click()
  Me.TextBox1 = Me.ComboBox1.Column(1)
  Me.TextBox2 = Me.ComboBox1.Column(2)
End Sub

Boisgontier

06/04/2020, 21h41
modus57
Bonsoir.

Merci pour votre réponse.

J'ai quand même un petit souci, si je remplace dans le module Private Sub ComboBox1_Click() :
Code:

1 2 3 Me.ComboBox1.ColumnCount = [tableau1].Columns.Count Me.ComboBox1.ColumnWidths = "30;60;30" Me.ComboBox1.List = [tableau1].Value
par

Code:

Me.ComboBox1.List = [tableau1[Libellé]].Value

Ça bug.

Avec :

Code:

Me.TextBox1 = Me.ComboBox1

J'obtiens le libellé.

En fait je souhaite lister dans le ComboBox que le libellé et dans le Textbox le prix.

Quelle est la bonne syntaxe.

1 pièce(s) jointe(s)

Bonjour,

Pourquoi faire simple quand on peut faire compliqué!

Code:

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
  Me.ComboBox1.List = [tableau1[libellé]].Value
End Sub
 
Private Sub ComboBox1_Click()
  p = Application.Match(Me.ComboBox1, [tableau1[libellé]], 0)
  Me.TextBox1 = Me.ComboBox1
  Me.TextBox2 = Application.Index([tableau1[prix]], p)
End Sub

Si on ne veut voir que le libellé dans le Combobox, il suffit de faire:

Code:

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
  Me.ComboBox1.ColumnCount = [tableau1].Columns.Count
  Me.ComboBox1.ColumnWidths = "0;60;0"
  Me.ComboBox1.List = [tableau1].Value
End Sub
Private Sub ComboBox1_Click()
  Me.TextBox1 = Me.ComboBox1.Column(1)
  Me.TextBox2 = Me.ComboBox1.Column(2)
End Sub

Boisgontier

07/04/2020, 09h08
modus57

Bonjour.

Effectivement pourquoi faire compliqué quand on peut faire simple ! :roll:

Voilà toute la différence entre un membre chevronné et un amateur Excel passionné.

1 pièce(s) jointe(s)

Bonsoir,

Finalement pour la petite gestion des données sur Excel pour mon ami qui est marchand ambulant, j'ai remis tout à plat et je suis reparti en me basant sur le principe du formulaire "FormSuivantPrecedent2 " de BOISGONTIER.

Pièce jointe 555540

Dont voici le module qui me pose un petit soucis :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub B_ok_Click() Me.ListBox1.Clear i = 0 Set plage = f.[A1].CurrentRegion Set c = plage.Find(Me.MotCle, , , xlPart) If Not c Is Nothing Then premier = c.Address Do Me.ListBox1.AddItem lig = c.Row Me.ListBox1.List(i, 0) = plage.Cells(lig, 1) Me.ListBox1.List(i, 1) = lig i = i + 1 Set c = plage.FindNext(c) Loop While Not c Is Nothing And c.Address <> premier End If pointeur = 0 ligne = Me.ListBox1.List(pointeur, 1) affiche End Sub
Je n'arrive pas à comprendre pourquoi le nom du client DUPONT s'affiche 2 fois.

Pourriez-vous me donner une petite explication svp.

Merci d'avance pour votre aide.

14/04/2020, 11h16
modus57

Bonjour à tous,

Pas la moindre petite réponse, faut-il que je crée une nouvelle discussion.

1 pièce(s) jointe(s)

Bonjour,

C'est à cause du email (dupont@hotmail.com) .
il faut modifier:

Set plage = f.[A1].CurrentRegion.Resize(, 1)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub B_ok_Click()
  Me.ListBox1.Clear
  i = 0
  Set plage = f.[A1].CurrentRegion.Resize(, 1)
  Set c = plage.Find(Me.MotCle, , , xlPart)
  If Not c Is Nothing Then
    premier = c.Address
    Do
      Me.ListBox1.AddItem
      lig = c.Row
      Me.ListBox1.List(i, 0) = plage.Cells(lig, 1)
      Me.ListBox1.List(i, 1) = lig
      i = i + 1
      Set c = plage.FindNext(c)
     Loop While Not c Is Nothing And c.Address <> premier
   End If
   pointeur = 0
   ligne = Me.ListBox1.List(pointeur, 1)
   affiche
End Sub

Boisgontier

Bonjour,

Merci pour la réponse, ça parait simple fallait-il y penser.

En fait, j'ai fait un mix du formulaire "FormSuivantPrecedent2" avec un autre de vos formulaires.

Dans ce nouveau formulaire j'ai simplifié le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub ListBox1_Click()
    Me.enreg = Me.ListBox1.ListIndex + 1
    Me.Id = [BDClients].Item(enreg, 1)
    Me.Nom = [BDClients].Item(enreg, 2)
    Me.Prénom = [BDClients].Item(enreg, 3)
    Me.Rue = [BDClients].Item(enreg, 4)
    Me.Ville = [BDClients].Item(enreg, 5)
    Me.CodePostal = [BDClients].Item(enreg, 6)
    Me.Pays = [BDClients].Item(enreg, 7)
    Me.Date_création = [BDClients].Item(enreg, 8)
    Me.Tph = Format([BDClients].Item(enreg, 9), "00 00 00 00 00")
    Me.Portable = Format([BDClients].Item(enreg, 10), "00 00 00 00 00")
    Me.Email = [BDClients].Item(enreg, 11)
    Me.Remarques = [BDClients].Item(enreg, 12)  
End Sub

Par

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ListBox1_Click()
    Me.enreg = Me.ListBox1.ListIndex + 1
    v = 1
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is MSForms.TextBox Then
            If Ctrl.Name <> "MotCle" And Ctrl.Name <> "enreg" Then
                Ctrl.Value = [BDClients].Item(enreg, v)
                v = v + 1
            End If
        End If
    Next
End Sub

Ça fonctionne bien, mais il important que les TextBox soit crées dans un ordre chronologique.

Par contre je n'arrive pas à simplifier celui-ci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub valider_client_Click()
        Me.enreg = [BDClients].Rows.Count + 1
        Me.Id = Me.enreg.Value
        enreg = Me.enreg
        [BDClients].Item(enreg, 1) = Val(Me.Id)
        [BDClients].Item(enreg, 2) = Me.Nom
        [BDClients].Item(enreg, 3) = Me.Prénom
        [BDClients].Item(enreg, 4) = Me.Rue
        [BDClients].Item(enreg, 5) = Me.Ville
        [BDClients].Item(enreg, 6) = Me.CodePostal
        [BDClients].Item(enreg, 7) = Me.Pays
        [BDClients].Item(enreg, 8) = Me.Date_création
        [BDClients].Item(enreg, 9) = MeTph
        [BDClients].Item(enreg, 10) = Me.Portable
        [BDClients].Item(enreg, 11) = Me.Email
        [BDClients].Item(enreg, 12) = Me.Remarques
        Me.ListBox1.ColumnCount = [BDClients].Columns.Count
        Me.ListBox1.ColumnWidths = "20;70;70;0;0;0;0;0;0;0,0;0;0"
        Me.ListBox1.List = [BDClients].Value
    End If
End Sub

J'ai un début de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub valider_client_Click()
        v = 1
        For Each Ctrl In Me.Controls
            If TypeOf Ctrl Is MSForms.TextBox Then
                MsgBox Ctrl.Name
                If Ctrl.Name <> "MotCle" And Ctrl.Name <> "enreg" Then
                    [BDClients].Item(enreg, v) = 'est là je ne sais plus quoi mettre
                    v = v + 1
                End If
            End If
        Next
        Me.ListBox1.ColumnCount = [BDClients].Columns.Count
        Me.ListBox1.ColumnWidths = "20;70;70;0;0;0;0;0;0;0,0;0;0"
        Me.ListBox1.List = [BDClients].Value
    End If
End Sub

J'ai lu dans un tuto de silkyroad :

Citation:

Lorsque vous devez ajouter un grand nombre de contrôles qui seront utilisés de la même manière (par exemple un groupe de TextBox), il devient vite fastidieux de réécrire plusieurs fois la même procédure. Dans ce cas, vous pouvez utiliser des modules de classe. Les classes définissent le fonctionnement des objets. Un objet peut être défini par une propriété, une méthode ou un évènement. (Vous n'écrivez qu'une seule procédure qui sera applicable à tous les contrôles que vous aurez défini dans une collection).

Cela peut s'appliquer dans mon cas ?

Je vous sollicite à nouveau et remercie pour votre patience.

14/04/2020, 17h02
boisgontierjacques

>En fait, j'ai fait un mix du formulaire "FormSuivantPrecedent2" avec un autre de vos formulaires.

Lequel?

Boisgontier

Bonsoir,

Il s'agit du formulaire "BDClientTDyn3" pour les procédures en question.

Je me suis servi de ce formulaire et j'y est ajouté toute la partie Suivant, Précédant, Dernier, Premier, Tout, Mot clé recherché et OK.

J'ai également simplifié la le module Private Sub B_ajout_Click() :
Code:

1 2 3 4 5 6 7 8 Private Sub nouveau_client_Click() Dim Ctrl As Control For Each Ctrl In Controls If TypeName(Ctrl) = "TextBox" Then Ctrl.Object = "" Next Ctrl Me.enreg = [BDClients].Rows.Count + 1 Me.Id = Me.enreg.Value End Sub

15/04/2020, 10h17
Pierre Fauconnier

Salut.

Dans ce billet, je modélise les échanges entre un userform et un tableau structuré. Tu pourrais peut-être t'en inspirer ;)

De plus, abandonne la notation à crochets. J'explique pourquoi dans ce billet. C'est une horreur et une très mauvaise habitude que seuls certains "initiés" utilisent mais qui n'a que des désavantages et dont les aficionados n'ont jamais été foutus d'expliquer en quoi elle était intéressante. Elle te prive notamment de la saisie semi-automatique de code, la lecture du code ne te permet pas de savoir directement ce que tu manipules, puisque tu peux rencontrer ces crochets pour autre chose qu'une plage. Bref, les bonnes pratiques rejettent cette syntaxe et je n'ai jamais compris ce qui excitait tant les utilisateurs de ce truc.