Je pioche depuis un certain temps sur ce probl=E8me...
Sur un UserForm, j'aimerais voir afficher dans un=20
ComboBox, lorsque je clique dessus, les noms des=20
colonnes "Colonne A", "Colonne B", etc, si il y a des=20
=E9l=E9ments dans les cellules A1, b1, etc.
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
J-Dan
bonjour Starwing,
peut-etre comme ceci :
Private Sub ComboBox1_MouseDown(ByVal Button As Integer,_ ByVal Shift As Integer, ByVal X As Single, ByVal Y As _ Single) ComboBox1.Clear Range(Cells(1, 1), Cells(1, 256).End(xlToLeft)).Activate
For Each c In Selection If c <> "" Then ComboBox1.AddItem c End If Next
End Sub
-----Message d'origine----- Bonjour,
Je pioche depuis un certain temps sur ce problème...
Sur un UserForm, j'aimerais voir afficher dans un ComboBox, lorsque je clique dessus, les noms des colonnes "Colonne A", "Colonne B", etc, si il y a des éléments dans les cellules A1, b1, etc.
Une idée, une piste?
Merci d'avance
Starwing .
bonjour Starwing,
peut-etre comme ceci :
Private Sub ComboBox1_MouseDown(ByVal Button As Integer,_
ByVal Shift As Integer, ByVal X As Single, ByVal Y As _
Single)
ComboBox1.Clear
Range(Cells(1, 1), Cells(1, 256).End(xlToLeft)).Activate
For Each c In Selection
If c <> "" Then
ComboBox1.AddItem c
End If
Next
End Sub
-----Message d'origine-----
Bonjour,
Je pioche depuis un certain temps sur ce problème...
Sur un UserForm, j'aimerais voir afficher dans un
ComboBox, lorsque je clique dessus, les noms des
colonnes "Colonne A", "Colonne B", etc, si il y a des
éléments dans les cellules A1, b1, etc.
Private Sub ComboBox1_MouseDown(ByVal Button As Integer,_ ByVal Shift As Integer, ByVal X As Single, ByVal Y As _ Single) ComboBox1.Clear Range(Cells(1, 1), Cells(1, 256).End(xlToLeft)).Activate
For Each c In Selection If c <> "" Then ComboBox1.AddItem c End If Next
End Sub
-----Message d'origine----- Bonjour,
Je pioche depuis un certain temps sur ce problème...
Sur un UserForm, j'aimerais voir afficher dans un ComboBox, lorsque je clique dessus, les noms des colonnes "Colonne A", "Colonne B", etc, si il y a des éléments dans les cellules A1, b1, etc.
