Discussion :

[Invité]

Bonjour à tous.
Dans le cadre d'un projet que j'ai pour les cours, je dois programmer en vba/excel.
Arrivant au terme du projet, non sans mal, un problème se pose à moi, et j'ai pas réussi à le résoudre malgré mes recherches.
Le voici:
Dans mon programme, j'ai 2 feuilles, une feuill1 et l'autre feuill2
Dans feuill1, B5=10
Dans feuill2, C5=Feuill1!B5

Or, dans le cadre du programme, je dois delete B5, conduisant la cellule C5 dans la feuille 2 à afficher =#ref
Comment faire pour maintenir dans la feuill2 C5=feuill1!B5 malgré la suppression de B2 ?

* Merci *

[el_slapper]

à vu de nez, je sauvegarderais le contenu dans une variable, procéderait à l'éffacement, puis remettrait le contenu depuis la variable.

Mais il y a sans doute plus élégant?

[casefayere]

Bonjour,

dans ton code :

Code :

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

sheets("Feuil2").Range("C5")=sheets("feuil1").Range("B5").Value

et tu supprimes B5 ensuite

ou alors, je n'ai rien compris !!!!

[pgz]

Bonjour à tous.

Si on parle bien VBA - mais est-ce bien sûr?- je ferais en séquence:

• suppression de la cellule feuil1!B5
• écriture de la formule en Feuil2!C5, "=Feuil1!B5"

"

Mais ce n'est pas très clair...

Cordialement,

PGZ

[gFZT82]

Bonjour,

Autre piste :
La Méthode DELETE supprime l'objet, ce qui explique l’apparition du #REF!
Si tu n’as pas obligation de supprimer l’objet, tu peux utiliser une autre méthode pour effacer la formule ou la valeur de ta plage B5 sans affecter ta formule en C5 (ClearContents ou variable = "")

Cordialement.

[Invité]

Tout d'abord, je tenais à vous remercier pour vos réponses.
Donc pour clarifier les choses.
Sur ce excel, je possède 2 feuilles.
Dans une feuille, je rentre les données et les modifies. Ce qui fait que ces données sont susceptible d'être parfois "détruite" avec la fonction clear.
Dans ma seconde feuille, j'utilise les données de la feuille1.
Sauf qu'étant donné que je "clear" les données, je ne peux le faire :/

Je suis obliger d'utiliser la fonction clear, car j'ai créé une boucle avec isempty, et si je met "", ce n'est plus empty.

Cela vient de me faire penser que je peux rajouter cela comme possibilité.
If isempty(Range("A5")) or range("A5") = "" then
et la boucle de la cellule vide.

Je vais voir si cela pose problème avec le reste du code