Effacer memes cellules sur 12 feuilles
Résolu
surplus
Messages postés
673
Date d'inscription
Statut
Membre
Dernière intervention
-
surplus Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
surplus Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai une macro pour effacer les cellules qui se trouvent sur 12 feuilles différentes
Sub essai()
reponse = MsgBox("Voulez vous reinitialiser Le classeur", vbYesNo)
If reponse = vbYes Then
MsgBox "reinitialiser Le classeur ?"
Worksheets(Array("Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre")).Select Range("E8:E29").Select
Selection.ClearContents
Sheets("An").Select
Range("C7").Activate
Else:
MsgBox "je ne reinitialise pas"
End If
End Sub
je voudrais effacer les cellules de E8 a E29 dans les 12 feuilles qui ont la même structure
la macro s'exécute bien sans erreur ou blocage mais elle m'efface pas les données voulus mais elle efface quelques données ici et la sur différentes feuilles
je comprends pas ou est mon erreur
merci de votre aide
a bientot
J'ai une macro pour effacer les cellules qui se trouvent sur 12 feuilles différentes
Sub essai()
reponse = MsgBox("Voulez vous reinitialiser Le classeur", vbYesNo)
If reponse = vbYes Then
MsgBox "reinitialiser Le classeur ?"
Worksheets(Array("Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre")).Select Range("E8:E29").Select
Selection.ClearContents
Sheets("An").Select
Range("C7").Activate
Else:
MsgBox "je ne reinitialise pas"
End If
End Sub
je voudrais effacer les cellules de E8 a E29 dans les 12 feuilles qui ont la même structure
la macro s'exécute bien sans erreur ou blocage mais elle m'efface pas les données voulus mais elle efface quelques données ici et la sur différentes feuilles
je comprends pas ou est mon erreur
merci de votre aide
a bientot
3 réponses
-
bonjour
Ceci devrait mieux fonctionner (sans créer de classeur test) :
Worksheets(Array("Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre")).Range("E8:E29").ClearContents Sheets("An").Range("C7").Activate
Toujours zen
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer. Antoine de Saint-Exupéry -
Bonjour,
Ou autre solution :
messh = Array("Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre")
For c = 0 To 11
Sheets(messh(c)).Range("E8:E29").ClearContents
Next c
-
bonjour
merci pour votre aide
la première solution bloque et je l'avais déjà essayé
la solution de Pingou me va bien
merci
a bientot
