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
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
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
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
Merci par avance à tous pour l'aide que vous pourrez m'apporter.
Au plaisir de vous lire.
Scoobidoo
Pièces jointes
Dernière édition: