Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionWith Sheets("Ma Cave")inscription rajoutée en ligne 4
Set Cel = .Columns("I").Cells.Find(What:=Ref, LookIn:=xlValues, lookat:=xlPart)
If Not Cel Is Nothing Then
Mondico(.Range("A" & Cel.Row).Value) = "" '<<<<<===========
Depart = Cel.Address
Do
Mondico(.Range("A" & Cel.Row).Value) = ""
Set Cel = .Columns("I").Cells.FindNext(Cel)
Loop While Depart <> Cel.Address
Me.ListBox1.List = Application.Transpose(Mondico.keys)
Else
'si pas trouvé le met dans la liste'
MsgBox "Pas trouvé de vin en accord avec " & Ref & "", vbCritical
End If
End With
Loop While Depart <> Cel.Addresslorsqu'il ne trouve qu'un seul résultat dans la colonne "I" .