criscris11
XLDnaute Accro
Bonsoir à tous,
Voici un code qui me pose un petit problème :
Cet événement se déclenche à chaque fois que j'insère ou supprime une lignes dans 3 onglets de mon fichier dont voici les codes :
Hors les deux cellules nommées (Fin1 et Fin2) ne sont pas renommées comme le prévoit la macro pourtant elles figurent bien et en bonne place dans Insertion, Nom, Définir.
Dernière chose, ces codes sont issus d'un fichier qui avait réalisé sur le forum et ce fichier fonctionne très bien : je poste les deux fichiers afin de voir une différence éventuelle.
Si quelqu'un a une autre proposition, pas de problème : le but est que si l'une des 2 macros Sub insert_lig() ou Sub suppr_lig() est lancée, on insère ou supprime une ligne de façon à ce que toutes lignes à partir de 180 ne bougent jamais (filtre élaboré par macro).
Voici un code qui me pose un petit problème :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > Range("Debut").Row And Target.Row < Range("Fin2").Row Then
If Range("Fin2").Row > 170 Then
ActiveSheet.Range("A175").EntireRow.Delete
End If
ActiveWorkbook.Names.Add Name:="Fin2", RefersToR1C1:="=Liste batterie!R170C1"
End If
If Target.Row > Range("Debut").Row And Target.Row < Range("Fin1").Row Then
If Range("Fin1").Row < 165 Then
ActiveSheet.Range("A175").EntireRow.Insert Shift:=xlDown
End If
ActiveWorkbook.Names.Add Name:="Fin1", RefersToR1C1:="=Liste batterie!R165C1"
End If
End Sub
Code:
Sub insert_lig()
Application.ScreenUpdating = False
Sheets(Array("Liste batterie", "Absences", "Feuille des présents")).Select
Sheets("Liste batterie").Activate
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Select
Selection.Insert Shift:=xlDown
Application.ScreenUpdating = True
End Sub
Sub suppr_lig()
Application.ScreenUpdating = False
Sheets(Array("Liste batterie", "Absences", "Feuille des présents")).Select
Sheets("Liste batterie").Activate
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Select
Selection.Delete
Sheets("Liste batterie").Select
Application.ScreenUpdating = True
End Sub
Dernière chose, ces codes sont issus d'un fichier qui avait réalisé sur le forum et ce fichier fonctionne très bien : je poste les deux fichiers afin de voir une différence éventuelle.
Si quelqu'un a une autre proposition, pas de problème : le but est que si l'une des 2 macros Sub insert_lig() ou Sub suppr_lig() est lancée, on insère ou supprime une ligne de façon à ce que toutes lignes à partir de 180 ne bougent jamais (filtre élaboré par macro).
Pièces jointes
Dernière édition: