Copier/coller format + MFC en VBA dans une macro donnée

Bonjour Forum !

Je rencontre un petit problème avec une macro : j'ai besoin de coller la mise en forme d'une cellule, mais je ne sais que coller la cellule, pas juste son format et sa MFC (c'est la dernière ligne du code avant End Sub)

Quelqu'un pourrait-il m'aider ?

Merci !

Sub Insérer_Réponse()
Application.ScreenUpdating = False

ActiveCell.Offset(1, 0).Select

Dim Lg As Integer
    Lg = ActiveCell.Row
    Rows(4).Copy
        With Rows(Lg)
         .Rows.Insert
         .Offset(-1, 0).Hidden = False
        End With
    Application.CutCopyMode = False

Cells(3, 11).Copy Cells(ActiveCell.Row, 11)

End Sub

Bonjour

A essayer

Sub Insérer_Réponse()
Application.ScreenUpdating = False

ActiveCell.Offset(1, 0).Select

Dim Lg As Integer
    Lg = ActiveCell.Row
    Rows(4).Copy
        With Rows(Lg)
         .Rows.Insert
         .Offset(-1, 0).Hidden = False
        End With
    Cells(3, 11).Copy
    Cells(ActiveCell.Row, 11).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False

End Sub

Merci Banzai_64.

Ça marche pour les formats, mais ça ne copie pas la MFC...

Bonjour,

Il est impossible de copier les couleurs déterminées par une MFC.

Ont peu connaître la valeur de la couleur avec cette fonction

A+

Bonjour

Je viens de faire un essai manuel

Une cellule avec une MEFC

Copier

Dans une autre cellule --> Clic droit --> Collage spécial/Formats

Vérification la MEFC est bien dans la nouvelle cellule

Salut Banzaï,

Faudrait que tu explique un peu plus, j'ai aussi fais ce que tu dis mais la mise en forme n'a pas repris la couleur

Je pense que ce que tu a eu est la couleur "sous-jacente") de la cellule

En tout les cas, si tu a trouver cette solution ça va révolutionner l'approche de cette fonction. Jusqu'à présent personne n'a trouver ce truc.

A+

Bonjour

Voilà le test que j'ai fait

Dans une cellule (A1) MEFC -> la formule est =A1="oui" --> Format ce que tu veux

Sélection A1 ---> clic droit --> copier

Sélection A2 --> clic droit ---> Collage spécial/Formats

J'écris oui dans a2 --> La MEFC se fait

J'ai surement mal interprété la question

Edit : A la lecture de ton édit je pense vraiment avoir mal interprété le problème

Sorry

Compris, mais tu ne copie pas la couleur tu copie la MFC CE QUI EST TOUT A FAIT DIFFERENT

Faire la même chose mais avoir uniquement la couleur..

A1 = 12

MFC couleur si > 10

Copier A1

Sélectionner A1 Copier

A2 Collage spécial format

??

EDIT oublie ce poste je l'ai écrit pendant que tu postais le tien.

Bonjour

Oui je comprends ce que tu veux dire mais à mon avantage la question était

gloub a écrit :

mais je ne sais que coller la cellule, pas juste son format et sa MFC

Format ==> Format de cellule taille,gras, souligné etc

MFC ===> sa MEFC

La macro le fait

Mais ce n'est pas important

Tout ce que je retiens ce n'est pas ce que gloub voulait

Je vois que j'ai semé la panique...!

Merci à tous pour vos contributions.

A force de me creuser la tête pour comprendre pourquoi la MFC n'était pas copiée, j'ai trouvé la solution : je m'étais légèrement trompé dans mon code, pourtant tout bête.

Pour que la MFC de la ligne 4 soit collée, j'aurais dû écrire :

Cells(4, 11).Copy Cells(ActiveCell.Row, 11)

et non Cells(3, 11).Copy Cells(ActiveCell.Row, 11)

...le boulet.

Merci à tous.