Discussion :

[mardona]

Bonjour,
Je voudrais supprimer le contenu des cellules d'une colonne sans pour autant perdre ses formules. Comment puis-je faire cela?

Merci

[SfJ5Rpw8]

Bonjour,
Je voudrais supprimer le contenu des cellules d'une colonne sans pour autant perdre ses formules. Comment puis-je faire cela?

Merci

effacer sans effacer ..?

[jkodio]

Ouh là là!
Comme il s'agit de "ne pas perdre les formules", il faudra les stocker quelque part ailleurs, per exple dans une autre colonne ...

[gruget]

Bonjour,
je suis pas tout à fait sur d'avoir compris mais ce que tu veux c'est que dans tes cellules, le résultat renvoyé par la formule ne soit plus affiché en fait??
Parce que tu ne peux pas vraiment dissocier le résultat de la formule
la solution que je te propose c'est d'enlever le signe = quand tu ne souhaites pas que le résultat s'affiche et de le remettre quand tu veux calculer
Par le code ca donnerais:

Code :

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

1
2
 
worksheets("nom de ta feuille").cells(i,j).value= replace(worksheets("nom de ta feuille").cells(i,j).value,"=","")

et quand tu veux recalculer:

Code :

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

1
2
 
worksheets("nom de ta feuille").cells(i,j).value= "=" & worksheets("nom de ta feuille").cells(i,j).value

Maintenant je ne suis pas sur qu'il n'y ait pas mieux
et ca ne libère pas la cellule pour autant
rémi

[SilkyRoad]

bonsoir

Tu peux tester

Code :

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

Range("A1:A10").SpecialCells(xlCellTypeConstants, 3).ClearContents

Remarque: renvoie une erreur s'il n'y a rien à supprimer.


michel

[alsimbad]

la seule solution que tu as, c'est de reperer les cellulles qui sont les facteurs de ta formule
exemple basique disons que tu as en c3 :

Code :

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

= a1 + a2

tu dois mettre a1 et a2 a 0 par une ligne de code ou en les effaçant.
dans tes optios, tu verifie " pas de valeur zéro"
et ta formule doit etre écrite en incluant le cas zéro

Code :

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

= si ( a1 + a2  = 0 ; "" ; a1 + a2)

ainsi si le résultat est nul, la cellule apparaitra vide, mais contiendra toujour la formule, il te suffira de rentrer une valeur en a1 ou a2 pour avoir le résultat en c3.
mais dans ton cas, peut etre que
outil, option, affichage, valeur zéro suffira à ton bonheur