CHOIX LISTBOX VERS TEXTBOX [VBA-EXCEL]

Résolu
Bull_0125 Messages postés 111 Date d'inscription   Statut Membre Dernière intervention   -  
Bull_0125 Messages postés 111 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai besoin de votre aide sous Excel en VBA

Je vous explique, Je créer un UserForm (ModifAT) Qui me sert pour modifier des enregistrements en cas d'erreurs donc j'ai créer des champs de recherches qui m'alimente un ListBox (ListBoxDetail). Et maintenant je voudrais que lorsque l'utilisateurs double click sur un choix ou séléctionne un choix et clique sur un bouton cela alimente des textbox et cbobox et datetimepicker avec les infos de ce choix

Si vous pouvez m'aider ce serai avec grand plaisir ! A vrai dire j'ai vraiment besoin de vouuuuus !!! HELP MEEE !
Lilian


A voir également:

5 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Il faudrait votre fichier ou au moins la partie avec votre UF et le code (comment vous remplissez votre listbox) et quelques enregistrements pour tester.
0
Bull_0125 Messages postés 111 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Merci d'etre la ! Je vous envoi sa ;)

A+
0
Bull_0125 Messages postés 111 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Voici la base de données : http://ww38.toofiles.com/fr/oip/documents/mdb/accidents.html
Le fichier Excel : http://ww38.toofiles.com/fr/oip/documents/xlsm/899_accidentsat2.html

Le formulaire s'appelle FormModifAT

A+
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,
Je recupere les fichiers et je vous tiens au courant.

A+
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,
Si vous voulez modifier des enregistrements de la table AT, il faut faire les choix dans cette table. A mon avis, il serait plus judicieux de remplir une listbox ou une listview avec le contenu de la table AT. Sur selection d'un enregistrement, modifier les infos et reecrire l'enregistrement.

Nota: la structure de la table AT ne facilite pas les action de recherche et/ou modification.

Qu'en pensez-vous???
0
Bull_0125 Messages postés 111 Date d'inscription   Statut Membre Dernière intervention  
 
Re,
Dans ma list box j'affiche les infos du ou des résultats de la recherche grace a mon bandeau en haut. Je veux choisir un enregistrement dans le list box qui renvoiera ses informations vers textbox et cbobox du bas.. Les changement se feront simplement avec une requete SQL "UPDATE SET WHERE". La parti recherche a déjà été créer en passant par les clés primaire et étrangère

Si je n'ai pas compris votre réponse ne le prenez pas mal.. J'ai juste un cahier des charges très etroit..

A+
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,
Vous faites une recherche "au pif" ou vous avez sous les yeux les infos de l'enregistrement a modifier au moment ou vous voulez faire cette modification??????
0
Bull_0125 Messages postés 111 Date d'inscription   Statut Membre Dernière intervention  
 
Re,
Non ce n'est pas au pif, j'aurai tjr le Centre ,l'UP et l'uep au minimum, mais il peut arrivé que desfois j'ai plus d'infos c'est pour cela que j'ai créer des boutons "Rech" et des boutons radio "ET" et un bouton recherche globale. J'aurai la feuille d'incident sous les yeux pour savoir qu'elle enregistrement c'est.

A+
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

J'aurai la feuille d'incident sous les yeux pour savoir qu'elle enregistrement c'est.

Est ce qu'il y a le num_at de la table AT sur cette feuille??
0
Bull_0125 Messages postés 111 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Non, Le num_at est indicatif pour la BDD
Sur la feuille Incident il y a toutes les autres infos qu'il y a sur la table AT sauf (actions) Action sera cocher automatiquement pour les PA et sera cocher lorsque une action sera faite pour un autre accident.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Quelque chose un peu plus élaboré.

https://www.cjoint.com/?BFrpLEubBoN

Bon courage
0
Bull_0125 Messages postés 111 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Merci pour ces deux fichiers... Je teste de suite ;)

A+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Bull_0125 Messages postés 111 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Merci pour cet exemple.

J'ai assimiler le système mais je n'arrive pas a avoir plus de champs que ce présent.. Comment puis-je paramétrer les infos que je veux afficher dans le List-Box ?
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,
Avec des donnees externes, dans votre cas ACCESS, le nombre de colonne est de 10 maxi.
Pour parametrer et remplir les colonnes, regardez dans le deuxieme fichier le module activate et a defaut dites moi ce que vous voulez.

A+
0
Bull_0125 Messages postés 111 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
j'ai tricher en mettant des labels au dessus du Listbox et bien placé . ;)
Aujourd'hui je m'occupe des boutons ;)

A+
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,
j'ai tricher en mettant des labels au dessus du Listbox et bien placé .
Non, c'est la seule solution en listbox EXCEL avec des donnees qui ne proviennent pas d'une plage de cellules.

Bonne suite
0
Bull_0125 Messages postés 111 Date d'inscription   Statut Membre Dernière intervention  
 
Re,
Ah d'accord . Merci pour tout ;) Ca m'arrangerai si vous pouvez resté pas trop loin au cas où ;)
A+
0
Bull_0125 Messages postés 111 Date d'inscription   Statut Membre Dernière intervention  
 
Re?
Pour evité que le programme "bug" je voudrait avoir un booleen qui me dit si oui ou non la requete renvoi quelque chose ! un genre de :
If existeenreg = true then
.....
Else
Msgbox "Erreur de Ligne!"

A+
0