Remplissage textbox d'après Listbox

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

je continu avec mon user form et je rencontre un nouveau problème.

Mes boutons Enregistrer, Effacer, modifier, et quitter fonctionne parfaitement, et ma liste box charge bien en fonction de ce que j'écris dans la textbox affaire. (Je n'ai pas encore fait le bouton supprimer).

Mon problème est que lorsque je charge ma liste box d'après ma text box, et que je clique sur une des lignes de ma list box, les différentes données vont dans les différentes textbox et combobox correspondante. Mais cela mets forcement la dernière ligne de ma liste box. Si je clique sur une nouvelle ligne, rien de ne se passe.

Avec vous une idée ?

Voici mon code :

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
Private Sub ListBox1_Click()
    With ThisWorkbook.Sheets("FACTURATION")
        For Each Nom In .Range("=B8:B" & .[B65000].End(xlUp).Row)
            If CStr(Nom) = CStr(Me.ListBox1.Value) Then
                Me.TextBoxaffaire.Value = .Cells(Nom.Row, 2)
                TextBoxbat.Value = .Cells(Nom.Row, 3)
                Me.TextBoxchantier.Value = .Cells(Nom.Row, 4)
                ComboBoxmatiere.Value = .Cells(Nom.Row, 5)
                Me.TextBoxlargeur.Value = .Cells(Nom.Row, 6)
                Me.TextBoxhauteur.Value = .Cells(Nom.Row, 7)
                Me.TextBoxquantite.Value = .Cells(Nom.Row, 8)
                Me.TextBoxm2.Value = .Cells(Nom.Row, 9)
                Me.ComboBoxforme.Value = .Cells(Nom.Row, 10)
                Me.ComboBoxfinition.Value = .Cells(Nom.Row, 11)
                Me.ComboBoxaccessoires.Value = .Cells(Nom.Row, 12)
                Me.ComboBoxproduits.Value = .Cells(Nom.Row, 13)
                Me.TextBoxcommentaire.Value = .Cells(Nom.Row, 14)
                Me.ComboBoxdivers.Value = .Cells(Nom.Row, 15)
                Me.TextBoxcoutdivers.Value = .Cells(Nom.Row, 16)
                Me.TextBoxcout.Value = .Cells(Nom.Row, 17)
            End If
        Next
    End With
End Sub

Et le fichiers

Merci à vousPièce jointe 462475

Bonjour,

Citation:

Avec vous une idée ?

Plus qu'une idée.

Lorsque tu cliques sur l'une des lignes du ListBox, je suppose que tu souhaites remplir les TextBox des colonnes de cette ligne ?
Or que fais-tu ? une boucle sur les lignes de la plage de données de la feuille Excel qui sert de référence à ta liste alors que tu devrais lire les colonnes de la ligne de la plage de données. Ligne qui doit correspondre à la propriété ListIndex du ListBox additionné de 1 ou de 2 suivant le cas.

Petit exemple rapide
Code:

1 2 3 4 5 6 7 8 Private Sub lstCity_Click() Dim r As Long With Me r = .lstCity.ListIndex + 1 .txtCountry = rng.Cells(r, 1) .txtCapital = rng.Cells(r, 2) End With End Sub
Initialisation des propriétés du contrôle ListBox nommé lstCity
Code:

1 2 3 4 5 6 7 8 9 Private Sub UserForm_Activate() Set rng = ThisWorkbook.Worksheets("Pays").Range("A2:B7") With Me.lstCity .RowSource = rng.Address(external:=True) .ColumnHeads = True .ColumnCount = rng.Columns.Count .ColumnWidths = "50;50" End With End Sub
La variable Rng est déclarée en tête de module
Code:

1 2 Option Explicit Dim rng As Range

30/03/2019, 17h43
pserres

Bonjour,

Oui c'est ca je veux bien remplir les cases en fonctions des lignes de ma listbox.

J'ai essayé de mettre vos codes et de les adapter, mais maintenant cela me mets une erreur sur mon TextBoxaffaire_AfterUpdate(), qui me permettais d'afficher dans ma listbox, les lignes correspondant à la valeur que j'inscrivais dans cette textbox et je cliquer entrer.

Ca a l'air complexe tous ce que je souhaite
30/03/2019, 17h57
Philippe Tulliez

Bonjour,

Citation:

maintenant cela me mets une erreur sur mon TextBoxaffaire_AfterUpdate(), qui me permettais d'afficher dans ma listbox, les lignes correspondant à la valeur que j'inscrivais dans cette textbox et je cliquer entrer.

Pour alimenter le contrôle ListBox, j'utilise la propriété RowSource qui ne peut afficher les modifications apportées qu'à condition que l'on ait écrit dans la plage de référence de celle-ci, c'est à dire sur la feuille.

Citation:

Ca a l'air complexe tous ce que je souhaite

Rien n'est complexe, il faut juste faire une analyse au préalable et programmer en ce sens.
30/03/2019, 18h09
pserres

Comment on fait ca?

Je dois reprendre tous mon fichier je pense

Merci en tout cas
30/03/2019, 21h25
Philippe Tulliez
Bonjour,

Citation:

Comment on fait ca?

Quelque soit le langage utilisé, lorsque l'on doit gérer une liste (table) de données en informatique, il y a quatre opérations que l'on doit faire
- Créer
- Consulter
- Modifier
- Supprimer
En règle générale dans ce contexte
- un contrôle ListBox ou ComboBox sert à lister des données afin de pouvoir sélectionner une ligne de ces données
- Les contrôles TextBox servent à consulter en détail les éléments (colonnes, champs) de la ligne sélectionnée et également d'en modifier éventuellement les valeurs
- d'autres contrôles comme par exemple CheckBox, OptionButton permettent suivant le contexte de traiter les champs d'une façon plus conviviale
Cette contribution titrée USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire pourra peut-être t'inspirer