T
Temjeh
Guest
Bonjour à tous
J'ai ceci (donné ici) qui alimente mon combo:
Dim lf As Long 'déclare la variable lf (Ligne de Fin)
lf = Range('A65536').End(xlUp).Row 'définit la variable lf
ComboBox1.Clear 'vide la ComboBox1
'remplit la ComboBox1
For Each cel In Range('A1:A' & lf) 'boucle sur toutes les cellule de A1 à A_lf
'condition : si la cellule n'est pas vide ajoute son contenu à la ComboBox1
If cel.Value <> '' Then ComboBox1.AddItem cel.Value
Next cel 'prochaine cellule
End Sub
Est-ce possible de lui mettre un code pour que si les val de col A en double ou tripple ne soit pas dans combo? Ou par formule qui met a la suite en col B les valeurs de col A sans doublons?
Merci beaucoup
Temjeh
J'ai ceci (donné ici) qui alimente mon combo:
Dim lf As Long 'déclare la variable lf (Ligne de Fin)
lf = Range('A65536').End(xlUp).Row 'définit la variable lf
ComboBox1.Clear 'vide la ComboBox1
'remplit la ComboBox1
For Each cel In Range('A1:A' & lf) 'boucle sur toutes les cellule de A1 à A_lf
'condition : si la cellule n'est pas vide ajoute son contenu à la ComboBox1
If cel.Value <> '' Then ComboBox1.AddItem cel.Value
Next cel 'prochaine cellule
End Sub
Est-ce possible de lui mettre un code pour que si les val de col A en double ou tripple ne soit pas dans combo? Ou par formule qui met a la suite en col B les valeurs de col A sans doublons?
Merci beaucoup
Temjeh