Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Garette
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" a écrit dans le message de news: 4603d449$0$16852$
Bonjour a tous Peut on faire plus simple dans cette macro ?
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" <philippelaporte@free.fr> a écrit dans le message de news:
4603d449$0$16852$426a74cc@news.free.fr...
Bonjour a tous
Peut on faire plus simple dans cette macro ?
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" a écrit dans le message de news: 4603d449$0$16852$
Bonjour a tous Peut on faire plus simple dans cette macro ?
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" wrote in message news:4603d449$0$16852$
Bonjour a tous Peut on faire plus simple dans cette macro ?
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" <philippelaporte@free.fr> wrote in message
news:4603d449$0$16852$426a74cc@news.free.fr...
Bonjour a tous
Peut on faire plus simple dans cette macro ?
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" wrote in message news:4603d449$0$16852$
Bonjour a tous Peut on faire plus simple dans cette macro ?
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" wrote in message news:4603d449$0$16852$
Bonjour a tous Peut on faire plus simple dans cette macro ?
"h2so4" <h2so4enlevezmoi@pandora.be> wrote in message
news:A_QMh.82065$3b6.514109@phobos.telenet-ops.be...
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" <philippelaporte@free.fr> wrote in message
news:4603d449$0$16852$426a74cc@news.free.fr...
Bonjour a tous
Peut on faire plus simple dans cette macro ?
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" wrote in message news:4603d449$0$16852$
Bonjour a tous Peut on faire plus simple dans cette macro ?
Merci à vous deux Cela fonctionne à merveille Bon we "h2so4" a écrit dans le message de news: l1RMh.82071$
"h2so4" wrote in message 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" wrote in message news:4603d449$0$16852$
Bonjour a tous Peut on faire plus simple dans cette macro ?
Merci à vous deux
Cela fonctionne à merveille
Bon we
"h2so4" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
l1RMh.82071$dt5.543774@phobos.telenet-ops.be...
"h2so4" <h2so4enlevezmoi@pandora.be> wrote in message
news:A_QMh.82065$3b6.514109@phobos.telenet-ops.be...
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" <philippelaporte@free.fr> wrote in message
news:4603d449$0$16852$426a74cc@news.free.fr...
Bonjour a tous
Peut on faire plus simple dans cette macro ?
Merci à vous deux Cela fonctionne à merveille Bon we "h2so4" a écrit dans le message de news: l1RMh.82071$
"h2so4" wrote in message 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" wrote in message news:4603d449$0$16852$
Bonjour a tous Peut on faire plus simple dans cette macro ?