XL 2013 appliquer une recherche v sur list box

[Jejegna]

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

Gamme de Fab.xlsx

1 file sent via WeTransfer, the simplest way to send your files around the world

we.tl

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

 

[Phil69970]

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]

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 :

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+

 

[Jejegna]

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

Gamme de Fab.xlsx

1 file sent via WeTransfer, the simplest way to send your files around the world

we.tl

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

Bonjour excusez moi

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)

Regarde la pièce jointe 1136243

3) Perso j'ai rien compris de ce que tu veux faire

Mais tu insistes pour avoir des listbox


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

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

 

[Jejegna]

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 :

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+

Bonjour job

Ok Merci beaucoup pour votre aide.