Affiché listbox a chaque cellule d'une colonne

[léo]

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]

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]

 

[Léo]

Merci, c'est nickel

 

[Giùz]

Bonjour Léo et Thierry,
Merci pour la question et la réponse. Je me posait la même... Mais c quoi le PRIVATE? Comment y accéder?
Merci d'avance