Nettoyage cellules de saisie

**fernandezalain** · 15/12/2017, 08h28

bonjour,

a chaque fois que j'ouvre une feuille, il faudrait que celle ci soit vide de données saisies precedement mais que je garde quand meme les titres lignes, colonnes etc
ainsi que les formules
simplement effacer champs de saisies. les autres cellules doivent etre protegées
cells.clear efface tout, je crois
merci

**unparia** · 15/12/2017, 08h33

Bonjour
Intéresse-toi à Range.specialcells . L'un de ses arguments te permet de définir la plage des seules cellules ne contenant pas de formules (des "constants")
Applique ce "filtre" (de ces seules "constants", donc) à la plage de ton choix (hors tes entêtes, donc) -->> tu en extrais ainsi une plage (toto, par exemple).
Applique la méthode Clearcontents à cette plage toto.

**unparia** · 15/12/2017, 08h45

Allez (je dois sortir).
Regarde comment je vais condenser tout cela.
Ici, je suppose que mes entêtes sont en ligne1
J'utilise usedrange, que je déplace vers le bas de 1 rang pour garder mes entêtes
Et ? --->> et je lui applique ce que je t'ai dit dans mon message précédent --->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UsedRange.Offset(1, 0).SpecialCells(xlCellTypeConstants).ClearContents

Attention : à n'appliquer que si tu as des "champs" saisis (sinon (si déjà "nettoyé"), tu auras forcément une erreur).

Voilà tout

**Menhir** · 15/12/2017, 09h24

Envoyé par fernandezalain

a chaque fois que j'ouvre une feuille, il faudrait que celle ci soit vide de données saisies precedement mais que je garde quand meme les titres lignes, colonnes etc
ainsi que les formules

Il y a plus simple : interdire la sauvegarde du fichier.
Comme ça il sera toujours propre à l'ouverture.
Et pas besoin de macro, ça peut se faire en quelques secondes.

cells.clear efface tout, je crois

https://msdn.microsoft.com/fr-fr/lib.../ff823037.aspx
Mais, je le répète, à mon avis c'est une mauvaise idée.

**romainorleans** · 15/12/2017, 19h13

Bonjour,

Pourquoi ne pas sélectionner les cellules à effacer à la fin de la macro comme suit.
Dans l'exemple, je souhaite effacer les cellule A1 à A5 , B5 à D5, de la feuille Clear

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Tamacro_()
 
'Je considère que c'est le début de la macro, tu auras certainement déclarer au début de la tienne les feuilles
 
Dim C As Worksheet
 
    Set C = Sheets("Clear")
 
        C.Range("A1:A5") = ""
        C.Range("B5:D5") = ""
 
        ' Tu colles donc ça à la fin de ce que tu as fait pour traiter l'information et cela effacera les données.
 
 
 
 
End Sub