Probleme TintAndShade

Bonjour à tous,

Je suis devant un problème depuis deux jours que je n'arrive pas solutionner,

je dois supprimer de mes onglets le remplissage par défaut issu de l'extraction de mon fichier.

J'ai réaliser ceci avec l'aide de l'enregistreur de macro

Sub net()

Set Wb_Ext = Workbooks("Extraction2017315")
    I = Wb_Ext.Sheets.Count

    For j = 2 To I
        With Wb_Ext.Sheets(j)
            Range("B22", Selection.End(xlToRight)).Select
            Range(Selection, Selection.End(xlDown)).Interior.TintAndShade = 0
        End With
 Next j

End Sub

Mais voilà ca ne fonctionne pas du tous alors qu'en sélectionnant un onglet et en lançant ceci

Range("B22", Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

Avez vous une idée car la je sèche complètement,

Merci d'avance pour vos solutions

Bonjour,

Et le With... Il sert à quoi le With ??

Essaie :

Sub net()
Set Wb_Ext = Workbooks("Extraction2017315")
    I = Wb_Ext.Sheets.Count

    For j = 2 To I
        With Wb_Ext.Sheets(j)
            .Range("B22", .Selection.End(xlToRight)).Select
            .Range(.Selection, .Selection.End(xlDown)).Interior.TintAndShade = 0
        End With
 Next j

End Sub

A+

Bonjour Galopin,

j'avais bien essayer avec .Range ect.... mais j'ai un message "propriété ou méthode non géré par l'objet...."

Etrange

(PS je suis toujours sur ton exemple de planning encore merci ca m'a ouvert des horizons....)

Sorry...

Sub net()
Set Wb_Ext = Workbooks("Extraction2017315")
I = Wb_Ext.Sheets.Count
For j = 2 To I
With Wb_Ext.Sheets(j)
.Activate
.Range("B22", Selection.End(xlToRight)).Select
.Range(Selection, Selection.End(xlDown)).Interior.TintAndShade = 0
End With
Next j
End Sub

Effectivement ca fonctionne mieux mais du coup au lieux de mettre toutes les cellules sans remplissage, la macro me fait la mise en forme de la ligne 21 partout "rose orange" moi qui voulais une mise en page sobre lol

Je suis finalement passer par Cells.select et c'est nickel merci pour le coup de main