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

capc93 · 24 Juillet 2017

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:

VB:

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 · 24 Juillet 2017

bonjour

VB:

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 · 24 Juillet 2017

Bonsoir,

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

mutzik · 25 Juillet 2017

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 · 25 Juillet 2017

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

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

capc93

XLDnaute Junior

Pièces jointes

mutzik

XLDnaute Barbatruc

capc93

XLDnaute Junior

mutzik

XLDnaute Barbatruc

capc93

XLDnaute Junior

Discussions similaires