Recopier Donnee Avec La Meme Couleur De Police

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 9 Juillet 2008

• #2

Re : Recopier Donnee Avec La Meme Couleur De Police

Bonjour,

Voir PJ

JB

 

Pièces jointes

• ESSAIS(1).xls

  24.5 KB · Affichages: 52
• ESSAIS(1).xls

  24.5 KB · Affichages: 45
• ESSAIS(1).xls

  24.5 KB · Affichages: 47

Vote positif 0 Vote négatif

MikeBelgique

XLDnaute Occasionnel

• 9 Juillet 2008

• #3

Re : Recopier Donnee Avec La Meme Couleur De Police

Merci pour ta formule qui est plus simple que celle que j'avais mais mon réel problème se situe sur la feuille 2, désolé j'aurais du le stipuler

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 9 Juillet 2008

• #4

Re : Recopier Donnee Avec La Meme Couleur De Police

Voir PJ

Code:

Private Sub Worksheet_Activate()
 For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23)
    a = Split(Mid(c.Formula, 2), "!")
    Sheets(a(0)).Range(a(1)).Copy
    c.PasteSpecial Paste:=xlPasteFormats
  Next c
End Sub

JB

 

Pièces jointes

• Coloriage12.xls

  28 KB · Affichages: 45
• Coloriage12.xls

  28 KB · Affichages: 52
• Coloriage12.xls

  28 KB · Affichages: 46

Vote positif 0 Vote négatif

MikeBelgique

XLDnaute Occasionnel

• 9 Juillet 2008

• #5

Re : Recopier Donnee Avec La Meme Couleur De Police

Merci à toi Boisgontier, cela marche très bien mais peux ton limiter à recopier uniquement la couleur de police sans prendre en compte la couleur de font de cellule ni format, je sais je suis difficile et compliqué mais c'est important pour la bonne suite

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 9 Juillet 2008

• #6

Re : Recopier Donnee Avec La Meme Couleur De Police

Code:

Private Sub Worksheet_Activate()
 For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23)
    a = Split(Mid(c.Formula, 2), "!")
    c.Font.ColorIndex = Sheets(a(0)).Range(a(1)).Font.ColorIndex
  Next c
End Sub

JB

 

Pièces jointes

• Coloriage12.xls

  28 KB · Affichages: 56
• Coloriage12.xls

  28 KB · Affichages: 58
• Coloriage12.xls

  28 KB · Affichages: 58

Vote positif 0 Vote négatif

MikeBelgique

XLDnaute Occasionnel

• 15 Juillet 2008

• #7

Re : Recopier Donnee Avec La Meme Couleur De Police

Bonjour, désolé boisgontier de répondre si tard mais je n'ai pas eu le temps de m'occuper de tout cela. Merci à toi, mais je n'arrive pas à le faire fonctionner sur mon fichier, ligne erreur d'éxécution 9
c.Font.ColorIndex = Sheets(a(0)).Range(a(1)).Font.ColorIndex se met en jaune (a(0)).Range(a(1)) l'indice n'appartient pas à la sélection. J'ai beau chercher, tripatouiller, tester je n'arrive pas à la solution finale.

 

Dernière édition: 16 Juillet 2008

Vote positif 0 Vote négatif

MikeBelgique

XLDnaute Occasionnel

• 16 Juillet 2008

• #8

Re : Recopier Donnee Avec La Meme Couleur De Police

Oups je reviens à la charge, pour mon problème, qui peut m'aider, doit on peut etre cibler la plage de reference, du fait que sur mon fichier il existe d'autre donnees sur la page? merci à vous de m'éclairer

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 16 Juillet 2008

• #9

Re : Recopier Donnee Avec La Meme Couleur De Police

Bonjour,

Code:

Private Sub Worksheet_Activate()
 Set champ = Range("B7:U8")
 For Each c In champ.SpecialCells(xlCellTypeFormulas, 23)
    a = Split(Mid(c.Formula, 2), "!")
    c.Font.ColorIndex = Sheets(a(0)).Range(a(1)).Font.ColorIndex
 Next c
End Sub

JB

 

Pièces jointes

• Coloriage12.xls

  32 KB · Affichages: 55
• Coloriage12.xls

  32 KB · Affichages: 53
• Coloriage12.xls

  32 KB · Affichages: 58

Vote positif 0 Vote négatif

MikeBelgique

XLDnaute Occasionnel

• 16 Juillet 2008

• #10

Re : Recopier Donnee Avec La Meme Couleur De Police

Grand grand merci BOISGONTIER, pour la rapidité de ta réponse et je confirme que cela fonctionne nickel, mille merci.🙂:😉

 

Vote positif 0 Vote négatif

MikeBelgique

XLDnaute Occasionnel

• 16 Juillet 2008

• #11

Re : Recopier Donnee Avec La Meme Couleur De Police

J'aurais souhaiter un petit plus ; le calcul du nbr de cellule écrite en noir voir fichier joint page 2

 

Pièces jointes

• Copie de Coloriage12(1).xls

  29.5 KB · Affichages: 39

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 16 Juillet 2008

• #12

Re : Recopier Donnee Avec La Meme Couleur De Police

Voir PJ

Code:

Function compteCouleurTexte(champ, couleur)
  Application.Volatile
  n = 0
  For Each c In champ
    If c.Font.ColorIndex = couleur Then n = n + 1
  Next c
  compteCouleurTexte = n
End Function

JB

 

Pièces jointes

• Coloriage13.xls

  34 KB · Affichages: 42

Vote positif 0 Vote négatif

MikeBelgique

XLDnaute Occasionnel

• 16 Juillet 2008

• #13

Re : Recopier Donnee Avec La Meme Couleur De Police

ah j'avais pas fait attention au petit calculate, et je cherchais pourquoi il ne calculait pas automatiquement sur mon fichier, et voilà c parfait maintenant, comme depuis le début toujours au top, merci BOISGONTIER, trop fort!!!

 

Vote positif 0 Vote négatif