Liste déroulante et base de données

**Daniel.C** · 18/01/2012, 12h50

J'ai modifié le numéro du champ dans le classeur joint. J'ai testé la validité du mot de passe. En cas d'erreur, j'affiche un message et je ferme le classeur.

**colapsus** · 18/01/2012, 13h48

Etrange, maintenant lorsque j'entre le mot de passe il me dit

Erreur d'éxécution 5
Argument ou appel de procédure incorrect

tout en me montrant dans le débogueur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

txt2 = Right(txt2, Len(txt2) - 1)

**Daniel.C** · 18/01/2012, 14h25

Ca se produit quand le string alimentant la liste déroulante est vide. J'ai rajouté un test. Regarde le classeur joint.

**colapsus** · 18/01/2012, 14h44

ça marche, je te remercie beaucoup pour ton aide Daniel, j'ai juste une derniere requete, y a-t-il un moyen d'afficher le nom et le prénom dans la liste déroulante ?

J'oubliais, d'un coté j'ai bien la liste déroulante avec les noms, mais je n'ai pas en E1, la liste déroulante affichant les noms d'entreprises, comment se fait ce ?

**Daniel.C** · 18/01/2012, 15h09

Oui, mais où se trouve le champ "Prénom" ? en 9e position ?

Je ne constate pas ce problème, qui, si je ne me suis pas trompé ne peut se produire que s'il n'y a aucune entreprise. Le mieux serait, si possible que tu me fasses parvenir une base de test, avec des noms bidon, bien sûr.

**colapsus** · 19/01/2012, 12h53

et voila, avec pour mot de passe "hdpn4767" il y a en tout 15 enregistrement bidons, avec des entreprises et des particuliers

**Daniel.C** · 19/01/2012, 17h55

Notes.
1. La table s'appelle "Contacts" au lieu de "contact". Quel nom faut-il conserver ?
2. Le champ "Nom" est bien le 11e champ mais les noms ont l'air d'être dans la colonne "Prénom" et vice-versa. Est-ce que je dois inverser les noms des champs ou inverser les données ?
3 Dans le champ "Entreprise", pour les particuliers, on a "- PARTICULIER -". Peux-tu me confirmer ?
4. Conséquence imprévue du point précédent, les valeurs commençant par un tiret (numérique ?) mettent le bazar dans la macro. Je rétablis provisoirement à "PARTICULIER".

Peux-tu me répondre sur ces différentes questions ? Pour le moment, je bloque sur les noms d'entreprise contenant une apostrophe. Je regarde.

Je te retourne la base (nom de la table modifié et libellés "PARTICULIER" au lieu de "- PARTICULIER -") sachant que je peux faire un contournement. Le problème des apostrophes est lui réglé.

**Daniel.C** · 19/01/2012, 22h39

Oups, j'ai laissé le chemin correspondant à mon fichier. Dans la macro WorkBook_Open, au début, tu vois :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    'Chemin = "C:\Users\Marc\Desktop\N'AIRSOL\"
    Chemin = "C:\Users\Daniel\Documents\Donnees\Daniel\mpfe\"

Il faut enlever l'apostrophe devant le mot "Chemin" et supprimer la seconde ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Chemin = "C:\Users\Marc\Desktop\N'AIRSOL\"

Si tu n'y arrives pas, je t'envoie un nouveau classeur.

**colapsus** · 23/01/2012, 12h30

Eh bien tout avait l'air de fonctionner, mais maintenant je me trouve face à un dernier probleme lors du lancement de la macro, juste apres avoir entré le mot de passe il me met
Erreur 1004 erreur de l'application ou de l'objet et me marque cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=txt1

Je te mets le fichier en piece jointe pour que tu me dise ce que tu en pense.

**Daniel.C** · 23/01/2012, 14h16

Je n'ai pas cette erreur. Est-ce que tu travailles sur la base que tu m'a envoyé ou sur une autre ?

**colapsus** · 23/01/2012, 15h04

Oui oui je travaille sur la même base, c'est juste que j'ai supprimé des tables, c'est à dire je t'ai envoyé la base de données ne contenant alors qu'uniquement la table "Contacts", je n'ai laissé qu'une quinzaine de lignes et j'ai changé les informations.

Etrangement lorsque je le fais sous une donnée bidon, je ne rencontre aucun probleme. Veux tu que je t'envoie la BDD pure, que tu vois exactement sur quel environnement je travaille ?

**Daniel.C** · 23/01/2012, 15h17

Si c'est possible, merci.

**colapsus** · 23/01/2012, 15h31

Et voila, fais y attention, et supprime là des que tu auras terminé

**Daniel.C** · 23/01/2012, 16h03

C'est ce que je craignais depuis le départ. Le nombre d'enregistrements est trop important pour des listes déroulantes. Il va falloir que je les remplace par des comboboxes. Ca va me prendre quelques jours. Ne crains rien pour ta base, je suis chez moi, la base a un mot de passe et mon ordi aussi.

J'ai remplacé les deux listes déroulantes par deux comboboxes. Ça a l'air de fonctionner. (le code est même plus simple.) Je me pose deux questions :
1. est-ce que tu as besoin d'avoir plusieurs fois "- PARTICULIER -" dans le combobox ?
2. est-ce qu'il ne serait pa préférable que les noms d'entreprise soient triés ?

Je joins le classeur.

**colapsus** · 26/01/2012, 21h43

Non en réalité le mieux ce serait d'avoir deux liste déroulantes, d'un coté, tu aurais la liste présentant tous les noms d'entreprises, de l'autre tous les particuliers.

**Daniel.C** · 27/01/2012, 18h34

de l'autre tous les particuliers

Tu veux dire ceux qui ont "- PARTICULIER -" dans le champ "Entreprise" ou tous ceux dont le champ "Nom" n'est pas nul ?

**colapsus** · 30/01/2012, 09h47

Oui tout à fait, je voudrais que pour les entreprises, tout le champ ayant le statut -PARTICULIER- n'existe pas

J'ai oublié, voila je suis en train de faire le portage sur le fichier excel qui va recevoir le code, et apres modification de Feuil1 par le véritable nom de la page, lorsque je lance la macro il m'indique que

Private Sub Workbook_open()
Erreur de compilation, Type défini par l'utilisateur non défini.
Sais tu ce qui se passe ?

Pour t'aider, voici le fichier dans lequel je fais la transition, en enlevant tout ce qui est confidentiel bien sur.

**Daniel.C** · 30/01/2012, 10h34

Oui tout à fait, je voudrais que pour les entreprises, tout le champ ayant le statut -PARTICULIER- n'existe pas

Oui, mais pour la liste des noms, tu veux tous les noms ou uniquement cux qui ont '- PARTICULIER -" dans le champ Entreprise ? (je regarde ton autre message)