XL 2013 Remplacement des Listes de validation par des Combobox

[michir]

Bonjour
Je souhaiterais remplacer les "listes de validation" des cellules dans chacune de 3 colonnes de mon tableau, par des "combobox" ou équivalent, car l'affichage des listes est minuscule et peu ergonomique
Je remercie au passage Chris401 qui m'a donné une partie de la solution, mais n'ayant que très peu de connaissances en VBA, je suis resté au milieu du gué
Je joins un extrait de mon fichier
Merci à tous
Michel

 

[Patrice33740]

Bonjour,

Pour avoir les listes plus grandes, il y a une autre solution très simple : réduire la taille de police et utiliser un facteur de zoom plus élevé :

 

[michir]

Oui merci Patrice , mais mon tableau complet est formaté avec différentes polices et le résultat n'est pas terrible
mais je retiens ta proposition

 

[Patrice33740]

Les polices sont des polices vectorielles, en choisissant la taille de police adéquate (variable de 0.5 en 0.5) tu auras exactement le même résultat et tu n'auras pas besoin de macro VBA !

 

[michir]

Polices vectorielles ?
Moi je peux modifier la taille de 1 à 409
je les trouve où ?

 

[Patrice33740]

Celles que tu utilises sont des polices vectorielles (Polices TrueType ou OpenType)

 

[BOISGONTIER]

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([C586:C853], Target) Is Nothing And Target.Count = 1 Then
  Me.ComboBox1.List = Range("Liste_postes").Value
  Me.ComboBox1.Height = Target.Height + 3
  Me.ComboBox1.Width = Target.Width
  Me.ComboBox1.Top = Target.Top
  Me.ComboBox1.Left = Target.Left
  Me.ComboBox1 = Target
  Me.ComboBox1.Visible = True
  Else
  Me.ComboBox1.Visible = False
  End If
End Sub

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

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then ActiveCell.Offset(1).Select
End Sub

JB

 

[michir]

Merci Patrice, Merci Jacques
La solution de Jacques me convient parfaitement mais je ne sais plus comment accéder aux propriétés de la combo, celles qui me donnent la possibilité de modifier le format des polices
Basique mais je ne connait pas le VBA
Merci
Michel

 

[BOISGONTIER]

-Onglet Développeur
-Equerre
-Clic-droit sur ComboBox/Propriétés/Font
-Equerre

JB

 

[michir]

...j'ai retrouvé comment modifier la police de la combo en la sélectionnant puis propriétés, Fonte...etc
ma question ;
1 - J'ai plusieurs centaines de combo dans une colonne . Existe t il un moyen de faire la modification globalement
2- je dois avoir une procédure par colonne. Comment faire pour qu'elles ne se télescopent pas. Je ne peux donner un nom différent par procédure ?

 

[michir]

oui merci Jacques, je viens de retrouver
c'est ma dernière question qui me préoccupe

 

[BOISGONTIER]

Il y a un seul combobox pour la colonne C
Dans la PJ, il y a un combobox par colonne
On peut aussi avoir un seul combobox pour les 3 colonnes

JB

 

[michir]

oui mais justement j'ai besoin de combo dans chacune des 3 colonnes...

 

[michir]

Ok merci Jacques pour ta disponibilité et ta patiente
Cela fonctionne parfaitement

 

[michir]

je me pose encore la question de savoir comment faire pour effectuer la manipulation sur plusieurs centaines de lignes sans le faire cellule par cellule
mais c'est peut être impossible