RAZ même plage sur différents onglets (VBA)

[nounbxl76]

Bonjour le forum,

J'ai un nouveau problème... dans un fichier, je tente de faire RAZ de la plage C8 à AG31 (vider les cellules et plus de remplissage) sur tous les onglets sauf l'onglet "Accueil".
J'ai fait ce code mais ça ne marche pas... Qu'en pensez-vous SVP?

Sub Efface()
Dim ws As Worksheet
For Each ws In ThisWorkbook
    If ws.Name <> "Accueil" Then
        ws.Range("C8:AG31").ClearContents
        ws.Range("C8:AG31").Interior.Color = xlNone
    End If
Next ws
End Sub

Merci par avance.

Cordialement,

 

[Pierrot93]

Re : RAZ même plage sur différents onglets (VBA)

Bonjour,

J'ai fait ce code mais ça ne marche pas...

cela veut dire quoi ? message d'erreur ou pas le résultat attendu ?

bonne journée
@+

 

[Efgé]

Re : RAZ même plage sur différents onglets (VBA)

Bonjour nounbxl76
Bonjour Pierrot
Essai comme ceci

For Each ws In ThisWorkbook.Worksheets

Il faut préciser que tu utilise la collection des WorkSheets
Cordialement

 

[Pierrot93]

Re : RAZ même plage sur différents onglets (VBA)

Re, bonjour fg et bien vu... même pas tilté sur ce coup moi....

 

[nounbxl76]

Re : RAZ même plage sur différents onglets (VBA)

Re,

La macro présentait le bug suivant :

Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet.

Ce bug a été corrigé par la proposition de efgé (merci au passage).
Par contre, les cellules sont coloriées en turquoise... Je joins le fichier pour plus de facilité. La macro se lance depuis le changement de la cellule B1 de la feuille "Accueil" (Worksheet_change).

Encore merci.

 

[Efgé]

Re : RAZ même plage sur différents onglets (VBA)

Re
Pas certain d'avoir compris, mais comme il y a des mises en formes conditionnelles, celles ci prennent le pas sur la couleur de la cellule. Donc même si la cellule à un fond transparent, elle présente un fond de la couleur de la mise en forme.
Cordialement

 

[nounbxl76]

Re : RAZ même plage sur différents onglets (VBA)

Re,

Les MFC sont juste censées me montrer les jours fériés en bleu fluo et les we en gris.
Il n'y a pas de MFC en turquoise... étrange...

 

[Efgé]

Re : RAZ même plage sur différents onglets (VBA)

Re
Si tu utilises XlNone, il faut utiliser ColorIndex

ws.Range("C8:AG31").Interior.ColorIndex = xlNone

Cordialement

 

[nounbxl76]

Re : RAZ même plage sur différents onglets (VBA)

Super ! ça marche nickel !
Merci encore.

Bonne soirée.