Liaisons modifiables

[ascal44]

Bonsoir et bon week end au forum,

Je joint un fichier très réduit pour votre compréhension :

Je voudrais que certaines cellules soient liées sur plusieurs feuilles tout en restant modifiable à partir de n'importe quelle feuille.
Donc les formules du style "='Original Vert'!F12 " ne fonctionnent pas.

Quel serait la solution ???

Merci pour votre aide.

 

[ascal44]

Re : Liaisons modifiables

Bonjour à tous,
Pas de réponses , il n'y aurait donc pas de solutions ?

J'ai essayé de faire une macro pour copier mes données mais avec ce code :

Option Explicit
Dim MaValeur As Variant




Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range( _
"C6:C7,C10:C14,C17:C20,C23,C26,C29,C32:C33,C36:C38,G6:G20,G24:G30,K6:K13,O6:O13,K16:K20,O16:O19,K23:K25,O22:O23,O26:O27,K28:K34,O30:O33,G34:G36,O36:O38,K37:K43,O41:O45,C41,K46" _
).Select
Range("K46").Activate

Range( _
"C6:C7,C10:C14,C17:C20,C23,C26,C29,C32:C33,C36:C38,G6:G20,G24:G30,K6:K13,O6:O13,K16:K20,O16:O19,K23:K25,O22:O23,O26:O27,K28:K34,O30:O33,G34:G36,O36:O38,K37:K43,O41:O45,C41,K46,K49,O48:O52,O55" _
).Select
Range("O55").Activate
Selection.ClearContents
Application.ScreenUpdating = True

End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B6:B41,F6:F41,J6:J47,N6:N41,N44:N56")) Is Nothing Then Target.Offset(0, 1) = MaValeur
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B6:B41,F6:F41,J6:J47,N6:N41,N44:N56")) Is Nothing Then
MaValeur = Target.Value

End If
End Sub



la copie n'est possible !!!

Comment pourrais je l'éviter ?

 

[ascal44]

Re : Liaisons modifiables

Oups voici le fichier :