Ne pas perdre ses données lors d'un changement

[Flop]

Bonjour à tous,

je m'explique, un classeur avec deux feuilles (feuill1 et feuill2) dans la cellule A1 de la feuill 1 j'écris "toto" dans la cellule A1 de la feuill2 j'écris "=feuill1!A1" ce qui me donne "toto", voila ou ca ce complique pour moi..

si je supprime la ligne A de la feuille A1 et que j'inscrit "tata" dans cette meme feuille sur la cellule A1, sur la feuill2, ma formule est perdue est je me retrouve avec "=Feuil1!#REF!", comment outrepacer ce hic.. car dans le code de ma macro je n'ai pas trouvé d'autre solutions que d'effacer la ligne, si je me contente d'effacer la cellule, je me confronte à un problème bcq plus hard, la solution que je pratique actuellement est de faire un macro qui écrit "feuil1!a1" dans la cellule A1 de la feuille 2, mais il y a peut etre plus simple.

merci d'avance.

 

[Pierrot93]

Re : Ne pas perdre ses données lors d'un changement

Bonjour Flop

si j'ai bien compris :

Dim x As String
x = Sheets("Feuil2").Range("A1").Formula
Sheets("Feuil1").Rows(1).Delete
Sheets("Feuil2").Range("A1").Formula = x

bon après midi
@+