Suppression valeurs chiffrées

[eutrophisation]

Bonjour

Existe t il une macro qui supprime les valeurs chifrées d'une plage donnée d'une feuille de calcul sans toucher aux formules

exemple: Plage : C21:CH5020

MERCI D'AVANCE

 

[JBOBO]

Re : Suppression valeurs chiffrées

Bonjour,

Je ne vois pas, mis à part peut-etre en appliquant une mise en forme conditionnelle avec une police identique au fond lorsque les conditions sont remplis. Ou alors il faut nous en dire un peu plus !

 

[eutrophisation]

Re : Suppression valeurs chiffrées

Je voudrais reprendre le même feuille de calcul et pour celà je souhaiterais effacer les valeurs saisies en utilisant une macro ou il suffirait de cliquer sur le bouton pour effacer les données saisies tout en evitant de supprimer les formules.

 

[pierrejean]

Re : Suppression valeurs chiffrées

Bonjour à tous

A tester:

Sub eff()
For Each cel In Range("C21:CH5020")
 If Left(cel.Formula, 1) <> "=" Then cel.Value = ""
 Next
End Sub

 

[hoerwind]

Re : Suppression valeurs chiffrées

Bonjour,

Touche clavier F5 - Cellules - Constantes - OK - Delete

Raccourci clavier : Alt+e+t+c+c+Entrée+Delete
Cette procédure peut être enregistrée sous une macro

 

[JBOBO]

Re : Suppression valeurs chiffrées

Bonjour,

Sous excel 2003, je ne sais pas mais sous excel 2007, tu cliques sur accueil/rechercher et selectionner/constantes, et toute tes cellules contenant autres choses que des formules seront selectionnés, tu peux alors les supprimer facilement.

 

[eutrophisation]

Re : Suppression valeurs chiffrées

Merci pour ta réponce cependant j'aurais souhaité éffacer les constantes par plage et non pas toutes celles qui se trouvent sur la feuille.

 

[eutrophisation]

Re : Suppression valeurs chiffrées

Le code proposé par Mr Pierre Jean est excellent sauf que je rencontre un probleme c'est celui de ne plus pouvoir gérer le classeur même pour le fermer je n'y arrive pas.

 

[pierrejean]

Re : Suppression valeurs chiffrées

Re

La plage selectionnée est vraiment importante !!

Teste:

Sub eff()
Range("C21:CH5020").SpecialCells(xlCellTypeConstants, 23).Select
Selection = ""
End Sub