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

herve62

XLDnaute Barbatruc

Supporter XLD

• 25 Novembre 2019

• #2

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Novembre 2019

• #3

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 :

VB:

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.

 

Pièces jointes

• Copie de 2bases-2.xlsm

  634.6 KB · Affichages: 18

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 25 Novembre 2019

• #4

Bonjour Hervé 62,

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

Oli

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 25 Novembre 2019

• #5

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Novembre 2019

• #6

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.

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 25 Novembre 2019

• #7

re,

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Novembre 2019

• #8

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

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 25 Novembre 2019

• #9

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

 

Pièces jointes

• 2bases_vba_matrice.xlsm

  654.5 KB · Affichages: 20

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 26 Novembre 2019

• #10

Bonjour ,

@sylvanu

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

Bonne soirée

Oli

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Novembre 2019

• #11

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.

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 26 Novembre 2019

• #12

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...

 

Vote positif 0 Vote négatif