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.

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