Discussion :

[laduche31]

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

[jfontaine]

Bonjour

Le code ci dessous copie la dernière cellule de la colonne A sur la ligne suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim DerniereLigne As Long
 
DerniereLigne = UsedRange.Rows.Count
 
Range("A" & DerniereLigne).Copy Range("A" & DerniereLigne).Offset(1, 0)

[laduche31]

Bonjour jfontaine,

Merci beaucoup de t'intéresser à mon problème.
Ce que je souhaite c'est insérer une ligne à la fin de mon tableau ET copier l'intégralité de la dernière ligne (dumoins les formules présentes dans les cellules de A à KK).
Mon code marche très bien pour ça.

Mon problème est qu'il ne marche pas si mes données sont filtrées.

[jfontaine]

Quelle partie de la macro ne fonctionne pas?

[laduche31]

La macro fonctionne.
C'est juste qu'elle est perturbée lorsque des filtres sont actifs