Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 appliquer une recherche v sur list box

Jejegna

XLDnaute Nouveau
bonjour

Je suis en train de creer un fichier pour réaliser des prix. je me suis aperçu que les listes déroulante sont écrite en petite. suite à mes recherches j'ai vu que l'on ne peut pas modifier cette taille. certaines solution propose des zoom mais je ne les trouve pas pratique. je souhaitai faire des listbox mais du coup la conception ne va pas car mon fichier utilise des formule par recherchev et s'en suit des formule de calcul. comment je peux faire pour associè ma recherche v avec une list box ou si vous avez une autre idée.

Fichier en PJ



Les donnés de base sont inventé pour tester le fichier
 

Phil69970

XLDnaute Barbatruc
Bonjour @Jejegna

Bienvenu sur XLD

Quelques remarques en vrac :

1) Pourquoi mettre un fichier de 166 Ko à télécharger sur un autre site alors qu'il est bien plus facile de le mettre en direct sur ici
Voir § 1.12 de la charte que tu as bien sur lu

2) Tu devrais t'étonner qu'avec 73 vus tu as 0 réponses et te poser des questions (Voir remarque 1)



3) Perso j'ai rien compris de ce que tu veux faire
je souhaitai faire des listbox mais du coup la conception ne va pas
Mais tu insistes pour avoir des listbox
comment je peux faire pour associè ma recherche v avec une list box

3) La vrai question est à quoi cela va te servir et à quoi veux tu arriver ?

Normalement à la création on réfléchit au cahier des charges à ce que l'on veut faire, pourquoi, but et moyen, ordre de grandeur de la/les BDD, qui va s'en servir etc....
Et après on construit le programme avec le dit cahier des charges.....

Dis autrement tu fais passer le "décor" de ton fichier (La mise en page ) avant le reste et tu vas forcément galérer à un moment ou à un autre.

Bonne lecture

@Phil69970
 

job75

XLDnaute Barbatruc
Bonjour Jejegna, Phil69970,

Bon tout ce que veut Jejegna c'est une liste de choix plus lisible.

Pour cela il a pensé à une ListBox, en fait c'est une ComboBox qu'il faut.

Voyez le fichier joint et cette macro dans le code de la 1ère feuille :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim f$, r As Range
With ComboBox1
    .Visible = False
    On Error Resume Next
    f = ActiveCell.Validation.Formula1
    On Error GoTo 0
    If f = "" Then Exit Sub 's'il n'y a pas de liste de validation
    Set r = Evaluate(f)
    Set r = r.Resize(Application.CountA(r), 2) 'cadre la liste, au moins 2 éléments
    .List = r.Value 'liste de la ComboBox
    .Left = ActiveCell.Left
    .Top = ActiveCell.Top
    .Width = ActiveCell.Width + 12
    .Height = ActiveCell.Height
    .BackColor = ActiveCell.Interior.Color
    .Font.Size = ActiveCell.Font.Size
    .TextAlign = fmTextAlignCenter
    .LinkedCell = ActiveCell.Address
    ActiveCell.Validation.InCellDropdown = False 'masque la flèche de validation
    .Visible = True
End With
End Sub
Il suffit de cliquer sur une cellule contenant une liste de validation, c'est à dire en colonne E.

A+
 

Pièces jointes

  • Gamme de Fab(1).xlsm
    180.5 KB · Affichages: 13

Jejegna

XLDnaute Nouveau
Bonjour excusez moi
Bonjour excusez moi, je n'arrivais pas à ajouter le fichier en PJ.
 

Jejegna

XLDnaute Nouveau
Bonjour job

Ok Merci beaucoup pour votre aide.
 

Discussions similaires

Réponses
5
Affichages
695
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…