Bonjour,
Je dois alimenter une Combobox1 selon ces critères :
* Mon USF s'active au clic de ma souris dans une feuille. Ma variable majeure est Activecell
* La liste doit correspondre au nom de tous les onglets de la feuille à partir de la 2ème incluse
* Ma liste ainsi complétée ne doit pas prendre en compte les feuilles dont l'adresse de cellule n'est pas égale à False
(Si je suis en C3, j'exclu toutes les feuilles qui ont un C3 <> False)
Voilà voilà.... Sauf que les boucles c'est pas mon truc et je bloque sacrément
Private Sub UserForm_Initialize()
nl = ActiveCell.Row
nc = ActiveCell.Column
Dim ws As Worksheet
'[...]
For Each ws In ActiveWorkbook.Sheets
If ws.Name <> "BD" and ws.cells(nl,nc).value<>"False" Then
ComboBox1.AddItem ws.Name
End If
Next
'[...]
End Sub
Sauf que j'ai une erreur...
Help please
EDIT : Solution trouvée.... un caractère missclic....