Afficher un controle de formulaire selon le resultat d'une cellule

[capc93]

Bonjour

Je suis en train d'essayer d'afficher une listbox (avec active x) selon le résultat d'une formule situé dans une cellule mais je n'y parviens pas. Cette formule dépend d'une valeur sélectionnée dans une autre listbox.

Je vous mets le fichier en pièce jointe.

Et voici le code utilisé au cas ou l'erreur sauterai aux yeux juste en le voyant:

Private Sub BRAZ_Click() 'bouton qui permet de remettre à 0 les différentes questions.
LB1.Value = ""
LB2.Visible = False
Range("C1:C2").Value = ""
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("C1").Value = "Non" Then
LB2.Visible = True
End If

End Sub

Je vous remercie par avance pour toute l'aide que vous pourrez m'apporter.

 

[mutzik]

bonjour

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Range("E1:E50"), Target) Is Nothing Then
        If UCase$(Target) = "OUI" Then Target.Value = "NON": Cancel = True: Exit Sub
        If UCase$(Target) = "" Then Target.Value = "OUI": Cancel = True: Exit Sub
        If UCase$(Target) = "NON" Then Target.ClearContents
    End If
    Cancel = True
End Sub

 

[capc93]

Bonsoir,

J'ai remplacé le worksheet selection change par votre code mais ça ne fonctionne pas.

 

[mutzik]

re,
mon code est à mettre dans le code de la feuille 'Feuil1'
il fonctionne par click droit sur la plage E1 : E50
il mettra à chaque clic 'OUI', 'NON' ou effacera le contenu de la cellule
Cela évite de travailler avec des listbox ...

 

[capc93]

Le problème c'est que je suis obligée de travailler avec des listbox.... (par le chef de "projet")