XL 2019 Choix de feuille(base de données)via userform en fonction d'un bouton de commande

[thespeedy20]

Bonjour le Forum,

J'ai un userform avec le choix pour l'utilisation de la base de donnée 1 et 2....

Le bouton 1 me donne accès au formulaire de recherche pour la base 1...

Je désirerais que mon deuxième bouton (vers la 2ème base de données) me donne accès au même formulaire de recherche et à la base 2....

Je ne vois pas comment je dois faire

Merci pour votre aide...

Oli

 

[herve62]

Bonjour
Je ne vois pas trop la difficulté ? , le bouton pour ta BD2 n'a pas de code ? , il faut reprendre le même que le bouton de la BD1 et juste changer l'aiguillage de feuille et afficher ton 2eme USF , ensuite dans tes codes il faudra certainement mettre des conditions ( IF Bd1 ou IF Bd2 ..etc) pour pointer sur les bonnes données

 

[sylvanu]

Bonjour TheSpeedy
J'ai créé une variable public ChoixListe qui vaut 1 si on clic sur bouton1 et 2 sur bouton2, et la liste est affecté par :

Private Sub UserForm_Initialize()
  If ChoixListe = 1 Then Set f = Sheets("BD") Else Set f = Sheets("BD2")

C'est simple et ça à l'air de correspondre à votre attente.

 

[thespeedy20]

Bonjour Hervé 62,

C est justement la procédure avec les boutons qui me pose problème...

Oli

 

[thespeedy20]

Bonjour Sylvanu,

Merci pour ta proposition, j'ai accès à la base, mais quand je fais une recherche, mon tableau est vide....

La cause c'est qu'Il y a dans la feuille "choix", une formule en O2 qu'il faudrait adapter je pense (BD ou BD2)

Je te remercie vivement

Oli

 

[sylvanu]

C'est sur que la formule en O2 est fausse maintenant, mais les matrices CritDegré,critCours,CritProfs ... sont vides.
Je pense que c'est par là qu'il faut commencer.

 

[thespeedy20]

re,

pas moyen de remettre cette formule en vba.....?

 

[sylvanu]

Il faudrait commencer par résoudre le problème de matrices. Car la formule en O2 y fait appel et ces matrices sont vides.

 

[thespeedy20]

re sylvanu,

Avec l'éditeur de macro, j'y suis arrivé...

Tu peux y regarder et peut-être simplifier le code ou l'améliorer....

Merci

Oli

 

[thespeedy20]

Bonjour ,

@sylvanu

tu n 'as pas répondu au poste précédent...

Bonne soirée

Oli

 

[sylvanu]

Bonsoir Thespeedy,
J'avais regardé mais rien de vraiment à optimiser. Ça va dépendre de la suite. Comme je pense qu'il va y ava=oir des listes à rapatrier, c'est là qu'on peut gagner du temps.
Je pensais que quelqu'un aurait une idée.

 

[thespeedy20]

Ré

J ai avancé un peu, en ajoutant des boutons sur l userform recherche pour passer d u'e base à l'autre.... Un textbox qui nous dit sur quel base on travaille, un module de mise à jour de la base par un fichier Excel...