Bonjour, j'ai un code qui me permet d'insérer une ligne à la fin de mon tableau et qui recopie les formules de la ligne du desssus MAIS j'ai des filtres dans mon tableaux et lorsqu'un filtre est actif ma macro n'est pas capable de s'exécuter.

Quelqu'un a-t-il une solution pour passer outre les filtres ?

Ci-dessous mon code. Bien cordialement,

Adrien.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub Bouton9_Clic()
  Range("A2").Select 'la première cellule de la ligne de titre
  Selection.End(xlDown).Select 'la dernière cellule de la colonne A avant la cellule vide
  Selection.EntireRow.Copy
  Selection.Insert shiftXldown
  Selection.Offset(1).Select  'positionnement sur la nouvelle ligne
  For Each c In Intersect(ActiveSheet.UsedRange, Selection.EntireRow)
    If Left(c.Formula, 1) <> "=" Then c.Value = ""
  Next
  Selection = Selection.Offset(-1) + 1  ' incrémentation de la valeur en colonne A
 
Application.CutCopyMode = False
Selection.Offset(0, 0).Select
 
End Sub