Figer le contenu d'une cellule

[djoodjoo]

Bonjour,

Je reviens avec toujours des questions aux réponses qui doivent sembler simplistes.... mais j'ai pas réussi à trouver.
Voici mon problème :
Le contenu d'une cellule par formule égalre à celui du'ne autre.
Je voudrais que quand je supprime la cellule source, la seconde garde son contenu intacte
Au cas ou ce ne serait pas clair j'ai joint un petit fichier excel.

Merci d'avance

Djoo

Désolé je viens de trouver la réponse à ma question....
La prochaine fois je chercherai un peu plus

 

[mercant76]

Re : Figer le contenu d'une cellule

bonjour,

sur ta cellule liée, tu fais Copier puis Collage spécial Valeurs.

tu peux supprimer ta cellule source.

@+

 

[titiborregan5]

Re : Figer le contenu d'une cellule

Bonjour le fil,
d'accord avec toi mercant76, mais par macro pour le faire automatiquement comment on fait??
J'ai essayé un truc dans ce style mais ça ne marche pas:

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets(1).EnableCalculation = False
Cells(6, 3).Select
Selection.Copy

If Cells(4, 3).Value = "" Then
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
Else
End If
Worksheets(1).EnableCalculation = True

End Sub

Tibo

 

[Robert]

Re : Figer le contenu d'une cellule

Bonjour le fil, bonjour le forum,

une proposition par macro événementielle Change ci dessous dans le fichier en pièce jointe :

Private Sub Worksheet_Change(ByVal Target As Range)'au changement dans l'onglet
If Target.Address <> "$C$4" Then Exit Sub 'si le changement a lieu ailleurs qu'en C4, sort de la procédure
If Target.Value = "" Then Exit Sub 'si la cellule C4 est effacée, sort de la procédure
Target.Offset(2, 0).Value = Target.Value 'C6 prend la valeur de C4
End Sub