'remplissage des ComboBoxes 3 et 4
For Each cel In .Range("D2:CO2") 'boucle : sur toutes les cellules cel de la plage D2:IQ2
If cel <> "" Then
ComboBox3.AddItem Format(cel, "dddd dd mmm") 'ajoute la valeur de la cellule à la ComboBox3
'ajoute le numéro de la colonne de la cellule cel (ce numéro n'apparaît pas dans la liste
'voir les propriétés de la ComboBox3 : ColumnCount et ColumnWidths)
ComboBox3.Column(1, ComboBox3.ListCount - 1) = cel.Column
End If
If cel <> "" Then
ComboBox4.AddItem Format(cel, "dddd dd mmm") 'ajoute la valeur de la cellule à la ComboBox3
'ajoute le numéro de la colonne de la cellule cel (ce numéro n'apparaît pas dans la liste
'voir les propriétés de la ComboBox4 : ColumnCount et ColumnWidths)
ComboBox4.Column(1, ComboBox4.ListCount - 1) = cel.Column
End If
Next cel 'prochaine cellule cel de la boucle