Affiché listbox a chaque cellule d'une colonne

L

léo

Guest
Bonjour,

J'ai un tableau ou les valeurs d'une colonne peuvent prendre 4 valeurs (mauvais, bon, très bon, genial). Je souhaiterais que lorsqu'un clique est effectué sur une cellule de cette colonne, s'affiche une petite listbox affichant les 4 valeurs. je souhaiterais que lorsque le choix soit réalisé, la cellule redevienne une cellule banale.

Auriez-vous des conseil à me fournir ? Une idée ? ou un exemple si il existe une réalisation similaire ?

J'espère avoir été assez clair.
Merci pour votre aide
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonjour Léo, le Forum


Une approche toute simple par Liste de Validation sans sortir l'artillerie lourde avec des ActiveX ListBox...

Code à mettre dans le Private de la Feuille en Question

Option Explicit

Const TheCol As Byte = 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim TheListe As String
If Application.Intersect(Target, Columns(TheCol)) Is Nothing Then Exit Sub

    TheListe = 'mauvais, bon, très bon, genial'

   
With Target
       
With .Validation
            .Delete
            .Add Type:=xlValidateList, _
            Operator:=xlBetween, _
            Formula1:=TheListe
       
End With
   
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Columns(TheCol)) Is Nothing Then Exit Sub

    Target.Validation.Delete

End Sub


Bon Aprèm
[ol]@+Thierry[/ol]
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 009
Membres
101 865
dernier inscrit
MLL