Probleme insertion ligne Quand Filtre actif

laduche81

XLDnaute Junior
Bonjour,

J'ai une macro qui insère une ligne après la dernière non vide de la colonne A, tout en recopiant les formules de cette ligne.

Cependant cette macro ne fonctionne que si les filtres sont inactifs. Comment pallier à cela?

Voici mon code :

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

Merci par avance!!

Cordialement,

Adrien.
 

Discussions similaires

  • Question
Microsoft 365 Code VBA
Réponses
2
Affichages
292