Option Explicit
Private Sub ComboBox1_Change()
Worksheets(ComboBox1.Text).Select
Unload Me
End Sub
Private Sub Userform_Initialize()
Dim Ws As Worksheet
For Each Ws In ActiveWorkbook.Worksheets
ComboBox1.AddItem Ws.Name
Next Ws
End SubBonjour Eric, merci pour ton aide, j'ai déjà un Userform avec une ComboBox, mais je recherche toutefois avec une ListView, pour autant qu'il est possible.
Private Sub UserForm_Initialize()
For Each ws In ActiveWorkbook.Sheets
Me.ListView1.ListItems.Add , , ws.Name
Next ws
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
With Me.ListView1
NameWs = .ListItems(Item.Index)
' ou NameWs = Item.Text
Worksheets(NameWs).Select
End With
End Sub
Private Sub UserForm_Initialize()
With Me.ListView1
.ColumnHeaders.Add , , "Feuilles", .Width
.Gridlines = True
.MultiSelect = False
.ListItems.Clear
For Each Ws In Worksheets
.ListItems.Add , , Ws.Name
Next Ws
End With
End SubBonjour le forum. Merci vgendron. Ton code correspond à ce que je recherche, mais tu ne m'en voudras, celui de Chti160 est plus élaboré. Bonne journée et merci encore.Hello
un essai:
VB:Private Sub UserForm_Initialize() For Each ws In ActiveWorkbook.Sheets Me.ListView1.ListItems.Add , , ws.Name Next ws End Sub
des infos ici
Utiliser le contrôle ListView en VBA Excel
Utiliser le contrôle ListView en VBA Excelsilkyroad.developpez.com
Bonjour Jean-Marie, toujours autant réactif et plein de bonne idée. Je te remercie pour ton code, cela correspond à ce que je recherchai en vain. Par contre, j'ai un petit soucis, j'ai du texte qui est plus long que d'autre. Exemple Janvier s'affiche sur une seule ligne tandis que Décembre, le e de celui-ci se trouve sur une 2ème ligne. Est.il possible d'ajuster la longueur du texte.
Bonjour Jean-Marie, excuse moi de mon retard mais je viens tout juste de voir ton post. J'aime beaucoup l'interface et la simplicité. Je vais opté pour ta solution. Je te remercie. Bonne soirée.
