Doublon dans userform

[dran_200]

Bonjour à tous,

Merci pour vos conseils qui m’ont bien aidé. Je reposte un fichier car j’ai un soucis avec mon Userform.
Mon 1er choix trie bien la collonne A de ma feuille "BD" et affiche sans doublons
Quand je valide mon 2ème choix sur la colonne C de ma feuille "BD" ça ne fonctionne pas.
Les résultats affiché dans la listbox 3 et la listbox 4 ne tiennent pas compte du trie de mes 2 premiers choix. Il affiche tous les résultats possibles et pas seulement 1 valeur

Merci pour votre aide

 

[dran_200]

Re : Doublon dans userform

Bonjour
Encore merci pour ton aide. J'ai encore un soucis sur une autre userform. Dans celle çi, je n'ai que la collonne E (plus de f, g h ). Je n'arrive pas à modifier le code pour afficher les photos.
Je joint un exemple en 2 fichiers, essai et photo qui sont dans le meme dossier pour fonctionner.
Merci

 

[Bebere]

Re : Doublon dans userform

bonjour Dran
le dossier montre contient image defaut.jpg,et les autres 64131,64151,65250,etc
à bientôt

 

[dran_200]

Re : Doublon dans userform

Bonjour
Merci pour ton aide

 

[dran_200]

Re : Doublon dans userform

Bonjour
J'ai encore un petit soucis. J'ai rentré mes données sur ma base avec des photos. J'ai environ 500 références et photos (chaque pèse entre 10 et 15 Ko). Le temps d'affichage est tres long ? même si je baisse la qualité de mes photos ? Avez vous une solution ? Merci pour votre aide.

 

[dran_200]

Re : Doublon dans userform

Bonjour,
J'ai réglé mon probleme de rapidité sur les photos avec ce code :

Private Sub ListBox2_Change()
Dim Photo As String
On Error GoTo fin

Photo = Me.ListBox2.List(Me.ListBox2.ListIndex, 1) 'ListBox2.Column(1) '

Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\Photo\Briquet\" & Photo & ".jpg")

Exit Sub

fin:
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\Photo\" & "image defaut.jpg")
Err.Clear

End Sub

voila, maintenant tout fonction.
Encore merci pour votre aide.