XL 2016 Administrer une base de données par userform

[Jean_Valjean]

Bonjour,

Voici mon problème. J'ai un catalogue de matières, dans un tableau structuré, avec un fournisseur, une référence, une épaisseur et une finition. Je souhaite administrer ce catalogue par un userform qui permette d'ajouter / modifier / supprimer une matière. Je joins le fichier pour plus de clarté.

La partie ajout d'une matière fonctionne bien. Pour la recherche j'ai deux clés d'entrée : soit par fournisseur (combobox avevc un rowsource sur un TCD issu du tableau structuré), soit par mot clé sur la matière (textbox), jusque là ça marche.

Mais je suis bloqué par mes faibles connaissances en vba : j'aimerais qu'au clic sur une ligne de la listbox les textbox de la partie gauche soient alimentés automatiquement pour pouvoir modifier ou supprimer la matière correspondante. Si quelqu'un a une astuce qui me mettrait sur la voie...

 

[JM27]

Bonjour
Quand tu alimentes le liste box , tu ajoutes une colonne masquée avec le numéro de la ligne du tableau

et ensuite au click sur la listbox tu récupères le numéro de ligne pour alimenter les autre objets

 

[Jean_Valjean]

Merci de ton aide JM27, je vais creuser ça tout de suite.

 

[Jean_Valjean]

Bonjour
Quand tu alimentes le liste box , tu ajoutes une colonne masquée avec le numéro de la ligne du tableau

et ensuite au click sur la listbox tu récupères le numéro de ligne pour alimenter les autre objets

En revanche ça ne fonctionne pas avec la recherche par mot-clé

 

[JM27]

bonjour

essayes de modifier cette procédure
et cela le fera

Private Sub TextBox_rech_mot_Change()

    ComboBox_rech_fr.Value = Null
    With Sheets("Fournisseurs")
    i = 3
 
    ListBox_rech_res.Clear
   
        If TextBox_rech_mot <> "" Then
            For ligne = 4 To 20000
                If Cells(ligne, 2) Like "*" & TextBox_rech_mot & "*" Then
                    ListBox_rech_res.AddItem Cells(ligne, 2)
                End If
            Next
        End If
    End With
End Sub

en modifiant la ligne
ListBox_rech_res.AddItem Cells(ligne, 2)
par la méthode list
vu dans la macro Private Sub ComboBox_rech_fr_Click()


de plus comme tu as beaucoup de textbox , tu peux mettre dans la propriété tag de celle ci la colonne correspondante et faire une boucle pour chaque objet de l'userform ayant un tag.
cela simplifierait grandement tes macros
Edit : je n'ai pas tout fait , je te laisses faire le reste

 

[JM27]

Edit
J'ai oublié un point devant cells (.cells)

 

[JM27]

D'autres erreurs trouvées

notamment derligne lors de la validation , en mode modification.
nota : la suppression ne fonctionnait pas

 

[Jean_Valjean]

Je ne connaissais pas le tag, ça évite bien des lignes de code... j'ai suivi ton conseil et j'ai mis les tag correspondant à chaque colonne sur les bons textbox.

Je crois que ça a déréglé l'ajout d'une matière qui ne fonctionne plus et j'ai l'impression que la derligne fait aussi des caprices à la modification

 

[JM27]

bonsoir
il peut rester quelques bug
A tester
nota : j'aurais fais différemment : ta logique de fonctionnement peut poser pb dans certains cas ( j'ai fais quelques modifs en conséquence) ; si il y a d'autres utilisateurs , ils seront perdus

 

[Jean_Valjean]

Meci de ton temps et de ton aide. Quelle logique aurais-tu suivi pour ne pas perdre l'utilisateur ?

 

[JM27]

Bonsoir
Voici ma solution.
mais je ne détiens pas la vérité.
tu peux adapter.
Pour les différentes textbox , on pourrait créer un module de classe pour gérer les évènements ( simplification des macros=)

 

[Jean_Valjean]

Waouh quel boulot ! En effet c'est nettement plus ergonomique, bravo et merci infiniment pour ton temps et ta disponibilité.

 

[JM27]

a tester car il peut rester quelques bugs

Edit : un petit bug détecté , fichier à recharger

V6 avec module de classe