thiswoorbook_open

[nougat0_7]

j'ai crée une macro manuellement sous woorkbook_open
elle saisit 2 cellules par feuille(750 feuilles) et efface le contenu de la cellule
' 1ere feuille
sheets("feuil1").select
range("f9:f10").select
selection.clearcontents
' 2ème feuille
sheets("feuil2").select
range("f9:f10").select
selection.clearcontents
et ceci pendant 750 feuilles
au démarrage ça me mets 20 secondes pour démarrer
Y a t'il une façon plus élégante et plus "Heu Excelienne "de faire cela
et surtout compréhensible pour un Ane comme moi !!
Merci de votre aide

 

[Pierrot93]

Re : thiswoorbook_open

BONJOUR, Nougat

si j'ai bien compris, pour effacer les cellules F9 et F10 de toutes les feuilles du classeur lors de son ouverture :

Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Range("F9:F10").ClearContents
Next sh
End Sub

code à placer dans le module "Thisorkbook"

bon après midi
@+

Edition : Salut Jean-Claude

 

[JCGL]

Re : thiswoorbook_open

Bonjour à tous,

Sans fichier difficile de tester.
Mais tu peux déjà modifier ton code avec :

Sheets("Feuil1").Range("F9:F10").ClearContents

L'emploi des Select ralenti l'exécution (des fois, ils sont impératifs)

Au plaisir de te lire
A+ à tous

Reste sur ce fil pour la même demande arf en cliquant sur Répondre

Edition : Salut Pierrot ;-)