Microsoft 365 Liste déroulante

excfl

XLDnaute Barbatruc

• 18 Septembre 2020

• #2

Bonsoir,

Bienvenue sur ce forum.

Bonsoir sylvanu

 

Pièces jointes

• Liste déroulante.xlsm

  16.6 KB · Affichages: 25

Dernière édition: 18 Septembre 2020

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 18 Septembre 2020

• #3

Bonsoir Nini, Excfl,
En PJ avec l’abréviation dans la cellule de la liste déroulante, avec :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$2" Then
    Application.EnableEvents = False
    Target = Left(Target, 1)
    Application.EnableEvents = True
  End If
End Sub

 

Pièces jointes

• Nini.xlsm

  13 KB · Affichages: 8

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Septembre 2020

• #4

Bonjour nini49, excfl, sylvanu,

Deux solutions :

- fichier .xlsx avec une zone de liste déroulante (contrôle de formulaire)

- fichier .xlsm avec une ComboBox (contrôle ActiveX).

A+

 

Pièces jointes

• Zone combinée(1).xlsx

  12.1 KB · Affichages: 5
• ComboBox(1).xlsm

  14.2 KB · Affichages: 5

Vote positif 0 Vote négatif

N

nini49

XLDnaute Nouveau

• 19 Septembre 2020

• #5

Merci beaucoup tout le monde pour vos réponses, ça va m'être très utile 🙂🙂

 

Vote positif 0 Vote négatif