vba excel filtrage avec userform Résolu/Fermé

Question

Bonjour à tous, 

Dans le cadre d'une gestion de projet, je développe une appli vba & excel (excel 2003).

Pour assigner un prestataire fournisseur à un projet, j'ai créé un userform (SelectionFournisseur). Chaque fournisseur a une spécialité, que j'appelle "activité" dans ma base fournisseur (onglet B_Fournisseur).

Lorsque je crée un projet (onglet C_Projet), je sélectionne une activité, puis ouvre le UF pour sélectionner mon fournisseur (par saisie des premières lettres du nom). Je voudrais que, dans la liste des fournisseurs possibles ne s'affichent que les fournisseurs correspondant à l'activité sélectionnée.

Voici le code de mon UF :

Private Sub SelectionFournisseur_Initialize()
  Me.ListBox1.List = [Liste_Fournisseurs].Value
  
End Sub

Private Sub LettresFourn_Change()
   Me.ListBox1.Clear
   For Each c In [Liste_Fournisseurs]
     If UCase(c) Like UCase(Me.LettresFourn) & "*" Then Me.ListBox1.AddItem c
  Next c
End Sub

Private Sub ListBox1_Click()

  ActiveCell = Me.ListBox1
  Unload Me
End Sub

Si quelqu'un pouvait m'aider, ce serait sympa.
Je tiens le fichier exemple à disposition si nécessaire.
Merci par avance pour votre aide

Jean

Configuration: Windows XP / Safari 535.1

michel_m · Answer

Bonjour

je tiens le fichier exemple à disposition si nécessaire. 

pour joindre une pièce
mettre le classeur sans données confidentielles en pièce jointe (format XL97-2003) sur
https://www.cjoint.com/ 
et faire un clic droit sur le lien proposé puis "copier l'adresse du lien" et coller dans le message de réponse

Grandjean · Answer

Bonjour Michel,

Merci de ta réponse.

Voici le lien 

http://cjoint.com/?0JrtAQC5woW

J'espère que mes explications sont suffisamment claires.

Jean

Grandjean · Answer

Bonjour Michel,

Désolé si ce n'est pas très clair. Ce sont des fichiers de travail sur lesquels j'apprends VB et construit mon projet. J'ai pourtant essayé de faire le ménage. Bref, 

J'affecte une activité au fournisseur dans la base fournisseur (onglet B_Fournisseur).

Quand je crée mon projet (onglet C_Projet), je sélectionne une activité (D 16), puis vais sur la cellule fournisseur (D 18), qui déclenche le UF, comme tu l'as remarqué. Je voudrais que l'activité sélectionnée en D16 serve de filtre à UF pour n'afficher que les fournisseurs correspondant à cette activité tel que paramétré dans B_Fournisseur.

Comme je récupère ensuite cette donnée D16, je préfère l'avoir là plutôt que dans l'UF.

Voilà, j'espère être plus précis ainsi. Merci de ton aide et de ta patience.
Jean

michel_m · Answer

Oui, mais

tu sélectionnes une activité en D16 par ex impression"


donc, ton userform indique les "imprimeurs" possibles et  ton choix soit répercuté dans D18
le déclenchement serait alors en D16 et non D18
 c'est ça ?

Vba excel filtrage avec userform

4 réponses