criscris11
XLDnaute Accro
Bonjour à tous,
Ayant trouver un code qui me servirait dans un de mes fichiers de travail sur le site de Jacques BOIGONTIER, je n'arrive pas à l'adapter.
Voici le code :
Ce que je n'arrive pas à faire c'est de l'adapter à la disposition de mon fichier donc pourriez vous me dire, s'il vous plaît, comment faire pour déclencher ce code dans la colonne A au lieu de E (en fait ma colonne Etat serait en colonne A dans mon fichier) le reste sans changement sauf que mes lignes d'entêtes sont sur la ligne 2 de chaque onglets.
Avant de poster, j'ai essayé de modifier comme suit :
mais l'évènement ne se déclenche plus. Pourquoi ?
Merci pour vos réponses et bonne journée à toutes et à tous.
Ayant trouver un code qui me servirait dans un de mes fichiers de travail sur le site de Jacques BOIGONTIER, je n'arrive pas à l'adapter.
Voici le code :
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 5 And Target.Count = 1 Then
If Target.Value <> "" Then
état = Target
If état <> ActiveSheet.Name Then
Application.EnableEvents = False
Target.Offset(0, -4).Resize(1, 5).Copy Sheets(état).[A65000].End(xlUp).Offset(1, 0)
Target.Offset(0, -4).Resize(1, 5).Delete shift:=xlUp
Application.EnableEvents = True
End If
End If
End If
End Sub
Ce que je n'arrive pas à faire c'est de l'adapter à la disposition de mon fichier donc pourriez vous me dire, s'il vous plaît, comment faire pour déclencher ce code dans la colonne A au lieu de E (en fait ma colonne Etat serait en colonne A dans mon fichier) le reste sans changement sauf que mes lignes d'entêtes sont sur la ligne 2 de chaque onglets.
Avant de poster, j'ai essayé de modifier comme suit :
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
If Target.Value <> "" Then
état = Target
If état <> ActiveSheet.Name Then
Application.EnableEvents = False
Target.Offset(0, 5).Resize(0, 5).Copy Sheets(état).[A65000].End(xlUp).Offset(2, 0)
Target.Offset(0, 5).Resize(0, 5).Delete shift:=xlUp
Application.EnableEvents = True
End If
End If
End If
End Sub
mais l'évènement ne se déclenche plus. Pourquoi ?
Merci pour vos réponses et bonne journée à toutes et à tous.