copier/coller avec liaisons couleur

[nougat0_7]

bonjour à tous
encore un souci
je désirerai copier/coller avec liaison couleur
est-ce possible ?
excel 2003 impératif
fichier ci-joint
merci pour vos réponses

 

[Sylvain59]

Re : copier/coller avec liaisons couleur

Bonjour

tu selectionne ta zone copier

tu vas sur le deuxieme feuille collage spécial et là tu coche format re collage spécial tu coches valeur

A+

 

[pierrejean]

Re : copier/coller avec liaisons couleur

bonjour nougat0 7

une solution par macro evenementielle

Private Sub Worksheet_Activate()
Sheets("Feuil1").Range("B8:E8").Copy Destination:=Range("B8")
Sheets("Feuil1").Range("B14:D14").Copy Destination:=Range("B14")
End Sub

 

[Sylvain59]

Re : copier/coller avec liaisons couleur

Bonjour


si tu veux mettre à jour toutes tes zones tu peux le foire comme dans l'exemple joint

j'ai utilisé l'enregistreur de macro et je les ai placées sur un bouton

A+

 

[Sylvain59]

Re : copier/coller avec liaisons couleur

Bonjour pierrejean tu as encore été le plus rapide

 

[TEMAGOULTFARID]

Re : copier/coller avec liaisons couleur

bonjour nougat0 7

une solution par macro evenementielle

Private Sub Worksheet_Activate()
Sheets("Feuil1").Range("B8:E8").Copy Destination:=Range("B8")
Sheets("Feuil1").Range("B14:D14").Copy Destination:=Range("B14")
End Sub

Bonjour Pierre Jean,
Enchanter de vous connaitre, votre modelé conviens parfaitement a ce que je cherchais, simple et efficace, cependant me concernant, comment faire la même chose mais en restant sur la même feuille , j'ai encadré les case dans votre fichier pour exemple.
par avance, merci

 

[Dranreb]

Bonjour.
Je m'aperçois que le problème n'avait pas été résolu exactement comme le souhaitait le demandeur. Alors, dans son classeur :
Dans le module ThisWorkbook :

Option Explicit
Private ClnConsignes As New Collection
Public Sub Consigne(ByVal R As Range, ByVal IC As Long)
   ClnConsignes.Add R: ClnConsignes.Add IC
   End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
   Dim R As Range, IC As Long
   While ClnConsignes.Count > 0
      Set R = ClnConsignes(1): ClnConsignes.Remove 1
      IC = ClnConsignes(1): ClnConsignes.Remove 1
      R.Interior.Color = IC: Wend
   End Sub

Dans un module standard :

Option Explicit
Function AvecCouleur(ByVal Cel As Range)
   ThisWorkbook.Consigne Application.Caller, Cel.Interior.Color
   AvecCouleur = Cel.Value
   End Function

En Feuil2, en B8, à propager sur 4 colonnes :

=AvecCouleur(Feuil1!B8)

En B14, à propager sur 3 colonnes :

=AvecCouleur(Feuil1!B14)

Et pour prendre d'une cellule d'une feuille quelconque (y compris de même que le résultat) à la fois la valeur et la couleur tapez dans la cellule cible '=AvecCouleur(', cliquez sur cette cellule source puis Entrée.

Ça marche même avec un truc de ce genre :

=AvecCouleur(INDEX($K$4:$K$6;EQUIV($J12;$J$4:$J$6;0)))