[RESOLU] Affichage complet d'une liste déroulante

[mrbean2]

Bonjour à toutes et tous,

Sur un fichier (voir fichier joint), je travaille avec une liste déroulante contenant pour le moment un choix de 15 lignes.
Quand j'ouvre cette liste de choix, je n'ai que les 8 premières lignes.
Comment faire pour dérouler la totalité de la liste sans passer par l'ascenseur ?
Je n'y connais pas grand chose en "userForm" ou "Formulaire" et j'ai trouvé ceci :
Lien supprimé
avec le moteur de recherche du site qui ressemble à ce que j'aimerais obtenir avec mon fichier.
Comment l'adapter à mon fichier ?

Merci d'avance pour vos réponses. 😕

 

[JCGL]

Re : Affichage complet d'une liste déroulante

Bonjour à tous,

Un essai avec les listes déroulantes de Contrôle Formulaire

A+ à tous

 

[mrbean2]

Re : Affichage complet d'une liste déroulante

Merci JCGL pour ta réponse rapide....
Mais je préfèrerais avoir ma liste déroulante en colonne A et comme dans l'exemple que j'avais trouvé !

 

[JCGL]

Re : Affichage complet d'une liste déroulante

Bonjour à tous,

Ce n'était qu'un exemple
Tu copies un contrôle et tu le colles où tu veux...

A+ à tous

 

[mrbean2]

Re : Affichage complet d'une liste déroulante

Bonjour à toutes et tous

A JCGL : Quand je copie 1 contrôle et le colle où je veux, j'en obtiens 2, c'est normal ou pas ?
La petite flèche à droite est toujours visible, c'est normal ou pas ?

Merci pour ton aide

 

[JCGL]

Re : Affichage complet d'une liste déroulante

Bonjour à tous,

Non le collage est unique
Oui les petites flèches sont toujours visibles


A+ à tous

 

[mrbean2]

Re : Affichage complet d'une liste déroulante

Merci JCGL pour ta 1ere proposition

J'aurais préféré comme sur l'exemple donné au départ.
Peut-être que quelqu'un aura autre chose à me proposer.

 

[david84]

Re : Affichage complet d'une liste déroulante

Bonjour, salut Jean-Claude,
en passant par un contrôle ActiveX à la place d'un contrôle de formulaire on peut faire en sorte que la flèche n'apparaisse pas tant que l'on n'a pas sélectionné le contrôle :
- sélectionner un contrôle ActiveX de type ComboBox
- double-clic sur le contrôle et placer ce code :

Private Sub ComboBox1_DropButtonClick()
Dim Pl As Range
Set Pl = Range("$A$70:$A$84")
With ComboBox1
  .List = Pl.Value
  .ListRows = Pl.Rows.Count
End With
End Sub

- dans la fenêtre des propriétés du contrôle placer ShowDropButtonWhen sur 1.
A+

 

[mrbean2]

Re : Affichage complet d'une liste déroulante

Bonjour à toutes et tous,

david84 : Je n'y connais pas grand chose en Active X ou Combobox !
La manip que tu proposes, je la place dans quelle cellule de ma feuille excel ?

 

[david84]

Re : Affichage complet d'une liste déroulante

Bonjour à toutes et tous,

david84 : Je n'y connais pas grand chose en Active X ou Combobox !
La manip que tu proposes, je la place dans quelle cellule de ma feuille excel ?

Où tu veux, c'est le même principe que celui proposé par JCGL mais tu remplaces les contrôles de formulaires par des contrôles ActiveX.
Pour choisir un contrôle ActiveX de type ComboBox : onglet Développeur>Contrôles>Insérer>dans la partie "Contrôles Activex" choisir choisir "zone de liste déroulante".
Le reste est expliqué dans mon 1er message.
A+

 

[mrbean2]

Re : Affichage complet d'une liste déroulante

Bonjour à toutes et tous

Ok je vais essayer ce week-end, j'aurais plus de temps pour faire la manip. 🙂

 

[Regueiro]

Re : Affichage complet d'une liste déroulante

Bonsoir à Tous
Ton fichier en retour
Double-click en colonne 2 apparition d'un USF avec 1 Combobox

Private Sub UserForm_Initialize()
    SendKeys "{F4}"
    Me.ComboBox1.RowSource = "Liste"
End Sub

Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1
  Unload Me
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 2 And Target.Count = 1 Then
    UserForm1.Top = Target.Top + 110 - Cells(ActiveWindow.ScrollRow, 1).Top
    UserForm1.Left = 150
    UserForm1.Show
  End If
  Cancel = True
End Sub

A+

 

[mrbean2]

🙂
C'est ce qu'il me fallait !
Un grand merci à Regueiro et aux autres pour leurs aides