Problème de largeur du menu déroulant

[riton00]

Bonsoir à tous

En fait en cellule C2 j'ai un menu déroulant qui me fait apparaitre des noms de personne, mais lorsque je clique sur ce menu l'affichage des noms n'est pas visible complètement vu que la cellule est restreinte en largeur, y a-t-il une possibilité d'augmenter la largeur du menu déroulant sans toucher à la dimension de la cellule de façon à voir distinguement le nom? 😕

Merci

Cordialement

 

[Softmama]

Re : Problème de largeur du menu déroulant

bonjour riton00,

Une proposition en pj. Vois si ceci convient à ton besoin : j'ai collé une combobox invisible sur la feuille. Clique sur c2 pour la faire apparaître. Sa largeur s'adapte automatiquement à celle de la zone 'Noms' :

Private Sub ComboBox1_Change()
    ComboBox1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$2" Then
Sheets("noms").Columns(1).AutoFit
    With ComboBox1
        .Left = Range("C2").Left
        .Top = Range("C3").Top
        .Width = Sheets("noms").Columns(1).Width + 5
        .Visible = True
    End With
    Application.EnableEvents = False
    Target(2, 1).Select
    Application.EnableEvents = True
Else
    ComboBox1.Visible = False
End If
End Sub

 

[hoerwind]

Re : Problème de largeur du menu déroulant

Bonjour, salut Softmama,

Élargir la colonne, créer la liste de validation, enregistrer le fichier, rétrécir la colonne.

Vois ce que cela donne sous la pièce jointe.

 

[riton00]

Re : Problème de largeur du menu déroulant

Bonjour Softmama, hoerwind, & au forum

Désolé pour toi Softmama mais j'adopte la solution que propose hoerwind, elle est beaucoup plus simple et et m'évite un code VBA.
Par contre Softmama ta solution n'est pas peine perdu elle est fonctionnelle, donc je la garde bien au chaud sous le coude au cas où....

Merci à vous deux pour votre aide

Cordialement

 

[riton00]

Re : Problème de largeur du menu déroulant

Bonjour Softmama, hoerwind, & au forum

En fait je reprends le fil puisque la solution que tu ma proposé hoerwind n'est pas fiable et fonctionnelle sur le temps, puisque après plusieurs enregistrement du fichier la largeur du menu déroulant reprend la largeur d'origine (largeur de la cellule) pourquoi je ne le sais pas, dommage.....
Par contre comme je te disais Softmama ta solution je la gardais bien au chaud sous le coude donc j'aurais une question à te poser si par exemple j'ai plusieurs combobox sur la même ligne une en C2, une en E2, une en G2, une en I2, une en K2, comment écrirais-tu le code VBA?
Ou alors! je suis ouvert à toute autre proposition si quelqu'un en aurait une.

Merci

Cordialement

 

[Softmama]

Re : Problème de largeur du menu déroulant

Bonjour riton00,

Comme ceci je pense :

Private Sub ComboBox1_Change()
    ComboBox1.Visible = False
    Selection = ComboBox1.Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row = 2 And Target.Column / 2 <> Int(Target.Column / 2) Then
Sheets("noms").Columns(1).AutoFit
    With ComboBox1
        .Left = Target.Left
        .Top = Target(2, 1).Top - .Height
        .Width = Sheets("noms").Columns(1).Width + 5
        .Visible = True
    End With
Else
    ComboBox1.Visible = False
End If
End Sub

 

[riton00]

Re : Problème de largeur du menu déroulant

Bonsoir à Softmama & au forum

Merci pour ce nouveau code, je vais essayer de le décortiquer, de comprendre et de l'appliquer sur mon fichier je te tiendrai au courant.

Merci Softmama

Cordialement