Supprimer couleur cellule et Bordure

[maval]

Bonjour,

J"aimerais supprimé le fond des cellules et les bordures.
J'ai mis comme Code ceci sa me supprime bien les bordures mais pas la couleur du fond des cellules.

Sub Encadrer()
Dim cel As Range
  For Each cel In Range("I2:T52")
  With cel.Resize(, 8).Borders
  If cel <> "" Then
  .Weight = xlThin
  'Selection.Interior.ColorIndex = xlNone
  Range("I2:T52").Interior.ColorIndex = xlNone
  Else
     .LineStyle = xlNone
     End If
     End With
Next
End Sub

Merci d'avance

 

[DoubleZero]

Re : Supprimer couleur cellule et Bordure

Bonjour, maval, le Forum,

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

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

 

[DoubleZero]

Re : Supprimer couleur cellule et Bordure

Re-bonjour,

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

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

A bientôt

 

[maval]

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

 

[DoubleZero]

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 ?