Effacement des cellules [Résolu]

Messages postés
27
Date d'inscription
samedi 30 novembre 2013
Statut
Membre
Dernière intervention
10 décembre 2013
- - Dernière réponse : Philippe-thuin
Messages postés
27
Date d'inscription
samedi 30 novembre 2013
Statut
Membre
Dernière intervention
10 décembre 2013
- 10 déc. 2013 à 19:44
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!
Afficher la suite 

4 réponses

Messages postés
26526
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
18 octobre 2019
316
0
Merci
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é.
Commenter la réponse de jordane45
Messages postés
27
Date d'inscription
samedi 30 novembre 2013
Statut
Membre
Dernière intervention
10 décembre 2013
0
Merci
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!!
jordane45
Messages postés
26526
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
18 octobre 2019
316 -
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.
Commenter la réponse de Philippe-thuin
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212
0
Merci
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


Commenter la réponse de ucfoutu
Messages postés
27
Date d'inscription
samedi 30 novembre 2013
Statut
Membre
Dernière intervention
10 décembre 2013
0
Merci
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!!
Commenter la réponse de Philippe-thuin