Discussion :

[Vincent32]

Bonjour,

Avant de réaliser toute une série d'opération par code, je souhaiterais effacer les valeurs contenues dans certaines feuille de mon classeur. Comment dois-je m'y prendre ?

Merci pour votre aide cordialement

Vincent

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

worksheets("Feuil2").range("A3").clearcontents

Efface le contenu de A3 de Feuil2

[jfontaine]

Bonjour,

Une boucle sur chaque feuille du classeur et validation de la suppression suivant le nom de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub sup()
 
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
    If InStr("Feuil1,Feuil2", sh.Name) > 0 Then
        sh.Cells.ClearContents
    End If
Next
 
End Sub

Tu peux aussi faire l'inverse, et lister les feuilles à ne pas vider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub sup()
 
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
    If InStr("Feuil1,Feuil2", sh.Name) = 0 Then
        sh.Cells.ClearContents
    End If
Next
 
End Sub

[Vincent32]

Merci pour votre aide, ça a l'air de fonctionner correctement