Apparition disparition bouton activeX

Bonjour à tous,

je voudrais faire apparaitre un bouton sous condition mais mon code ne fonctionne pas et je n'arrive pas à trouver pourquoi.

Je vous explique le fichier

J'ai quatre question avec réponse possible oui et non.

Si une des 4 questions est répondu avec un OUI sa valide la demande est c'est à ce moment là que je voudrais faire apparaitre le bouton dans lequel je viendrais attribuer une macro pour lancer la procédure.

Et tant que les quatre questions sont à non, que le bouton disparaisse.

Merci pour votre aide

Bonjour,

Un essai ...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Byte
Dim Y As Byte

If Not Intersect(Target, Range("D2:D5")) Is Nothing Then
Y = 0
   For X = 2 To 5
      If Cells(X, "D") = "Oui" Then Y = 1
   Next X

   If Y > 0 Then
      Me.CommandButton1.Visible = True
   Else
      Me.CommandButton1.Visible = False
   End If
End If

End Sub

ric

Bonjour à tous,

une autre solution:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("D2:D5"), Target) Is Nothing Then
    CommandButton1.Visible = Application.WorksheetFunction.CountIf(Range("D2:D5"), "Oui")
  End If
End Sub

A+

Bonjour ric

je pense qu'il manque la partie du code ou si question 2,3,4 pas encore répondue alors bouton n'apparait pas

encore

Bonjour à tous,

Tu as bien raison Xmenpl, c'est 2 to 5 et non 1 to 4 ... excusez l'erreur.

J'ai appliqué la correction.

ric

Merci à vous pour votre aide.

Ca marche.

Il n'y a pas de quoi !