olibelle0101
XLDnaute Occasionnel
Bonjour à tous.
Voila mon probleme,
Quand j'ouvre mon claseur pour faire ma mise à jour
J'active un code VBA.
Celui-çi:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Application.EnableEvents = False
If Target.Column = 8 And LCase(Target.Value) = " attelé" Then
Set dest = Workbooks("Calcul TROT").Sheets("Saisie").Range("A65536").End(xlUp).Offset(1, 0)
Range("A" & Target.Row & ":H" & Target.Row).Copy dest
dest.Value = Val(dest.Offset(-1, 0).Value) + 1
End If
Application.EnableEvents = True
End Sub
Il me met l'erreur 9 ...
Par contre si j'ouvre les 2 classeurs, tout marche nickel.
Suis-je obliger d'ouvrir les 2 classeurs pour mettre à jour et que pour mon code fonctionne?????
Merçi pour vos réponses.
Cordialement.
Voila mon probleme,
Quand j'ouvre mon claseur pour faire ma mise à jour
J'active un code VBA.
Celui-çi:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Application.EnableEvents = False
If Target.Column = 8 And LCase(Target.Value) = " attelé" Then
Set dest = Workbooks("Calcul TROT").Sheets("Saisie").Range("A65536").End(xlUp).Offset(1, 0)
Range("A" & Target.Row & ":H" & Target.Row).Copy dest
dest.Value = Val(dest.Offset(-1, 0).Value) + 1
End If
Application.EnableEvents = True
End Sub
Il me met l'erreur 9 ...
Par contre si j'ouvre les 2 classeurs, tout marche nickel.
Suis-je obliger d'ouvrir les 2 classeurs pour mettre à jour et que pour mon code fonctionne?????
Merçi pour vos réponses.
Cordialement.