Private Sub ListBox1_Click() 'Attribution des noms des étiquettes
Dim k As Single, valeur As Range, f As Worksheet, ville As Range, cel As Variant
On Error Resume Next
Set f = Sheets("Clients")
If OptionButton1 Then
Set valeur = f.Range("B:B").Find(Me.ComboBox1, Lookat:=xlWhole)
Else
Set valeur = f.Range("B:B").Find(Me.ListBox1.Column(1), Lookat:=xlWhole)
If valeur Is Nothing Then
Set valeur = f.Range("B:B").Find(Me.ListBox1.Column(0), Lookat:=xlWhole)
End If
If valeur Is Nothing Then
Set valeur = f.Range("B:B").Find(Me.ListBox1.Column(2), Lookat:=xlWhole)
End If
End If
If valeur Is Nothing Then
Set f = Sheets("Prospects")
If OptionButton1 Then 'Bouton Société
Set valeur = f.Range("B:B").Find(Me.ComboBox1, Lookat:=xlWhole)
Else
Set valeur = f.Range("B:B").Find(Me.ListBox1.Column(1), Lookat:=xlWhole)
End If
If valeur Is Nothing Then
Set valeur = f.Range("B:B").Find(Me.ListBox1.Column(0), Lookat:=xlWhole)
End If
If valeur Is Nothing Then
Set valeur = f.Range("B:B").Find(Me.ListBox1.Column(2), Lookat:=xlWhole)
End If
End If
For Each cel In [Donnees].Columns(2).SpecialCells(xlVisible)
If OptionButton1 Then
Set ville = f.Range("B:B").Find(Me.ComboBox1, Lookat:=xlWhole).Offset(, 9)
Else
Set ville = f.Range("B:B").Find(Me.ListBox1.Column(0), Lookat:=xlWhole).Offset(, 9)
Set ville = f.Range("B:B").Find(Me.ListBox1.Column(1), Lookat:=xlWhole).Offset(, 9)
Set ville = f.Range("B:B").Find(Me.ListBox1.Column(2), Lookat:=xlWhole).Offset(, 9)
End If
For k = 6 To 8
Me("Label" & k) = valeur.Offset(, k - 6)
Next k
For k = 9 To 12
Me("Label" & k) = valeur.Offset(, k - 5)
Next k
For k = 19 To 19
Me("Label" & k) = ville
Next k
Next cel
End Sub