Supprimer couleur cellule et Bordure

DoubleZero

XLDnaute Barbatruc

• 22 Février 2015

• #2

Re : Supprimer couleur cellule et Bordure

Bonjour, maval, le Forum,

Le code ci-après supprime couleurs et bordures :

Code:

Option Explicit
Sub Sans_couleur_ni_bordure()
    With Range("I2:T52")
        .Interior.ColorIndex = xlNone
        .Borders.Value = 0
    End With
End Sub

Mais... faut-il préserver les cellules non vides ?

A bientôt 🙂

 

Dernière édition: 22 Février 2015

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 22 Février 2015

• #3

Re : Supprimer couleur cellule et Bordure

Re-bonjour,

Un membre bienfaiteur 😀 et chevronné 😎 a susurré, dans l'une de mes oreilles, le code suivant :

Code:

Sub SansBorduresSansCouleursDoncFinalementSansFormat()
Range("I2:T52").ClearFormats
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 22 Février 2015

• #4

Re : Supprimer couleur cellule et Bordure

Bonjour DoubleZero

Excuse moi de ne pas répondre avant, les obligations.

je te remercie beaucoup ton code fonctionne très bien, pourrez-tu me dire comment enlever les bordures des cellules car avec mon code sa prend un temps fou.

Bon WE à toi

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 22 Février 2015

• #5

Re : Supprimer couleur cellule et Bordure

Re-bonjour,

Dernière 🙄 intervention...

Les problèmes afférents aux shapes, couleurs et encadrement de cellules sont, visiblement, résolus.

N'est-il pas vrai ?

 

Vote positif 0 Vote négatif