VBA - Copier/coller le format d'une case avec mise en forme conditionnelle

**Pilipe** · 01/12/2014, 17h42

Bonjour a vous,
Mon problème est le suivant :
J'ai un tableau complet qui possede des mises en forme conditionnelles, que je voudrais copier et coller dans un autre tableau
Si je procede de la facon classique, le tableau est copié puis collé mais je n'arrive pas a recuperer la "forme" de la cellule à l'instant où je la copie (uniquement le contenu).

Je precise que je ne souhaite pas recuperer la "formule" de la mise en forme conditionnelle, mais uniquement la mise en forme de chaque case.

Est ce que quelqu'un a la réponse a mon problème?
Si oui, il deviendrait mon meilleur ami!!

merci

**parmi** · 01/12/2014, 17h50

Bonjour,

Tu dois faire un collage spécial en valeur, puis un autre en format.

**Pilipe** · 02/12/2014, 07h39

Merci pour ta réponse, mais j'ai déjà testé ce type d'action mais sans succès...
Est ce que tu utilise un code particulier?

**parmi** · 02/12/2014, 11h41

Est-ce qu'il y a un message d'erreur ?
Est-ce que des cellules sont fusionnées ?

**Pilipe** · 02/12/2014, 13h28

Non, il copie et colle les valeurs mais je n'ai pas la mise en forme appliquée par la mise en forme conditionnelle.

**parmi** · 02/12/2014, 15h47

Si tu colles en valeur et format, la mise en forme sera aussi transposée avec sa formule
Si tu ne veux pas la formule de MFC, tu devras, je pense, boucler chaque cellule copiée et retransposer uniquement sa couleur, police, bordures,...

**parmi** · 02/12/2014, 15h59

Voici une façon de faire
À ajuster à tes besoins

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Dim I As Long, nbColonnes As Long
 
    'Détermine le nombre de colonnes selon les entêtes de la ligne 1
    nbColonnes = Sheets("Feuil1").Cells(1, Columns.Count).End(xlToLeft).Column
 
    'Copie des données de la ligne 2 avec MFC
    Sheets("Feuil1").Rows(2).Copy Sheets("Feuil2").Range("A2")
 
    'Supression de la MFC
    Sheets("Feuil2").Rows(2).FormatConditions.Delete
 
    'Transpose les couleurs de la MFC
    On Error Resume Next  'évite les erreurs pour les cellules qui n'ont pas de MFC
    For I = 1 To nbColonnes
        Sheets("Feuil2").Cells(2, I).Interior.Color = Sheets("Feuil1").Cells(2, I).FormatConditions(1).Interior.Color
    Next
    On Error GoTo 0

**Pilipe** · 04/12/2014, 13h33

Bonjour,

J'ai transposé le code sur mon application mais je ne comprends pas pourquoi cela ne marche plus!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sheets("SUIVI").Copy Before:=Sheets(2)
    Sheets("SUIVI (2)").Name = "EXTRACT"
 
 
    'Détermine le nombre de colonnes selon les entêtes de la ligne 1
    nbColonnes = Sheets("EXTRACT").Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox (nbColonnes)
 
    'Détermine le nombre de colonnes selon les entêtes de la colonne A
    nbLignes = Sheets("EXTRACT").Range("A" & Rows.Count).End(xlUp).Row
    MsgBox (nbLignes)
 
    'Suppression des mises en forme conditionnelles sur le fichier copié
    Sheets("EXTRACT").Rows("1:" & nbLignes).FormatConditions.Delete
 
    'Transpose les couleurs de la MFC
    On Error Resume Next  'évite les erreurs pour les cellules qui n'ont pas de MFC
    For b = 7 To nbLignes
        For k = 15 To nbColonnes
            Sheets("EXTRACT").Cells(b, k).Interior.Color = Sheets("SUIVI").Cells(b, k).FormatConditions(k).Interior.Color
        Next
    k = 1
    Next

Est ce que vous voyez une erreur dans mon code?

Encore merci

**parmi** · 04/12/2014, 14h24

Change le k par 1 ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("EXTRACT").Cells(b, k).Interior.Color = Sheets("SUIVI").Cells(b, k).FormatConditions(1).Interior.Color

**Pilipe** · 05/12/2014, 18h12

Merci pour ta réponse,
cela fonctionne mieux qu'avant mais il fait des copies intempestives de la mise en forme a des endroits ou il n'y en a pas initialement...
Comment est-ce possible?

La bonne nouvelle c'est que là ou doit y en avoir une --> elle y est

**parmi** · 05/12/2014, 18h51

Si tu mets un arrêt après cette ligne, est-ce que les mises en forme sont bien toutes disparues ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("EXTRACT").Rows("1:" & nbLignes).FormatConditions.Delete

**Pilipe** · 06/12/2014, 16h07

Oui après cette ligne il n'y a plus aucune mise en forme

**parmi** · 07/12/2014, 20h13

Je ne vois pas où peut se trouver le problème... (?)
Tu démarres à la ligne 7 sur les 2 feuilles et la colonne O, c'est ça ?
Et tu détermines le nombre de colonnes en lisant la ligne 1, c'est toujours bien ça que tu dois faire ?