R
REX
Guest
Coucou le forum
Voila j'ai ecrit une formule qui fait que lorsque je change une donnee de E6:E13, ca me rend invisible un Bouton :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('E6:E13')) Is Nothing Then
Dim j As Integer
j = ActiveCell.Row - 5
ActiveSheet.Shapes('CommandButton' & j).BackColor = &HFF
End If
End Sub
Mais voila, ca marche pas, ou est mon erreur ???
Merci
Voila j'ai ecrit une formule qui fait que lorsque je change une donnee de E6:E13, ca me rend invisible un Bouton :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('E6:E13')) Is Nothing Then
Dim j As Integer
j = ActiveCell.Row - 5
ActiveSheet.Shapes('CommandButton' & j).BackColor = &HFF
End If
End Sub
Mais voila, ca marche pas, ou est mon erreur ???
Merci