Partager via

Création macro pour effacer éléments de plusieurs feuilles avec un bouton

Anonyme
2017-04-14T17:49:50+00:00

Bonjour,

Je souhaite créer une macro pour effacer des cellules sur plusieurs feuilles d'un même classeur avec un bouton unique. Comment faire ? Quelle est la formule ? Merci pour la réponse.

Microsoft 365 et Office | Excel | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

33 réponses

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. DanielCo 107.7K Points de réputation
    2017-04-15T15:13:27+00:00

    La macro est la suivante :

    Sub EffacementPlages() <br><br>    Dim Sh As Worksheet <br><br>    For Each Sh In Worksheets <br><br>        If UCase(Left(Sh.Name, 8)) = "SUIVI CA" Then <br><br>            With Sh <br><br>                .[D7:D13].ClearContents <br><br>                .[D13:D21].ClearContents <br><br>                .[D23:D29].ClearContents <br><br>                .[D30:D37].ClearContents <br><br>                .[D39:D45].ClearContents <br><br>                .[D47:D53].ClearContents <br><br>            End With <br><br>        End If <br><br>    Next Sh <br><br>End Sub

    J'ai mis un bouton sur la première qui déclenche l'exécution. Toutes les feuilles commençant par "SUIVI CA" sont traitées. Si tu as un problème, n'hésite pas à le dire.

    Regarde un classeur exemple ici :

    http://www.cjoint.com/c/GDppjzEADZv

    Daniel

    0 commentaires
  2. Anonyme
    2017-04-15T14:40:28+00:00

    Les plages sont;

    D7:D13

    D13:D21

    D23:D29

    D30:D37

    D39:D45

    D47:D53

    Voici les plages concernées sur chacune des feuilles. Est-ce que j'ai répondu à ta question ?

    0 commentaires
  3. DanielCo 107.7K Points de réputation
    2017-04-15T13:05:37+00:00

    Bonjour,

    Les cellules concernées sont des blocs de cellules D7;D13, D15;D21....etc...

    J'ai besoin de  la totalité des plages à effacer. Je suppose que tu veux dire :

    D7:D13, D15:D21 ?

    Daniel

    0 commentaires
  4. Anonyme
    2017-04-15T05:15:34+00:00

    Bonjour Daniel,

    En fait je dois faire cette opération sur plusieurs noms de feuilles différentes.

    Une série de feuilles nommées: Suivi CA, Suivi CA (1), Suivi CA (2).......... jusqu'à Suivi CA (12). Les cellules concernées sont des blocs de cellules D7;D13, D15;D21....etc.... J'espère avoir été explicite. Merci pour votre aide.

    0 commentaires
  5. DanielCo 107.7K Points de réputation
    2017-04-14T19:01:02+00:00

    Bonjour,

    Quelles sont les cellules et les feuilles concernées ?

    Cordialement.

    Daniel

    0 commentaires