MAJ de base de données à partir de la modif Listbox Item

Question

Merci pour vos divers concours qui m'aident à avancer dans l'élaboration de mon outil. Ma difficulté actuelle : J'ai une base de données dans la feuille BD dont les enregistrements peuvent être consultés et/ou modifiés à partir du USF CONSULTATION_OU_MODIFICATION. Les modifications apportées à un enregistrement dans ce cas doivent mettre à jour l'enregistrement originel dans la BD à la suite de la validation. Si la consultation des enregistrements dans le USF marche, leur modification ne met pas à jour la base de données BD. Mes recherches sur les forums pour lever ces difficultés sont restées vaines. Merci à vous pour votre aide. Voila mon fichier joint à cet effet...

fred2406 · Answer

Je pense que les userforms ne sont pas nommés comme il faut a la base pour que cela soit plus simple a programmer.... et dans ces conditions, ton code actuel pourrais etre simplifier..... que cela soit des listbox ou combobox ou textbox ils devraient être tous renommés du genre box1, box2, box3, .... ou autre nom peut importe mais dans un ordre croissant le même que tes colonnes de ton fichier.... voir un post existant traitant de la même chose et dont un nouveau formulaire/recherche/et modification_enregistrement a déjà été traiter... le tout dans un meme userform.... https://forum.excel-pratique.com/excel/en-panne-de-solutions-pour-formulaire-vba-userform-t54253.html je te suggère d'aller voir et de faire des essais et il y a possibilité de t'aider si ton fichier de base est correct fred...

Invité · Answer

Je n'ai pas tout compris le fonctionnement de ton fichier Mais le code du bouton de validation des modifs devrait être pus celui-là Private Sub CommandButton7_Click() Dim L As Long, i As Byte For i = 1 To 39 If Me.Controls("TextBox" &amp; i) = "" Then Exit Sub Next ' Récupérer la ligne ici L = ActiveCell.Row ' Boucle et modification après For i = 1 To 8 Cells(L, i) = Me.Controls("Textbox" &amp; i + 17) Next Cells(L, 9) = ComboBox14 Cells(L, 10) = TextBox26 Cells(L, 11) = ComboBox16 Cells(L, 12) = ComboBox15 Cells(L, 13) = TextBox27 Cells(L, 14) = TextBox28 Cells(L, 15) = TextBox29 Cells(L, 16) = TextBox30 Cells(L, 17) = TextBox31 Cells(L, 18) = TextBox32 Cells(L, 19) = TextBox33 Cells(L, 34) = TextBox34 Cells(L, 38) = TextBox35 Cells(L, 35) = TextBox36 Cells(L, 23) = TextBox37 Cells(L, 24) = TextBox38 Cells(L, 21) = TextBox39 Cells(L, 22) = TextBox40 Cells(L, 20) = ComboBox5 Cells(L, 36) = ComboBox6 Cells(L, 26) = TextBox41 Cells(L, 27) = TextBox42 Cells(L, 25) = ComboBox7 Cells(L, 37) = ComboBox8 Cells(L, 28) = ComboBox1 Cells(L, 29) = ComboBox2 Cells(L, 30) = ComboBox3 Cells(L, 31) = ComboBox9 Cells(L, 32) = ComboBox10 Cells(L, 33) = ComboBox11 End Sub A+...

fred2406 · Answer

Je suis au regret de te dire que tu as fais que la moitié du travail..... tu as bien renommé les box sur le userform FORULAIRE DE SAISIE mais uniquement sur tout ce qui se trouve a gauche de N° dossier a APPORTEUR =&gt; tous les noms des box sont TextBoxX avec X un chiffre et ce qui correspond a la colonne de ta base de donnée ou se trouve l'information.... mais tout le reste n'a pas été fait puis que l'on retrouve encore des noms de box en combobox et autre...... par contre rien fait sur le userform consultation/ modification... fred...

fred2406 · Answer

