Effacer les Cellules non Protéger d'une Feuil Excel

cs_microsig Messages postés 6 Date d'inscription samedi 10 novembre 2007 Statut Membre Dernière intervention 14 février 2010 - 12 févr. 2010 à 22:08
cs_rt15 Messages postés 3874 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 7 novembre 2014 - 13 févr. 2010 à 11:19
Bonjour
Je suis un débutant en VBA
Voila j'ai un classeur Nome FACTURE Excel(V.2003)
Je suis sur une Feuil C
Je voudrais effacer les contenues de touts les cellules
Non Protéger d'un tableau dans la Feuil A
J'ai utiliser une boucle
Fro i=1 to Sheets.Count
Sheets(i).cells.Clear
Next i
Mais elle ne fonctionne pas
La boucle efface tout la feuil A

2 réponses

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 223
12 févr. 2010 à 23:00
Bonjour,
Il te faut créer un range des cellules à effacer
set ton_range = sheets(i)......
puis :
ton_range.clearcontents


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
0
cs_rt15 Messages postés 3874 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 7 novembre 2014 13
13 févr. 2010 à 11:19
Bonjour,

Pour une question VBA, merci de poster sur vbfrance dans le thème approprié.

[ Déplacé sur vbfrance ]
0