Macro sur tous les onglets excepté 6
Résolu
MKCS
Messages postés
21
Date d'inscription
Statut
Membre
Dernière intervention
-
MKCS Messages postés 21 Date d'inscription Statut Membre Dernière intervention -
MKCS Messages postés 21 Date d'inscription Statut Membre Dernière intervention -
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
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
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Restaurer les onglets chrome - Guide
- Nero 6 - Télécharger - Gravure
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
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