Discussion :

[pat91]

Bonjour,
Dans une feuille Excel, j'insère, via le code VB6 ci-dessous, une nouvelle ligne sous une ligne de titres qui contient des filtres automatiques. lorsqu'un filtre(s) est actif(s) ma macro ne fonctionne plus (prévisible !!) .
Comment dans mon code, à insérer au début, forcer une dévalidation de l'ensemble de ces filtres.

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 ajouter() '
 
    Rows("2").Select
    Selection.Copy
    Selection.Insert Shift:=xlDown
     Range("b2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("c2").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D2").Select
       ActiveCell.FormulaR1C1 = ""
    Range("E2").Select
        ActiveCell.FormulaR1C1 = ""
    Range("F2").Select
        ActiveCell.FormulaR1C1 = ""
    Range("G2").Select
        ActiveCell.FormulaR1C1 = ""
    Range("H2").Select
        ActiveCell.FormulaR1C1 = ""
    Range("I2").Select
        ActiveCell.FormulaR1C1 = ""
    Range("J2").Select
        ActiveCell.FormulaR1C1 = ""
    Range("K2").Select
        ActiveCell.FormulaR1C1 = ""
    Range("b2").Select

Par ailleurs, comme vous pouvez voir dans ce code, je vide les cellules de B2 à K2. j'ai essayé Range "B2:K2" mais cela ne fonctionne pas !
si vous avez un code plus propre pour le même résultat je suis preneur

Merci pour vos avis éclairés

[alsimbad]

le plus simple est d'enlever ton filtre et de le remettre
la syntaxe est la meme, tu la met deux fois

Code :

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

1
2
 
Selection.AutoFilter

pour effacer ton range, tu devrais regarder l'aide, c'est juste une question de syntaxe

Code :

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

1
2
 
range("b2:k2")

[AlainTech]

Pour ton problème de filtre je n'ai pas regardé.
Par contre, pour le "nettoyage" de tes cellules, ceci devrait donner le résultat escompté:

Code :

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

Range("B2:K2").ClearContents

Une seule ligne, propre et net.

[pat91]

Merci Alsimbad et alainTech,

Vous avez répondu pleinement à ma demande

je vous en remercie encore

Ci-dessous mon code modifié suivant vos avis, et qui fonctionnement parfaitement

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
Sub ajouter()
 
'fermeture des filtres automatiques
Selection.AutoFilter
 
    'copie la ligne avec un décallage bas
    Rows("2").Select
    Selection.Copy
    Selection.Insert Shift:=xlDown
 
    'clear sur les cellules B2 à K2
    Range("B2:K2").ClearContents
 
    'repositionnement en B2
    Range("b2").Select
 
'réactivation des filtres automatiques
 Selection.AutoFilter
End Sub

vieux motard que jamais !!