Bug sur code VBA
J
Bonjour
J'ai créé ce code et j'ai un bug sur la 2éme ligne
pouvez vous svp me dire ou j'ai fait une erreur
Je vous remercie
Private Sub Worksheet_Change(ByVal Target As Range)
If Worksheet("Feuil1").Range("A1") = ("toto") Then 'c'est sur cette ligne qu'il y a un bug
Range("B1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End Sub
f
Salut,
If Sheets("Feuil1").Range("A1") = ("toto") Then 'comme ca ca marche ...
@+
J
Bonjour
If Worksheet il fallait écrire If WorkSheets
Là cela fonctionne
Cordialement