Bonjour,
J'ai une comboBox qui me donne toutes mes feuilles ayant la donnée:VALEUR dans une cellule spécifique de la feuille.
Private Sub UserForm_Initialize()
ComboBox1.Clear
For Each X In Sheets
If X.Cells(1, 8).Value = "VERSION" Then
ComboBox1.AddItem X.Name
End If
Next X
Je voudrais le modifier avec ce programme qui fait appel au tri d'une combobox (Quick Sort):
Private Sub UserForm_Initialize()
Dim temp()
temp = Range("liste") ' liste tableau temp (1 To n,1 To 1) ou temp = Range([B2], [B2].End(xlDown))
Call tri(temp, 1, UBound(temp, 1))
Me.ListBox1.List = temp
End Sub
Comment remplacer le range("liste") par mon ComboBox1?
temp=ComboBox....
Merci
J'ai une comboBox qui me donne toutes mes feuilles ayant la donnée:VALEUR dans une cellule spécifique de la feuille.
Private Sub UserForm_Initialize()
ComboBox1.Clear
For Each X In Sheets
If X.Cells(1, 8).Value = "VERSION" Then
ComboBox1.AddItem X.Name
End If
Next X
Je voudrais le modifier avec ce programme qui fait appel au tri d'une combobox (Quick Sort):
Private Sub UserForm_Initialize()
Dim temp()
temp = Range("liste") ' liste tableau temp (1 To n,1 To 1) ou temp = Range([B2], [B2].End(xlDown))
Call tri(temp, 1, UBound(temp, 1))
Me.ListBox1.List = temp
End Sub
Comment remplacer le range("liste") par mon ComboBox1?
temp=ComboBox....
Merci