[Code Visual Basic] Rechercher et Insérer

258 messages
Processeur

Le 21 Juin 2010 à 17h51

Bonjour,

Je remercie pour votre aide, précédemment, Sundering. Mon tuteur m'a dit que l'outil est bien, mais il y'a des modifications à effectuer.

Il me reste donc 2 semaines pour finaliser l'outil et déployer les données.

J'ai donc besoin de votre aide. J'ai donc refait les boîtes de dialogues INSERER et RECHERCHER (en fonction du cahier des charges) et les souhaits des utilisateurs (employés). Et il me manque maintenant le code pour faire fonctionner.

Je vous joins, 2 fichiers Excel: La base de données et les boîtes de dialogues (Feuille Macro).

Si possible, est ce que vous pouvez faire le code en fonction de la base données (colonne) et les boites de dialogues?

Merci infiniment.

Je vous autorise, si besoin, de modifier, de déplacer le contenu des boites de dialogues.

Autre chose: --> Dans la boites de dialogue RECHERCHER AVANCEE, nous voudrons effectuer des recherches en fonction de la case coché (case d'option): Produits, Famille Moteurs, Zone fonctionnelles et non pas tous en même temps. Quand l'un des trois est coché, les autres restent inactifs.

Mais je ne sais pas comment faire.

--> Remarque: Tout se fait à partir du portail. Le portail de recherche ne compte pas pour la Recherche ni l'insertion des données.

Merci encore Sourire

Voici les 2 ficihiers: - La base de données : http://dl.free.fr/g6v3tKLwL

- les boîtes de dialogues (Feuille Macro): http://dl.free.fr/p5U7Anshm

Mot de passe: sundering

kéké

258 messages
Processeur

Le 23 Juin 2010 à 19h57

STOP! Sourire

Je m'en occupe de la partie INSERER. J'ai pas mal avancé! J'ai appris beaucoup de chose et j'ai réussi à faire seul.

Mais un seul soucis: je suis en train de créer une liste déroulante avec ComboBox. Il y'a 4 Combox.

1er ComboBox est le produit.
2eme ComboBox est le mot-clé.
3eme ComboBox est le type.
4eme ComboBox est le sous-type.

De plus, chaque produit a ses propres mot clés. Chaque mot clé a son propre type (ou pas) et etc...

A regarder dans le fichier Arborescence Produit.

Comment donc faire des liaison tout ça dans un ComboBox?

Pour commencer j'ai fait comme ça:

Code

'Création des choix de la listbox Support
ListBoxSupport.AddItem "DVD"
ListBoxSupport.AddItem "CD"
ListBoxSupport.AddItem "Papier"
ListBoxSupport.AddItem "Livre"
ListBoxSupport.AddItem "Dossier"
'Création des choix de la combox Produit
ComboBoxProduit.AddItem "Réducteurs" 'ListIndex = 1
ComboBoxProduit.AddItem "Turbine" 'ListIndex = 2
ComboBoxProduit.AddItem "Composants communs" 'ListIndex = 3
ComboBoxProduit.AddItem "Systèmes" 'ListIndex = 4
'Création des choix de la combox MotCle
ComboBoxmotCle.AddItem "Arbre" 'ListIndex = 1
ComboBoxmotCle.AddItem "Couple mètre" 'ListIndex = 2
ComboBoxmotCle.AddItem "Turbine HP" 'ListIndex = 3
ComboBoxmotCle.AddItem "Turbine Libre" 'ListIndex = 4
ComboBoxmotCle.AddItem "Ejection et Tuyère" 'ListIndex = 5
ComboBoxmotCle.AddItem "ZF Etanchéité" 'ListIndex = 6
ComboBoxmotCle.AddItem "ZF Jeux" 'ListIndex = 7
ComboBoxmotCle.AddItem "ZF Veine aérodynamique" 'ListIndex = 8
ComboBoxmotCle.AddItem "Palier" 'ListIndex = 9
ComboBoxmotCle.AddItem "Joints et Etanchéité" 'ListIndex = 10
ComboBoxmotCle.AddItem "Structure" 'ListIndex = 11
ComboBoxmotCle.AddItem "Pièces d'assemblage" 'ListIndex = 12
ComboBoxmotCle.AddItem "Transport levage" 'ListIndex = 13
ComboBoxmotCle.AddItem "ZF Interface cellule" 'ListIndex = 14
ComboBoxmotCle.AddItem "Système d'huile" 'ListIndex = 15
ComboBoxmotCle.AddItem "Circuit d'air" 'ListIndex = 16
ComboBoxmotCle.AddItem "Système électrique" 'ListIndex = 17
ComboBoxmotCle.AddItem "Système de drainage" 'ListIndex = 18

Bien sûr, j'ai mis ça aussi:

Code

Private Sub ComboBoxmotCle_Change()
Select Case ComboBoxmotCle.Value
Case 1 'Arbre
Case 2 'Couple mètre
Case 3 'Turbine HP
Case 4 'Turbine Libre
Case 5 'Ejection et Tuyère
Case 6 'ZF Etanchéité
Case 7 'ZF Jeux
Case 8 'ZF Veine aérodynamique
Case 9 'Palier
Case 10 'Joints et Etanchéité
Case 11 'Structure
Case 12 'Pièces d'assemblage
Case 13 'Transport levage
Case 14 'ZF Interface cellule
Case 15 'Système d'huile
Case 16 'Circuit d'air
Case 17 'Système électrique
Case 18 'Système de drainage
End Select
End Sub
------------------------------------------
Private Sub ComboBoxProduit_Change()
Select Case ComboBoxProduit.Value
Case 1 'Réducteur
Case 2 'Turbine
Case 3 'Composants communs
Case 4 'Systèmes
End Select
End Sub

Et d'ailleurs, le message d'erreur (crée par moi) affiche "Le produit n'a pas été selectionné", même aprés avoir sélectionner dans la liste déroulante.

Je ne m'adresse pas seulement à Sundering, si quelqu'un peut m'aider, il n'ya pas de soucis.

Merci à vous.

Voici la mise à jour du fichier Excel: http://dl.free.fr/v9g5HSvEZ

Mot de passe: kéké

	Informations	Messages
kéké 258 messages Processeur		Le 21 Juin 2010 à 17h51 Bonjour, Je remercie pour votre aide, précédemment, Sundering. Mon tuteur m'a dit que l'outil est bien, mais il y'a des modifications à effectuer. Il me reste donc 2 semaines pour finaliser l'outil et déployer les données. J'ai donc besoin de votre aide. J'ai donc refait les boîtes de dialogues INSERER et RECHERCHER (en fonction du cahier des charges) et les souhaits des utilisateurs (employés). Et il me manque maintenant le code pour faire fonctionner. Je vous joins, 2 fichiers Excel: La base de données et les boîtes de dialogues (Feuille Macro). Si possible, est ce que vous pouvez faire le code en fonction de la base données (colonne) et les boites de dialogues? Merci infiniment. Je vous autorise, si besoin, de modifier, de déplacer le contenu des boites de dialogues. Autre chose: --> Dans la boites de dialogue RECHERCHER AVANCEE, nous voudrons effectuer des recherches en fonction de la case coché (case d'option): Produits, Famille Moteurs, Zone fonctionnelles et non pas tous en même temps. Quand l'un des trois est coché, les autres restent inactifs. Mais je ne sais pas comment faire. --> Remarque: Tout se fait à partir du portail. Le portail de recherche ne compte pas pour la Recherche ni l'insertion des données. Merci encore Voici les 2 ficihiers: - La base de données : http://dl.free.fr/g6v3tKLwL - les boîtes de dialogues (Feuille Macro): http://dl.free.fr/p5U7Anshm Mot de passe: sundering


Publicité

kéké 258 messages Processeur		Le 23 Juin 2010 à 19h57 STOP! Je m'en occupe de la partie INSERER. J'ai pas mal avancé! J'ai appris beaucoup de chose et j'ai réussi à faire seul. Mais un seul soucis: je suis en train de créer une liste déroulante avec ComboBox. Il y'a 4 Combox. 1er ComboBox est le produit. 2eme ComboBox est le mot-clé. 3eme ComboBox est le type. 4eme ComboBox est le sous-type. De plus, chaque produit a ses propres mot clés. Chaque mot clé a son propre type (ou pas) et etc... A regarder dans le fichier Arborescence Produit. Comment donc faire des liaison tout ça dans un ComboBox? Pour commencer j'ai fait comme ça: Code 'Création des choix de la listbox Support ListBoxSupport.AddItem "DVD" ListBoxSupport.AddItem "CD" ListBoxSupport.AddItem "Papier" ListBoxSupport.AddItem "Livre" ListBoxSupport.AddItem "Dossier" 'Création des choix de la combox Produit ComboBoxProduit.AddItem "Réducteurs" 'ListIndex = 1 ComboBoxProduit.AddItem "Turbine" 'ListIndex = 2 ComboBoxProduit.AddItem "Composants communs" 'ListIndex = 3 ComboBoxProduit.AddItem "Systèmes" 'ListIndex = 4 'Création des choix de la combox MotCle ComboBoxmotCle.AddItem "Arbre" 'ListIndex = 1 ComboBoxmotCle.AddItem "Couple mètre" 'ListIndex = 2 ComboBoxmotCle.AddItem "Turbine HP" 'ListIndex = 3 ComboBoxmotCle.AddItem "Turbine Libre" 'ListIndex = 4 ComboBoxmotCle.AddItem "Ejection et Tuyère" 'ListIndex = 5 ComboBoxmotCle.AddItem "ZF Etanchéité" 'ListIndex = 6 ComboBoxmotCle.AddItem "ZF Jeux" 'ListIndex = 7 ComboBoxmotCle.AddItem "ZF Veine aérodynamique" 'ListIndex = 8 ComboBoxmotCle.AddItem "Palier" 'ListIndex = 9 ComboBoxmotCle.AddItem "Joints et Etanchéité" 'ListIndex = 10 ComboBoxmotCle.AddItem "Structure" 'ListIndex = 11 ComboBoxmotCle.AddItem "Pièces d'assemblage" 'ListIndex = 12 ComboBoxmotCle.AddItem "Transport levage" 'ListIndex = 13 ComboBoxmotCle.AddItem "ZF Interface cellule" 'ListIndex = 14 ComboBoxmotCle.AddItem "Système d'huile" 'ListIndex = 15 ComboBoxmotCle.AddItem "Circuit d'air" 'ListIndex = 16 ComboBoxmotCle.AddItem "Système électrique" 'ListIndex = 17 ComboBoxmotCle.AddItem "Système de drainage" 'ListIndex = 18 Bien sûr, j'ai mis ça aussi: Code Private Sub ComboBoxmotCle_Change() Select Case ComboBoxmotCle.Value Case 1 'Arbre Case 2 'Couple mètre Case 3 'Turbine HP Case 4 'Turbine Libre Case 5 'Ejection et Tuyère Case 6 'ZF Etanchéité Case 7 'ZF Jeux Case 8 'ZF Veine aérodynamique Case 9 'Palier Case 10 'Joints et Etanchéité Case 11 'Structure Case 12 'Pièces d'assemblage Case 13 'Transport levage Case 14 'ZF Interface cellule Case 15 'Système d'huile Case 16 'Circuit d'air Case 17 'Système électrique Case 18 'Système de drainage End Select End Sub ------------------------------------------ Private Sub ComboBoxProduit_Change() Select Case ComboBoxProduit.Value Case 1 'Réducteur Case 2 'Turbine Case 3 'Composants communs Case 4 'Systèmes End Select End Sub Et d'ailleurs, le message d'erreur (crée par moi) affiche "Le produit n'a pas été selectionné", même aprés avoir sélectionner dans la liste déroulante. Je ne m'adresse pas seulement à Sundering, si quelqu'un peut m'aider, il n'ya pas de soucis. Merci à vous. Voici la mise à jour du fichier Excel: http://dl.free.fr/v9g5HSvEZ Mot de passe: kéké