Remplissage Combo...

[Demouret]

Bonsoir 'THE' Forum

.............................................
Private Sub UserForm_Initialize()
With Sheets('contacts')
ComboBox3.List = .Range('F15:F' & .Range('F65536').End(xlUp).Row).Value
End With
End Sub
.............................................

Voila comment je rempli ma combobox...
que pourrais je écrire pour qu'elle ne se remplisse que des cellules dont la police est de couleur 3 (par exemple.)

Merci

 

[Robert]

Bonsoir Demouret, bonsoir le forum,

Je te propose ce code :

Private Sub UserForm_Initialize()
Dim cel As Range 'déclare la variable cel

With Sheets('contacts')

'boucle sur toutes les cellules de la plage F15:F_dernière_éditée
For Each cel In .Range('F15:F' & .Range('F65536').End(xlUp).Row)
'si la police de la cellule est rouge, ajoute la valeur de la cellue à la ComboBox3
If cel.Font.ColorIndex = 3 Then ComboBox3.AddItem cel.Value
Next cel 'prochaine cellule de la plage

End With
End Sub

 

[Demouret]

Trop fort Robert... ça fonctionne très bien.

En plus c'est quand même toi le Papa de cette Combo.. 😉

Merci Bonne soirée