Re bonjour j'ai quand même renommer une partir de tes box de ton userform consultation/modification et regarder ton code de plus près..... tu avais une "erreur" dans ton userform consultation ou modification dans la sub : Private Sub TextBox43_Change() au niveau de la mise en mémoire de ton tableau dans ta variable aa tu avais marqué With feuil2 ce qui devrait marché je pense, mais visiblement cela coince... j'ai modifié en With Sheets(1) et cela met correctement ton tableau de la page en mémoire dans ta variable tableau aa.... j'ai complèter la ligne de dujardin pour faire un essai.... tu regarderas le code de la fonction : Private Sub ListBox2_Click() et tu verras comment c'est bcp plus simple pour remplir ton formulaire... avec cette méthode si le userform est correctement construit.... à la base au passage tes colonnes M et P ne sont pas au format Date... cela va peut etre poser problème plus tard.... pour faire une sauvegarde des modifications dans ta feuille il faudra retrouver la ligne de la personne dans la base de données et il suffira de faire : For i = 1 To 38 sheets(1).Cells(lig, i) = Controls("box" &amp; i) next i fred EDIT : après vérification cela marche très bien avec feuil2 mais comme j'avais deux fichiers venant de toi ouvert je ne travaillait pas forcement sur le bon fichier au moment ou j'ai fait cela.... donc la V2 avec a priori rien de changer dans ta fonction Private Sub TextBox43_Change()...

fred2406 · Answer

Re bonjour maintenant pour repondre au problème initial a savoir l'enregistrement dans la BDD les modifs

tu trouveras cette version 3.. qui le fait

voir

Private Sub valid_modif_Click()

pour rechercher la bonne personne dans le BDD je vérifie le nom-prenom et date de naissance

cela implique que tu ne peux pas mettre a jours ces 3 informations.... elle sont a présent grisées...

fred

51tonga-v003.xlsm (88.58 Ko)

fred2406 · Answer

Qu'est ce qui ne marche pas ??? chez moi cela a l'air de fonctionner pourtant.... sans rien changer par rapport a la v4 mais je ne connais pas le résultat attendu .... je t'ais remis dans le bon ordre les colonnes de ton fichier pour que cela soit dans l'ordre des box.... j'ai fais en sorte aussi que quand tu veux utiliser le clavier pour passer d'un champ a un autre avec la touche de tabulation tu passe par ordre croissant de tes box. essais avec le dernier de la liste nsimba pour lire ces infos dans cette ordre là... et dis moi ce qui cloche réellement .... quel est le resultat attendu ??? fred EDIT : tu regarderas aussi pour plus tard car je pense que la question va tombée... dans ton userform formulaire de saisie... dans UserForm_Initialize je t'ai mis en exemple deux lignes pour initialiser les listes de choix dans les combobox.....

fred2406 · Answer

Le soucis ne vient pas de ton système.... mais de ceci : For i = 1 To 38 ' les 38 premieres box ayant été renommées comme il faut, ensuite If Me.Controls("Box" &amp; i) = "" Then Exit Sub Next si tu as une box qui n'est pas renseignée cela sort de ta sub sans rien te dire.... par exemple pour nsimba pas de nom marital donc pas d'enregistrement.... sans rien dire.... pour les autres lignes il n'y a pas de date de naissance de renseignée dans la BDD et comme tu ne peux pas la saisir car grisée cela va poser problème.... une solution serait déjà de mettre une date de naissance a tout le monde puis de changer le code de la manière suivante : For i = 1 To 38 ' les 38 premieres box ayant été renommées comme il faut, ensuite If i &lt;&gt; 3 Then 'pas d'obligation de nom marital If Me.Controls("Box" &amp; i) = "" Then MsgBox "Toutes les informations ne sont pas renseignées, Veuilez corriger" Exit Sub End If End If Next Dans ce cas l'enregistrement ne sera fait que si toutes les box sont rempli c'est ce que tu veux ??? fred...