Bonjour @ tous,
je me retrouve avec le probleme suivant, dans ce code:
If Me.ComboBox2.Value <> "" Then
For Each cel In o.Range("c2:c" & dl)
If cel.Value = Me.ComboBox2.Value Then Me.ListBox1.AddItem cel.Offset(0, -2).Value
Next cel
End If
ce code fonctionne parfaitement bien si il s'agit d'une valeur texte, or si dans la cellule la valeur est un nombre ou une date, alors prenoms l'exemple d'une date:
cel.Value = 10/02/2005
et Me.ComboBox2.Value= "10/02/2005"
la différence de guillemets empeche l'équivalence et donc bloque l'execution.
Auriez vous une idée?
Merci @+
je me retrouve avec le probleme suivant, dans ce code:
If Me.ComboBox2.Value <> "" Then
For Each cel In o.Range("c2:c" & dl)
If cel.Value = Me.ComboBox2.Value Then Me.ListBox1.AddItem cel.Offset(0, -2).Value
Next cel
End If
ce code fonctionne parfaitement bien si il s'agit d'une valeur texte, or si dans la cellule la valeur est un nombre ou une date, alors prenoms l'exemple d'une date:
cel.Value = 10/02/2005
et Me.ComboBox2.Value= "10/02/2005"
la différence de guillemets empeche l'équivalence et donc bloque l'execution.
Auriez vous une idée?
Merci @+
