Remplissage Combo...

Demouret · 8 Mars 2006

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 · 8 Mars 2006

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 · 8 Mars 2006

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

Remplissage Combo...

Demouret

XLDnaute Junior

Robert

XLDnaute Barbatruc

Demouret

XLDnaute Junior

Discussions similaires