Bonjour à tous,
J'ai créé une zone de liste à choix multiple :
Janvier
Février
Mars
Avril
...
qui renvoie les valeurs 0 ou 1 à une colonne de cellules. (Ex: avec Janvier et Mars de sélectionnés)
1
0
1
0
....
Private Sub ListBox1_Change()
For i = 0 To Me.ListBox1.ListCount - 1
Cells(i + 1, 1) = ""
If Me.ListBox1.Selected(i) = True Then Cells(i + 1, 1) = 1 Else Cells(i + 1, 1) = 0
Next i
End Sub
Mon problème est que cette zone de liste prend beaucoup trop de place dans mon tableur et si je la réduis à la taille de la cellule on ne voit plus la liste en entier.
J'aimerais qu'elle apparaisse comme une liste déroulante ou bien à l'aide d'un bouton.
Merci pour votre aide.
Jérémy
J'ai créé une zone de liste à choix multiple :
Janvier
Février
Mars
Avril
...
qui renvoie les valeurs 0 ou 1 à une colonne de cellules. (Ex: avec Janvier et Mars de sélectionnés)
1
0
1
0
....
Private Sub ListBox1_Change()
For i = 0 To Me.ListBox1.ListCount - 1
Cells(i + 1, 1) = ""
If Me.ListBox1.Selected(i) = True Then Cells(i + 1, 1) = 1 Else Cells(i + 1, 1) = 0
Next i
End Sub
Mon problème est que cette zone de liste prend beaucoup trop de place dans mon tableur et si je la réduis à la taille de la cellule on ne voit plus la liste en entier.
J'aimerais qu'elle apparaisse comme une liste déroulante ou bien à l'aide d'un bouton.
Merci pour votre aide.
Jérémy