Interdire effacement d'une formule

Bonjour

Je suis a la recherche d'un code pour effacer une cellule sans effacer la formule qui s'y trouve

Merci pour votre aide

Crdlt

Bonjour,

Quel est le contexte ? C'est quoi la formule existante ?

Il manque un exemple.

Bonjour

merci pour ton aide

Un exemple avec explications

18test-effacer.xlsm (10.00 Ko)

A quoi te sers la formule ? Je ne vois pas son intérêt.

Est-ce que cette donnée peut-être différente de 1 ?

La formule me sert a rechercher dans un fichier plus conséquent

la valeur de H8 peut varier 1,2,3,4...

je te propose une formule, mais je ne suis pas certain que c'est ce que tu recherches :

en prenant une case (par exemple G8), tu lui donnes une valeur X, ton résultat s'affiche (ici 1). Par contre, si tu effaces le X dans G8, H8 s'efface mais ta formule est toujours là.

=SI(G8="X";RECHERCHEV(H9;Data!A3:D5;4;FAUX);"")

Merci mais cela ne fonctionne pas comme voulu ,il faut impérativement un code VBA

Bonjour,

Une formule donnera toujours un résultat.

Si tu veux supprimer le résultat, tu supprimes la formule, ou tu fais en sorte que la formule te donne 0 (ou ""), en modifiant les données "Source"...

sinon, autre solution plus simple et sans code VBA, tu écris blanc sur fond blanc

Demande résolu j'ai trouvé le code VBA qui convient à ce que je veux faire

Dim pl As Range
    On Error Resume Next
    Set pl = [H5:H11].SpecialCells(xlCellTypeConstants)
    On Error GoTo 0
    If Not pl Is Nothing Then pl.ClearContents
Rechercher des sujets similaires à "interdire effacement formule"