Macro sur tous les onglets excepté 6

Résolu/Fermé

MKCS Messages postés 21 Date d'inscription mercredi 8 juin 2016 Statut Membre Dernière intervention 9 mai 2018 - 7 mai 2018 à 15:22
MKCS Messages postés 21 Date d'inscription mercredi 8 juin 2016 Statut Membre Dernière intervention 9 mai 2018 - 9 mai 2018 à 17:25

Bonjour,

Je souhaite appliquer une Macro qui supprimerait le contenu des cellules sur une plage donnée (ou plusieurs dans ce cas) de tous les onglets sauf 6.

Voici mon code:

Sub RAZ()

Application.ScreenUpdating = False

Dim sht As Worksheet

For Each sht In Worksheets
With sht
If sht.Name <> "A-ADP" And sht.Name <> "A-BASE" And sht.Name <> "A-RECAP" And sht.Name <> "A-MEMO" And sht.Name <> "ZZ-Sortants" And sht.Name <> "ZZ-Vierge" Then

Range("A22:B22").Select
Selection.ClearContents
Range("D22:H22").Select
Selection.ClearContents

Range("A24:B24").Select
Selection.ClearContents
Range("D24:H24").Select
Selection.ClearContents

Range("A26:B26").Select
Selection.ClearContents
Range("D26:H26").Select
Selection.ClearContents

Range("A28:B28").Select
Selection.ClearContents
Range("D28:H28").Select
Selection.ClearContents

Range("A30:B30").Select
Selection.ClearContents
Range("D30:H30").Select
Selection.ClearContents

Range("A32:B32").Select
Selection.ClearContents
Range("D32:H32").Select
Selection.ClearContents

Range("A34:B34").Select
Selection.ClearContents
Range("D34:H34").Select
Selection.ClearContents

Range("A36:B36").Select
Selection.ClearContents
Range("D36:H36").Select
Selection.ClearContents

Range("A38:B38").Select
Selection.ClearContents
Range("D38:H38").Select
Selection.ClearContents

Range("A40:B40").Select
Selection.ClearContents
Range("D40:H40").Select
Selection.ClearContents

Range("A42:B42").Select
Selection.ClearContents
Range("D42:H42").Select
Selection.ClearContents

Range("A44:B44").Select
Selection.ClearContents
Range("D44:H44").Select
Selection.ClearContents

Range("A46:B46").Select
Selection.ClearContents
Range("D46:H46").Select
Selection.ClearContents

Range("A48:B48").Select
Selection.ClearContents
Range("D48:H48").Select
Selection.ClearContents

Range("A50:B50").Select
Selection.ClearContents
Range("D50:H50").Select
Selection.ClearContents

Range("A22").Select

End If
End With
Next sht

Application.ScreenUpdating = True

End Sub

Cependant, cela ne fonctionne pas puisque ce code supprime le contenu des cellules contenues dans la plage mais uniquement sur l'onglet où se trouve le bouton et qui se nomme "A-MEMO", qui correspond à un des onglets pour lequel je ne souhaite pas que la macro agisse...

Pourriez-vous m'aider svp?

Merci par avance

A voir également:

Macro sur tous les onglets excepté 6
Restaurer onglets chrome - Guide
Geekom as 6 - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Gta 6 prix - Guide

2 réponses

Réponse 1 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
7 mai 2018 à 17:59

Bonjour

Cette petite maquette pourrait te montrer le principe

https://mon-partage.fr/f/FsgbytDd/

MKCS Messages postés 21 Date d'inscription mercredi 8 juin 2016 Statut Membre Dernière intervention 9 mai 2018
9 mai 2018 à 10:13

Bonjour Michel,

Merci pour votre maquette, elle fonctionne bien et c'est ce dont j'avais besoin.
Par contre, je n'arrive pas à l'adapter pour des cellules fusionnées... Pourriez-vous me dire comment vous feriez si D22 et E22 étaient fusionnées sur votre maquette svp?

Merci par avance de votre aide.

Sarah

Réponse 2 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
9 mai 2018 à 11:21

Bonjour

Les cellules fusionnées sont à éviter au maximum surtout avec les macros

par ex si il y a une donnée à installer sur D2:E2
sélectionne D2:E2
decoche
"fusionner les cellule
et utilise
"centrer sur plusieurs colonnes"

la référence est alors "D2"

MKCS Messages postés 21 Date d'inscription mercredi 8 juin 2016 Statut Membre Dernière intervention 9 mai 2018
9 mai 2018 à 17:25

Re-bonjour,

Merci pour vos conseils. J'ai préféré supprimer toutes les fusions, effectivement c'est beaucoup mieux.

Encore merci, grâce à vous, j'ai fini mon fichier.

Bonne soirée

Discussions similaires

Belote à 6 joueurs

Formule magique excel??????

Freebox bloquée à l'étape 6

Discussions similaires

Newsletters