Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Avoir le résultat d'un tri dans un combobox

Avoir le résultat d'un tri dans un combobox

4 réponses
Avatar
Michel.Girard
Bonjour
je souhaite avoir dans un combobox qui est sur un userform la chose suivante
:
lorsque je trie avoir dans celui-ci tous les items visible sur la feuille
Excel donc triés
A1 à AX
Merci beaucoup
Michel
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Voici une manière de procéder (à adapter) :
Private Sub UserForm_Initialize()
Dim Plage As Range, Plage1 As Range
Worksheets("Feuil1").Range("A1").CurrentRegion.Select
Set Plage = Selection.CurrentRegion
'supprimer ligne en-tête
Set Plage = Plage.Offset(1, 0).Resize(Plage.Rows.Count - 1, 1)
Set Plage1 = Plage.SpecialCells(xlVisible)
For Each Ocel In Plage1
Me.ComboBox1.AddItem Ocel
Next Ocel
End Sub

PS : Attention risque de plantage si pas de cellules visibles

Cordialement
Pascal

"Michel.Girard" a écrit dans le message de
news:
Bonjour
je souhaite avoir dans un combobox qui est sur un userform la chose
suivante :
lorsque je trie avoir dans celui-ci tous les items visible sur la feuille
Excel donc triés
A1 à AX
Merci beaucoup
Michel






Avatar
Michel.Girard
Un très grand merci Papou
C'est parfait !
Bonne journée
Michel


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
Voici une manière de procéder (à adapter) :
Private Sub UserForm_Initialize()
Dim Plage As Range, Plage1 As Range
Worksheets("Feuil1").Range("A1").CurrentRegion.Select
Set Plage = Selection.CurrentRegion
'supprimer ligne en-tête
Set Plage = Plage.Offset(1, 0).Resize(Plage.Rows.Count - 1, 1)
Set Plage1 = Plage.SpecialCells(xlVisible)
For Each Ocel In Plage1
Me.ComboBox1.AddItem Ocel
Next Ocel
End Sub

PS : Attention risque de plantage si pas de cellules visibles

Cordialement
Pascal

"Michel.Girard" a écrit dans le message
de news:
Bonjour
je souhaite avoir dans un combobox qui est sur un userform la chose
suivante :
lorsque je trie avoir dans celui-ci tous les items visible sur la feuille
Excel donc triés
A1 à AX
Merci beaucoup
Michel










Avatar
papou
Re
Tu peux éventuellement modifier comme ceci afin d'éviter de sélectionner au
préalable :
Private Sub UserForm_Initialize()
Dim Plage As Range, Plage1 As Range
Set Plage = Worksheets("Feuil1").Range("A1").CurrentRegion
Set Plage = Plage.Offset(1, 0).Resize(Plage.Rows.Count - 1, 1)
On Error Resume Next
Set Plage1 = Plage.SpecialCells(xlVisible)
On Error GoTo 0
For Each Ocel In Plage1
Me.ComboBox1.AddItem Ocel
Next Ocel
End Sub

Cordialement
Pascal

"Michel.Girard" a écrit dans le message de
news: OdhHp%
Un très grand merci Papou
C'est parfait !
Bonne journée
Michel


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
Voici une manière de procéder (à adapter) :
Private Sub UserForm_Initialize()
Dim Plage As Range, Plage1 As Range
Worksheets("Feuil1").Range("A1").CurrentRegion.Select
Set Plage = Selection.CurrentRegion
'supprimer ligne en-tête
Set Plage = Plage.Offset(1, 0).Resize(Plage.Rows.Count - 1, 1)
Set Plage1 = Plage.SpecialCells(xlVisible)
For Each Ocel In Plage1
Me.ComboBox1.AddItem Ocel
Next Ocel
End Sub

PS : Attention risque de plantage si pas de cellules visibles

Cordialement
Pascal

"Michel.Girard" a écrit dans le message
de news:
Bonjour
je souhaite avoir dans un combobox qui est sur un userform la chose
suivante :
lorsque je trie avoir dans celui-ci tous les items visible sur la
feuille Excel donc triés
A1 à AX
Merci beaucoup
Michel














Avatar
Michel.Girard
Merci Papou
Michel

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
ui$
Re
Tu peux éventuellement modifier comme ceci afin d'éviter de sélectionner
au préalable :
Private Sub UserForm_Initialize()
Dim Plage As Range, Plage1 As Range
Set Plage = Worksheets("Feuil1").Range("A1").CurrentRegion
Set Plage = Plage.Offset(1, 0).Resize(Plage.Rows.Count - 1, 1)
On Error Resume Next
Set Plage1 = Plage.SpecialCells(xlVisible)
On Error GoTo 0
For Each Ocel In Plage1
Me.ComboBox1.AddItem Ocel
Next Ocel
End Sub

Cordialement
Pascal

"Michel.Girard" a écrit dans le message
de news: OdhHp%
Un très grand merci Papou
C'est parfait !
Bonne journée
Michel


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
Voici une manière de procéder (à adapter) :
Private Sub UserForm_Initialize()
Dim Plage As Range, Plage1 As Range
Worksheets("Feuil1").Range("A1").CurrentRegion.Select
Set Plage = Selection.CurrentRegion
'supprimer ligne en-tête
Set Plage = Plage.Offset(1, 0).Resize(Plage.Rows.Count - 1, 1)
Set Plage1 = Plage.SpecialCells(xlVisible)
For Each Ocel In Plage1
Me.ComboBox1.AddItem Ocel
Next Ocel
End Sub

PS : Attention risque de plantage si pas de cellules visibles

Cordialement
Pascal

"Michel.Girard" a écrit dans le message
de news:
Bonjour
je souhaite avoir dans un combobox qui est sur un userform la chose
suivante :
lorsque je trie avoir dans celui-ci tous les items visible sur la
feuille Excel donc triés
A1 à AX
Merci beaucoup
Michel