XL 2016 Effacement plage identique dans onglets différents

michelf

XLDnaute Junior
Bonjour à tous,
Je voudrais effacer une plage de même dimension dans des onglets différents. Je me suis fait une petite macro pour effacer une plage :
Sub Effacer()
' Effacer Macro
' Touche de raccourci du clavier: Ctrl+e
Range("D7:L41").Select
Selection.ClearContents
End Sub

Cette plage doit être effacée dans une série d'onglets (45) commençant tous par Sem (Sem 1, Sem 2,... Sem 45) Il y a d'autres onglets qui eux ne doivent pas être affectés par la macro. Je n'arrive pas à créer une macro disant "pour chaque onglet commençant par Sem effacer la plage D7:L41 et passer à la suivante..
Je vous mets en attaché un "extrait" du fichier pour plus de compréhension.
Je vous remercie d'avance
 

Pièces jointes

  • Sem 2012019-2020-MF-2.xlsm
    127.3 KB · Affichages: 5

Jacky67

XLDnaute Barbatruc
Bonjour à tous,
Je voudrais effacer une plage de même dimension dans des onglets différents. Je me suis fait une petite macro pour effacer une plage :
Sub Effacer()
' Effacer Macro
' Touche de raccourci du clavier: Ctrl+e
Range("D7:L41").Select
Selection.ClearContents
End Sub

Cette plage doit être effacée dans une série d'onglets (45) commençant tous par Sem (Sem 1, Sem 2,... Sem 45) Il y a d'autres onglets qui eux ne doivent pas être affectés par la macro. Je n'arrive pas à créer une macro disant "pour chaque onglet commençant par Sem effacer la plage D7:L41 et passer à la suivante..
Je vous mets en attaché un "extrait" du fichier pour plus de compréhension.
Je vous remercie d'avance
Bonjour,
Cela pourrait ressembler à ceci
VB:
Sub Effacer()
    Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        If UCase(Left(Sh.Name, 3)) = "SEM" Then Sh.[D7:L41].ClearContents
    Next
End Sub
 

michelf

XLDnaute Junior
Juste encore une chose si vous avez le temps : j'ai essayer de revenir à la cellule D7 de la SEM 1 en essayant ceci :
Sub Effacer()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
If UCase(Left(Sh.Name, 3)) = "SEM" Then Sh.[D7:L41].ClearContents
Next
Range.Sheet.[SEM 1] Range("D7").Select
End Sub

Mais évidemment je n'y suis pas arrivé ! Vous pourriez encore 'aider?
Merci
 

Discussions similaires

Statistiques des forums

Discussions
311 722
Messages
2 081 930
Membres
101 843
dernier inscrit
Thaly