XL 2019 Sub Worksheet_Change(ByVal Target As Range) ne selectionne pas la cellule

[pat66]

Bonsoir Le forum

Quelqu'un peut me dire pourquoi sur la feuil2, cette formule ne fonctionne pas, c'est à dire qu'elle n'affiche ni ne cache l'ellipse 2
J'ai remarqué que même si tout était sur la même feuille cela ne fonctionnait pas non plus

Je dois préciser que le résultat de la cellule W62 de la (feuil1) est un résultat grâce à
Range("W62").Select
ActiveCell.FormulaR1C1 = "B"

Feuil2
Private Sub Worksheet_Change(ByVal Target As Range)
'If UCase(Worksheets("feuil1").Range("W62").Value) = "B" Then
' ActiveSheet.Shapes("Ellipse 2").Visible = True
' Else
' ActiveSheet.Shapes("Ellipse 2").Visible = False
' End If

Merci pour votre aide

Patrick

 

[M12]

Bonjour
si tu mettais ta macro en Feuil1 cela fonctionnerais mieux

Private Sub Worksheet_Change(ByVal Target As Range)
  If UCase(Worksheets("feuil1").Range("W62").Value) = "B" Then
    Worksheets("feuil2").Shapes("Ellipse 2").Visible = True
  Else
    Worksheets("feuil2").Shapes("Ellipse 2").Visible = False
  End If
End Sub

 

[pat66]

Bonjour M12
Bonjour le forum

c'est parfait depuis le temps que je cherchai à comprendre, il suffisait d'inverser

merci beaucoup

belle journée à toi

Patrick