Vider le contenu de certaines feuilles
mall60
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je voudrais, dans un classeur excel, vider certaines cellules de certaines feuilles.
Les feuilles en question sont dénommées "famillexx", les autres sont nommées "accueil" et "variables"
J'ai tenté la macro suivante, mais celle ci ne génère que des messages d'erreur:
Sub raz()
SheetActivate (ByVal sh As Object)
If InStr(1, non_famille, sh.Name) = 0 Then
ActiveSheet.Unprotect Password:="ma"
Range("C6:AG8,C10:AG12,C14:AG16,C18:AG20,Y26:Z30").Select
Selection.ClearContents
ActiveSheet.Protect Password:="ma"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
Si quelqu'un pouvait m'aider....
Merci
Je voudrais, dans un classeur excel, vider certaines cellules de certaines feuilles.
Les feuilles en question sont dénommées "famillexx", les autres sont nommées "accueil" et "variables"
J'ai tenté la macro suivante, mais celle ci ne génère que des messages d'erreur:
Sub raz()
SheetActivate (ByVal sh As Object)
If InStr(1, non_famille, sh.Name) = 0 Then
ActiveSheet.Unprotect Password:="ma"
Range("C6:AG8,C10:AG12,C14:AG16,C18:AG20,Y26:Z30").Select
Selection.ClearContents
ActiveSheet.Protect Password:="ma"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
Si quelqu'un pouvait m'aider....
Merci
A voir également:
- Vider le contenu de certaines feuilles
- Comment faire un livret avec des feuilles a4 - Guide
- Fusionner deux cellules excel en gardant le contenu - Guide
- Vider le cache d'une application - Guide
- Le fichier à télécharger correspond au contenu brut d’un courrier électronique. de quel pays a été envoyé ce message ? - Guide
- Word a trouvé du contenu illisible - Guide
2 réponses
Essaie ce code :
Cordialement
Patrice
Option Explicit
Sub raz()
Dim wsh As Worksheet
For Each wsh In ActiveWorkbook.Worksheets
If InStr(1, wsh.Name, "famille") = 1 Then
wsh.Unprotect Password:="ma"
wsh.Range("C6:AG8,C10:AG12,C14:AG16,C18:AG20,Y26:Z30").ClearContents
wsh.Protect Password:="ma", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Next wsh
End Sub
Cordialement
Patrice
