Sujet Précédent Sujet Suivant

Effacer memes cellules sur 12 feuilles

Résolu/Fermé
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - Modifié par surplus le 28/12/2012 à 22:24
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 28 déc. 2012 à 23:54
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
A voir également:

3 réponses

Réponse 1 / 3
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 686
Modifié par gbinforme le 28/12/2012 à 22:45
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
0
Réponse 2 / 3
Le Pingou Messages postés 12069 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 mai 2024 1 431
28 déc. 2012 à 22:59
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

0
Réponse 3 / 3
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
28 déc. 2012 à 23:54
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
0

Discussions similaires

Pokémon X et Y : comment effacer une partie ?
PokéFan -
yoshiedu13 -

49 réponses