Siimplification macro

Le
Philippe
Bonjour a tous
Peut on faire plus simple dans cette macro ?

Sheets("ADH001").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect
Sheets("ADH002").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect
Sheets("ADH003").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect

.. et cela jusqu'à la feuille ("ADH0125")

merci de votre aide
Lephil
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Garette
Le #4251821
Bonjour,

Le code suivant devrait faire les opérations sur toutes les feuilles du
classeur.

Sub test()
Set MesSheets = ActiveWorkbook.Sheets
For Each X In MesSheets
X.Unprotect
X.Range("A4:G38").ClearContents
X.Range("D2").Select
X.Protect
Next
End Sub

Le code suivant permet d'exclure du traitement une feuille nommée "Feuille
A"
Sub test()
Set MesSheets = ActiveWorkbook.Sheets
If MesSheets.Name <> "Feuille A" Then
For Each X In MesSheets
X.Unprotect
X.Range("A4:G38").ClearContents
X.Range("D2").Select
X.Protect
Next
End If
End Sub


"Philippe" 4603d449$0$16852$
Bonjour a tous
Peut on faire plus simple dans cette macro ?

Sheets("ADH001").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect
Sheets("ADH002").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect
Sheets("ADH003").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect

........ et cela jusqu'à la feuille ("ADH0125")

merci de votre aide
Lephil



JLuc
Le #4251811
*Bonjour Philippe*,
For x = 1 To 125
With Sheets("ADH0" & Format(x, "000"))
.Unprotect
.Range("A4:G38").ClearContents
.Protect
End With
Next


Bonjour a tous
Peut on faire plus simple dans cette macro ?

Sheets("ADH001").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect
Sheets("ADH002").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect
Sheets("ADH003").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect

........ et cela jusqu'à la feuille ("ADH0125")

merci de votre aide
Lephil


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

h2so4
Le #4251791
bonjour,

en imaginant que que toutes les feuilles aient un nom commencant par "ADH"

Sub cleanup()
For Each c In Worksheets
If Left(c.Name, 3) = "ADH" Then
c.Unprotect
c.Range("A4:G38").ClearContents
c.Select
Selection.Range("A2").Select
c.Protect
End If
Next
End Sub


--

h2so4
play triogical at http://www.triogical.com
"Philippe" news:4603d449$0$16852$
Bonjour a tous
Peut on faire plus simple dans cette macro ?

Sheets("ADH001").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect
Sheets("ADH002").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect
Sheets("ADH003").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect

........ et cela jusqu'à la feuille ("ADH0125")

merci de votre aide
Lephil



h2so4
Le #4251781
"h2so4" news:A_QMh.82065$
bonjour,

en imaginant que que toutes les feuilles à nettoyer aient un nom
commencant par "ADH"

Sub cleanup()
For Each c In Worksheets
If Left(c.Name, 3) = "ADH" Then
c.Unprotect
c.Range("A4:G38").ClearContents
c.Select
Selection.Range("D2").Select
c.Protect
End If
Next
End Sub


--

h2so4
play triogical at http://www.triogical.com
"Philippe" news:4603d449$0$16852$
Bonjour a tous
Peut on faire plus simple dans cette macro ?

Sheets("ADH001").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect
Sheets("ADH002").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect
Sheets("ADH003").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect

........ et cela jusqu'à la feuille ("ADH0125")

merci de votre aide
Lephil







Philippe
Le #4251651
Merci à vous deux
Cela fonctionne à merveille
Bon we
"h2so4" l1RMh.82071$


"h2so4" news:A_QMh.82065$
bonjour,

en imaginant que que toutes les feuilles à nettoyer aient un nom
commencant par "ADH"

Sub cleanup()
For Each c In Worksheets
If Left(c.Name, 3) = "ADH" Then
c.Unprotect
c.Range("A4:G38").ClearContents
c.Select
Selection.Range("D2").Select
c.Protect
End If
Next
End Sub


--

h2so4
play triogical at http://www.triogical.com
"Philippe" news:4603d449$0$16852$
Bonjour a tous
Peut on faire plus simple dans cette macro ?

Sheets("ADH001").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect
Sheets("ADH002").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect
Sheets("ADH003").Select
ActiveSheet.Unprotect
Range("A4:G38").Select
Selection.ClearContents
Range("D2").Select
ActiveSheet.Protect

........ et cela jusqu'à la feuille ("ADH0125")

merci de votre aide
Lephil











Publicité
Poster une réponse
Anonyme