Discussion :

[modus57]

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.

[boisgontierjacques]

Bonsoir,

Code :

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

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

[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 :

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

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

par

Code :

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

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

Ça bug.

Avec :

Code :

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

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.

[boisgontierjacques]

Bonjour,

Pourquoi faire simple quand on peut faire compliqué!

Code :

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

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 :

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

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

[modus57]

Bonjour.

Effectivement pourquoi faire compliqué quand on peut faire simple !

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

[modus57]

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.



Dont voici le module qui me pose un petit soucis :

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

[modus57]

Bonjour à tous,

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

[boisgontierjacques]

Bonjour,


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

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

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

[modus57]

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 :

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

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 :

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

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 :

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
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 :

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
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 :

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.

[boisgontierjacques]

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

Lequel?

Boisgontier

[modus57]

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 :

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

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

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