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

pat66 · 17 Novembre 2020

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 · 17 Novembre 2020

Bonjour
si tu mettais ta macro en Feuil1 cela fonctionnerais mieux

VB:

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 · 18 Novembre 2020

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

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

pat66

XLDnaute Impliqué

M12

XLDnaute Accro

pat66

XLDnaute Impliqué

Discussions similaires