XL 2016 Administrer une base de données par userform

J

JM27

XLDnaute Barbatruc

• 23 Février 2022

• #2

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

 

Pièces jointes

• Admin_matières_v3.xlsm

  54.8 KB · Affichages: 8

Vote positif 0 Vote négatif

J

Jean_Valjean

XLDnaute Nouveau

• 23 Février 2022

• #3

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

 

Vote positif 0 Vote négatif

J

Jean_Valjean

XLDnaute Nouveau

• 23 Février 2022

• #4

JM27 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 23 Février 2022

• #5

bonjour

essayes de modifier cette procédure
et cela le fera

VB:

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

 

Pièces jointes

• Admin_matières_v3.xlsm

  55.9 KB · Affichages: 4

Dernière édition: 23 Février 2022

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 23 Février 2022

• #6

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

 

Pièces jointes

• Admin_matières_v3.xlsm

  54.2 KB · Affichages: 2

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 23 Février 2022

• #7

D'autres erreurs trouvées

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

 

Pièces jointes

• Admin_matières_v3.xlsm

  58.9 KB · Affichages: 5

Dernière édition: 23 Février 2022

Vote positif 0 Vote négatif

J

Jean_Valjean

XLDnaute Nouveau

• 23 Février 2022

• #8

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

 

Pièces jointes

• Admin_matières_v3.xlsm

  68.5 KB · Affichages: 2

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 23 Février 2022

• #9

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

 

Pièces jointes

• Admin_matières_v3.xlsm

  59.3 KB · Affichages: 5

Vote positif 1 Vote négatif

J

Jean_Valjean

XLDnaute Nouveau

• 23 Février 2022

• #10

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

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 23 Février 2022

• #11

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

 

Vote positif 1 Vote négatif

Solution

J

Jean_Valjean

XLDnaute Nouveau

• 23 Février 2022

• #12

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

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 23 Février 2022

• #13

a tester car il peut rester quelques bugs

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

V6 avec module de classe

 

Pièces jointes

• Admin_matières_v5.xlsm

  72.9 KB · Affichages: 12
• Admin_matières_modulede classe v6.xlsm

  72.7 KB · Affichages: 18

Dernière édition: 24 Février 2022

Vote positif 0 Vote négatif