VBA - macro affichage bouton

Bonjour,

Pouvez vous m'aider sur la rédaction d'un code VBA qui permettrai d'afficher mes boutons en fonction des données qui sont dans une cellule.

Si B2 affiche Employé alors seul le bouton "Rapport individuel" apparaît.

Ainsi de suite...

Merci par avance.

Cordialement.

Bonjour Mishayou, le forum,

A tester....

Private Sub Worksheet_Change(ByVal Target As Range)

 If Target.Address = "$B$2" Then

   Select Case Target.Value
    Case Is = "Chef"
     ActiveSheet.Shapes("Bouton 1").Visible = False
     ActiveSheet.Shapes("Bouton 2").Visible = True
     ActiveSheet.Shapes("Bouton 3").Visible = False
    Case Is = "Employé"
     ActiveSheet.Shapes("Bouton 1").Visible = True
     ActiveSheet.Shapes("Bouton 2").Visible = False
     ActiveSheet.Shapes("Bouton 3").Visible = False
    Case Is = "Direction"
     ActiveSheet.Shapes("Bouton 1").Visible = False
     ActiveSheet.Shapes("Bouton 2").Visible = False
     ActiveSheet.Shapes("Bouton 3").Visible = True
    Case Else
     ActiveSheet.Shapes("Bouton 1").Visible = True
     ActiveSheet.Shapes("Bouton 2").Visible = True
     ActiveSheet.Shapes("Bouton 3").Visible = True
    End Select

 End If
End Sub

Code à placer dans le module de la feuille (alt +F11 pour y accéder).

Cordialement,

J'ai essayé la solution mais cela m'affiche une erreur sur la première ligne.

Re,

Tu as oublié les "$" .....

If Target.Address = "$C$8" Then

sinon tu peux faire

If Target = [C8] Then

où

If Target = Range("C8") Then

Cordialement,