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
A voir également:
- Effacer memes cellules sur 12 feuilles
- Comment faire un livret avec des feuilles a4 - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Effacer les données de navigation sur android - Guide
- Comment effacer une page sur word - Guide
- Verrouiller cellules excel - Guide
3 réponses
bonjour
Ceci devrait mieux fonctionner (sans créer de classeur test) :
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
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
