Copier mise en forme dans une variable

medestrac -  
 GIL -
Bonjour,

Est-ce que quelqu'un sait copier la mise en forme d'une cellule dans une variable?
Je souhaite copier une sélection dans un tableau en début de macro, puis la recoller en fin de macro. Par contre ça ne copie/colle que les valeurs, pas les mises en forme...

4 réponses

  1.
    ThauTheme Messages postés 1564 Statut Membre 160
     
    Bonjour Medestrac, bonjour le forum,

    Selon le code utilisé ça copie aussi le format. Mais comme de code il n'y en a point, je ne peux guère t'en dire plus... M***e !... Voilà que je parle comme un vicomte maintenant !...
    0
  2. medestrac
     
    Voilà le code en question: 
    For i = 1 To cfin - cdeb + 1
        For j = 1 To lfin - ldeb + 2
            TableSelection(j, i) = Cells(j + ldeb - 1, i + cdeb - 1)
        Next j
    Next i
    0
  3. ThauTheme Messages postés 1564 Statut Membre 160
     
    Re,

    En effet l'utilisation d'un tableau est très rapide mais ne prend pas en compte la mise en forme. Avec ce petit bout de code que tu as daigné fournir c'est tout ce que je peux te dire...
    À plus,
    ThauTheme
    0
  4. GIL
     
    Bonjour,

    S'il s'agit d'une mise en forme qui ne bouge pas, tu pourrais appliquer le format à la plage copiée avec par exemple :

    With Selection
    .Font.Bold = True
    .interior.color........

    End With

    Gilles
    0