dévalidation des filtres automatiques

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:

---

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

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

Code:

---

1 2	Selection.AutoFilter

---

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

Code:

---

1 2	range("b2:k2")

---

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:

---

Range("B2:K2").ClearContents

---

Une seule ligne, propre et net.

Merci Alsimbad et alainTech,

Vous avez répondu pleinement à ma demande :king:

je vous en remercie encore ;)

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

Code:

---

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 !!8-)