Valeur Par défaut d'une cellule égale à une autre

Bonjour,

Je voulais savoir s'il était possible de faire en sorte qu'une cellule ait une valeur par défaut égale à une autre,

Par exemple, si je supprime les données de cette cellule, ou quand j'ouvre le fichier sa valeur soit égale à la valeur de A1 ?

Merci d'avance

Bonjour,

Dans le module ThisWorkbook :

Private Sub Workbook_Open()
   Worksheets("Feuil1").Range("C7").Value = Worksheets("Feuil1").Range("A1").Value
End Sub

Gelinotte

Bonjour,

Je crois que j'ai commis une erreur. Je pense que tu voulais une valeur par défaut seulement si la cellule est vide ...

Private Sub Workbook_Open()
   If Worksheets("Feuil1").Range("C7").Value = "" Then
      Worksheets("Feuil1").Range("C7").Value = Worksheets("Feuil1").Range("A1").Value
   End If
End Sub

Gelinotte

Cela Fonctionne à merveille,

Merci beaucoup !