Effacement des cellules [Résolu]

Signaler
Messages postés
27
Date d'inscription
samedi 30 novembre 2013
Statut
Membre
Dernière intervention
10 décembre 2013
-
Messages postés
27
Date d'inscription
samedi 30 novembre 2013
Statut
Membre
Dernière intervention
10 décembre 2013
-
re-Bonjour,
Encore merci pour l'optimisation.

Par contre, je n'arrive pas à effacer les cellules du classeur Fact-Synth.xlsm à son ouverture. l'ai essayé des Cells.Delete, des ClearContents mais je trouve pas la solution!

4 réponses

Messages postés
30321
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 novembre 2020
338
Bonjour,

NB : Pense que plusieurs personnes peuvent lire et/ou te répondre (pas seulement Ucfoutu ^^ ) et que ces personnes n'ont pas forcément suivi tes discussions précédentes...

Dans ces conditions, merci d'expliquer clairement le souci rencontré.
Messages postés
27
Date d'inscription
samedi 30 novembre 2013
Statut
Membre
Dernière intervention
10 décembre 2013

J'ai un classeur "Fact-Synth.xlsm" qui comporte 4 feuilles ayant chacune un tableau à taille variable allant de "A12:En" (n étant inconnu). Chaque tableau a la même structure sur chaque feuille.
Il faudrait que, au démarrage du classeur, toutes les cellules "A12:En" de chaque feuille s'effacent.
Et là, j'y arrive pas!!
Messages postés
30321
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 novembre 2020
338
Tes cellules contiennent quoi ?
Que du "texte" (ou des nombres) ou des Images, de la couleur.... ??

En gros, tu veux supprimer uniquement le contenu.. ou la mise en forme aussi ?

Si ce n'est que le contenu.. ClearContents devrait fonctionner....

Eventuellement, montre nous le code que tu as essayé et explique nous en quoi ça ne marche pas.
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
232
Bonjour,
Te ne serais pas en train de nous faire faire, morceau par morceau, toute ton appli ?
Bon... Mais ma dernière intervention concernant celle-ci. Va falloir que tu mettes un peu du tien.

Tu as donc 4 feuilles à nettoyer de A12 jusqu'à la fin et ces feuilles sont Feuil1n Feuil2, Feuil3 et Feuil4.
Rien de plus simple ===>>
For i = 1 To 4
With Worksheets("Feuil" & i)
derlig = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A12:E" & derlig).ClearContents
End With
Next


Messages postés
27
Date d'inscription
samedi 30 novembre 2013
Statut
Membre
Dernière intervention
10 décembre 2013

ucfoutu,
je n'avais pas pensé à tes variables!!

Loin de moi l'idée que tu fasses tout. Mais comme je te l'ais dit, je suis un primo débutant en VBA et je passe un temps fou à décortiquer tes codes pour en comprendre l'idée, la logique et leurs liens.
Ceci dit ton code marche très bien et je suis loin de pouvoir faire ce que tu fait!!