BOBO dans mon Combo

[kinkalero]

bonjour a tous excelois,

g un combobox alimenté de la façon suivante:

ComboBox1.List = Workbooks("Gestion des DC métrologie.xls").Sheets("Base").Range("dc").Value...(Merci Hervé)^^.

Mais je souhaiterai ajouter un filtre automatique à cette combo cad que en face de ma source sur la feuille "base" il y a des dates que l'on y inscrit et donc g souhaiterai avoir seulement dans ma combo les valeurs de "dc" qui n'ont pas de dates sur leur ligne.

Cordialement
Kinkalero

 

[_Thierry]

Re : BOBO dans mon Combo

Bonjour Kinkalero, le Forum

Si tu veux essayer ainsi, mais il te faut savoir un minimum dans la Syntax d'OffSet...

Private Sub UserForm_Click()
Dim Cell As Range
Dim Plage As Range
 
Set Plage = Workbooks("Gestion des DC métrologie.xls").Sheets("Base").Range("dc")
 
 
For Each Cell In Plage
    If Not IsDate([B]Cell.Offset(0, 1)[/B]) Then
           ComboBox1.AddItem Cell
    End If
Next
    
End Sub

Cell.Offset(0, 1) = La Cellule sur la même Ligne (0), et sur la Colonne Immédiatement à Droite (1)...

Par exemple, si ta plage nommée "DC" est en colonne "A" et que l'endroit où est supposé y avoir une Date est en Colonne "E" de la même ligne... La syntax d"'OffSEt sera :
Cell.Offset(0, 4)

Sinon ta plage "DC" est en Colonne "Z" et la date en Colonne "A" la Syntax sera :
Cell.Offset(0, -25)

Bon Aprèm

@+Thierry
​