Discussion :

[mxitzny]

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

[78chris]

Bonjour

Utilise un tableau (au sens table de données : mettre sous forme de tableau)

On peut alors ajouter des lignes en bas du tableau que celui-ci soit on non filtré

Exemple

Code :

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

1
2
3
With ActiveSheet.ListObjects("Nom_tableau")
    .ListRows.Add
End With

[mxitzny]

En faite je copie les lignes à ajouter à partir d'un modèle car mon tableau une structure bien particulière d'autant plus il y a des cellules qui contiennent des formules.

[78chris]

Bonjour

Justement dans les tableaux structurés les lignes ajoutées héritent automatiquement des formats et formules des lignes précédentes (si homogènes).

Récupérer les filtres n'est pas évident notamment sur les dates (filtres chronologiques) https://www.developpez.net/forums/d1...tomatique-vba/

Pour les opérateurs standard https://www.developpez.net/forums/d1...tomatique-vba/