erreur de compilation

[titooooo]

bonjour

j'ai un code quej'ai voulu l'utiliser pour deux fonction


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AN$2" Then
Sheets(CStr(Target.Value)).Cells.Copy
Sheets("calcul").Cells.PasteSpecial Paste:=xlPasteValues
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AL$2" Then
Sheets(CStr(Target.Value)).Cells.Copy
Sheets("calendrier").Cells.PasteSpecial Paste:=xlPasteValues
End If
End Sub




le code d'origine estais

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AN$2" Then
Sheets(CStr(Target.Value)).Cells.Copy
Sheets("calcul").Cells.PasteSpecial Paste:=xlPasteValues
End If
End Sub




merci d'avance

 

[Modeste geedee]

Re : erreur de compilation

Bonsour®

bonjour

j'ai un code quej'ai voulu l'utiliser pour deux fonctions

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AN$2" Then
   Sheets(CStr(Target.Value)).Cells.Copy
   Sheets("calcul").Cells.PasteSpecial Paste:=xlPasteValues
End If
If Target.Address = "$AL$2" Then
   Sheets(CStr(Target.Value)).Cells.Copy
   Sheets("calendrier").Cells.PasteSpecial Paste:=xlPasteValues
End If
End Sub

 

[titooooo]

Re : erreur de compilation

merci bien c trés bien