Bouton reset

Bonjour,

J'ai un petit soucis avec ma macro.

Afin de supprimer les données du tableau dans les feuilles 1 à 3 j'ai fait ceci :

Sub suppr()
    Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
    Range("A4:H15").ClearContents
    Range("A4").Select
    Sheets("Feuil1").Select
End Sub

Bizarrement, il n'y a que la première feuille qui est remise à zéro et seulement les lignes non filtrées.

Ou ai je fait l'erreur pour la sélection de mes 3 feuilles et comment supprimer des données même si elles ne sont pas visible à cause du filtre automatique ?

Le problème ne viendrait il pas du bout de code suivant ?

Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select

Personne pour mon petit soucis ?

Bonjour

A tester

Sub suppr()
Dim Ws As Worksheet

    For Each Ws In Sheets(Array("Feuil1", "Feuil2", "Feuil3"))
      If Ws.FilterMode = True Then
        Ws.ShowAllData
      End If
      Ws.Range("A4:H15").ClearContents
    Next Ws
End Sub

Merci Banzaï, ta solution fonctionne.

Si j'ai bien compris, dans ma commande je n'avais pas activé les feuilles, donc elle ne se vidait pas

Bonjour

Bien sur en passant par l'activation des feuilles cela fonctionnerait aussi

Dans le code je n'active pas les feuilles, mais je les sélectionne (pas par Select) mais avec la variable Ws , ce qui permet d'y travailler sans les activer