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

 

[Bebere]

Re : Doublon dans userform

bonjour Dran
bienvenue,fait une partie autrement
à bientôt

 

[dran_200]

Re : Doublon dans userform

Re Bonjour,
Merci ça fonctionne. Il me reste encore un probleme. A l'ouverture de ma listbox 2, j'affiche une photo en relation avec la réference de la colonne E avec ce code qui se trouve dans un dossier Photo\Mama :

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

Photo = ListBox2.Column(5)
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\Photo\Mama\" & Photo & ".jpg")

Exit Sub

Fin:
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\Photo\" & "Image defaut.jpg")
Err.Clear
End Sub

Mais ça ne fonctionne plus.
merci pour votre aide.

 

[Bebere]

Re : Doublon dans userform

Dran
corrigé avec le code d'origine

 

[Bebere]

Re : Doublon dans userform

excuse mis le mauvais

 

[dran_200]

Re : Doublon dans userform

re bonjour
Merci pour tes réponses, mais c'est pas le bon fichier !
merci

 

[Bebere]

Re : Doublon dans userform

Dran
et celui-çi est ce le bon
à bientôt

 

[dran_200]

Re : Doublon dans userform

Bonjour
Je n'arrive pas à afficher les photos. Quelque soit le choix, j'ai toujours la photo par défaut.
Merci

 

[Bebere]

Re : Doublon dans userform

Dran
dans le dossier photos, nomme les fichiers photo0,photo1,photo2
o,1,2 index de listbox2(voir code)
à bientôt

 

[dran_200]

Re : Doublon dans userform

Re Bonjour
Merci pour ton aide Bebere, mon soucis est que les photos sont deja nommées avec un code à 6 chiffres (ex : 133456) et que ce chiffre correspond au code de la collonne E.. Le 1er code affiché en réponse sur la listbox4.
Merci

 

[Bebere]

Re : Doublon dans userform

Dran
vois si ce code te convient
à bientôt

 

[dran_200]

Re : Doublon dans userform

Re
je n'arrive pas à mettre les photos. La photo par défaut fonctionne. Si je nomme une photo E2 (en relation avec la cellule E2, elle ne s'affiche pas. Je joint un fichier
merci

 

[Bebere]

Re : Doublon dans userform

Dran
si Mon est un dossier il faut ajouter \ ,après vient le nom du fichier
NomDossier = ActiveWorkbook.Path & "\Photo\Mon"
dans listbox2_change
' Nom = File.Name
' If UCase(Right(File.Name, 3)) = UCase("jpg") Then
If Left(File.Name, 2) = Photo Then
Image1.Picture = LoadPicture(NomDossier & File.Name) ' & ".jpg")
Exit For
Else
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\Photo\" & "image defaut.jpg")
End If
' End If

dans listbox1_change

ListBox2.List(ListBox2.ListCount - 1, 0) = Cell.Offset(, 2)
ListBox2.List(ListBox2.ListCount - 1, 1) = Cell.Offset(, 4) 'e
ListBox2.List(ListBox2.ListCount - 1, 2) = Cell.Offset(, 5) 'f
ListBox2.List(ListBox2.ListCount - 1, 3) = Cell.Offset(, 6) 'g
ListBox2.List(ListBox2.ListCount - 1, 4) = Cell.Offset(, 7) 'h

à bientôt

 

[dran_200]

Re : Doublon dans userform

re
encore merci pour ton aide
oui "Mon " est un sous dossier de "Photo". je n'arrive pas à faire marcher ton code
merci

 

[Bebere]

Re : Doublon dans userform

bonjour Dran
mis le fichier et dossier là
Cijoint.fr - Service gratuit de dépôt de fichiers
si le contenu des colonnes e,f,g,h est en rapport avec affichage photos il faut faire autrement
à bientôt