Aide pour adapter un code

[Scoobidoo]

Bonjour à tous, le forum,

Dans le fichier joint, je souhaite lorsque dans Sté je choisis CARMIN et dans Contact je sélectionne Jacques A,
le résultat ne me ramène que l'adresse liée à Jacques A pour CARMIN et non toutes les adresses trouvées pour Jacques A dans la table. Je pense que la modification est à apporter dans ce bout de code

'    For i = 0 To UserForm1.ListBox1.ListCount - 1
'        If UserForm1.ListBox1.Selected(i) = True Then
'            Dest = 1
'            Set c = Sheets("Feuil1").Columns(2).Find(UserForm1.ListBox1.List(i), LookIn:=xlValues, LookAt:=xlWhole)
'            If Not c Is Nothing Then
'                firstAddress = c.Address
'                Do
'                    Adresse = Adresse & c.Offset(0, 1) & "; "
'                    Set c = Sheets("Feuil1").Columns(2).FindNext(c)
'                Loop While Not c Is Nothing And c.Address <> firstAddress
'            End If
'        End If
'    Next i

mais je ne sais ni où ni quoi modifier !

Merci par avance à tous pour l'aide que vous pourrez m'apporter.

Au plaisir de vous lire.

Scoobidoo

 

[Scoobidoo]

Re : Aide pour adapter un code

Bonsoir à tous, le forum,

J'ai apporté quelques corrections dans le bout de code joint car il ne correspondait pas au fichier mis en pièce jointe.

Merci par avance pour votre aide.

Scoobidoo

 

[youky(BJ)]

Re : Aide pour adapter un code

Salut bien Scoobidoo,
Revoici ton fichier
J'ai effacé et remis la listbox1 car PB (je sais pas pourquoi)
Dés le click sur la listbox l'email est affiché.
Bruno

 

[youky(BJ)]

Re : Aide pour adapter un code

Re si Excel antérieur 2007 fichier converti
Bruno

 

[Chris24]

Re : Aide pour adapter un code

Bonsoir

Le Module1 est inutile, le code de la procédure "ChargerCombo1" peut être placé dans UserForm_Initialize.
Tu déplace UserForm1.Show dans Workbook_Open en lieu et place de ChargerCombo1.

Bonne soirée

 

[Scoobidoo]

Re : Aide pour adapter un code

Bonjour Youki, Chris24,

Youki : merci pour ta proposition que je vais adapter à mon projet.

Chris 24 : Je suis démasqué ! En fait, il est vrai que je ne fais que bricoler en Vba sur excel (souvent avec l'aide du Forum d'ailleurs !) et là, j'ai rapidement construit ce petit fichier pour illustrer ma demande. Par contre, je vais essayer de mettre en application tes conseils dans mon projet ce qui lui donnera une allure plus pro !

Merci à tous pour votre aide et nul doute que je reviendrai sur le forum prochainement car votre aide à tous m'est précieuse.

Bonne et belle journée à tous.

Scoobidoo