Bonjour à tous,
Je souhaiterais être aidé à propos de la dénomination d'une VBA Worksheet. En effet, j’ai ajouté une nouvelle VBA Worksheet sous une autre mais elle ne fonctionne pas. Lorsque je clique sur la cellule concernée (D22) j’obtiens le message suivant :
« Erreur de compilation Nom ambigu détecté : Worksheet_Change »
La VBA en question fonctionne très bien sur une autre feuille du même classeur. (j'ai changé uniquement les cellules)
Merci du coup de main.
Voici la copie de la fenêtre VBA de mon fichier :
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$146" Then
Select Case UCase(Range("G146"))
Case "OUI"
ActiveSheet.Shapes("Flèche droite 8").Visible = True
ActiveSheet.Shapes("Flèche droite 22").Visible = True
ActiveSheet.Shapes("Flèche droite 26").Visible = False
ActiveSheet.Shapes("Flèche droite 25").Visible = False
Case "NON"
ActiveSheet.Shapes("Flèche droite 8").Visible = False
ActiveSheet.Shapes("Flèche droite 22").Visible = False
ActiveSheet.Shapes("Flèche droite 26").Visible = True
ActiveSheet.Shapes("Flèche droite 25").Visible = True
End Select
End If
End Sub
(c’est celle-ci qui ne fonctionne pas)
Private Sub Worksheet_Change(ByVal R As Range)
If R.Address <> "$D$22" Then Exit Sub
Me.Unprotect "XXX"
Range("23:51,62:67,83:86").EntireRow.Hidden = IIf(R = "Non", 1, 0)
Me.Protect "XXX"
End Sub