Suppressions dans un tableau

[Prof]

Bonjour,

Je veux supprimer des chiffres dans des cellules d'un tableau, sans supprimer les formules qui se trouvent ailleurs dans le même tableau.

Il y a moyen de le faire sans devoir supprimer cellule par cellule ???

 

[Bernard]

Bonsoir Prof

Petite macro pour se balader dans une plage.

Cette plage, ici Maplage représente plusieurs zones dans la feuille 1.
Elle peut être spécifier selon son choix.
Elle efface ensuite les chiffres qui se trouveraient dans les cellule de la plage.

Sub Parcourir()
Dim Maplage
Set Maplage = Set Maplage = Sheets("feuil1").Range("A1:A5,B5:B9,C9:C13")
For Each C In Maplage
C.ClearContents
Next C
End Sub

Cordialement

Bernard

 

[Prof]

merci, mais ça ne marche pas, enfin pas comme je voudrais.

Je te mets un exemple du fichier en annexe. Dans ce fichier, en rouge et en bleu, il y a des nombres, qui sont le résultats d'une formule. En noir des chiffres entrés manuellement.

le 'but du jeu" : je veux supprimer tous les chiffres en noir, qu'il ne reste plus que mon tableau, avec texte mise en forme et formules.

 

[mDF]

Bonsoir Prof,
Bonsoir Bernard,


Si on veut être plus rapide, peut-être pouvons-nous sélectionner la zone à épurer dans son ensemble, puis lancer :

Sub EffaceValeurs()
For Each c In Selection
If Not c.HasFormula Then c.ClearContents
Next c
End Sub

Ca permettrait d'effacer l'ensemble des cellules contenant une valeur en préservant celles qui contiennent une formule de calcul (et ce, sans avoir à parcourir la feuille pour repérer manuellement les bonnes ou les mauvaises cellules).

Cordialement.
DIDIER

 

[Bernard]

Bonsoir Prof

Si tu nous mettais le fichier joint qui n'y est pas, cela aiderait grandement à la compréhension de ton problème.

Cordialement

Bernard

 

[Prof]

Mdf, je crois que tu as la solution à mon problème !

Bernard, désolé, je joins à présent le fichier...

Je fais le test et vous tiens au courant.

 

[Prof]

OK, ça marche, sauf que la macro s'execute sans fin, elle repasse non-stop sur la sélection...