Bonjour à tous
J'ai affecté une macro à un bouton qui permet d'ajouter des lignes en bas du tableau mais j'ai remarqué que ça n'ajoute pas les lignes au bon endroit (en bas du tableau) s'il y a un filtre appliqué et du coup avant d'ajouter les lignes je désactive mon filtre, voici mon code:
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
17
18
19
20
21
22
23
24
25
26
27
Sub Bouton2_Clic()
'macro qui permet de rajouter des lignes 
On Error Resume Next
Application.ScreenUpdating = False
Dim sh As Worksheet
Dim i As Integer 
Dim nombre As Integer
Set sh = Worksheets("Feuil1")
nombre = InputBox("Veuillez saisir le nombre de ligne à ajouter entre 1 et 10")
If nombre > 0 And nombre < 11 Then
i = 0
While i < nombre
 
 Worksheets("Modèle").Rows("2:5").Copy                                                        'Copier les lignes à ajouter à partir de la feuille modèle
    With sh
       .AutoFilterMode = False                                                               'Désactiver le filtre pour permettre l'ajout des ligne à la fin du tableau
        .Rows(.Cells(.Rows.Count, 1).End(xlUp).Row + 1).Insert shift:=xlDown                'Isérer des lignes à partir de la cellule active
 
    End With
    i = i + 1
    Wend
    sh.Range("$A$2:$EV$2").AutoFilter                      'Réactiver le filtre
    Else: MsgBox ("veuillez entrer un nombre entre 1 et 10")
    End If
Application.ScreenUpdating = True
Set sh = Nothing
End Sub
vu que je suis encore débutant j'aimerai bien avoir une macro qui sauvegarde et restaure le filtre avec les critères choisi (déjà sélectionne).
Merci d'avance pour votre aide