Efacer 2 colonne sur 4 feuilles

Bonjour

je cherche un code pour effacer 2 colonne "A5:A1000" et "D5:D1000" aux feuilles 1,2,3 et4 nommé transpose1, transpose2, transpose3 et transpose4.

J'avais comme code ceci pour une feuille qui fonctionne très bien;

Sub effacer()

Application.Union(Range("A5:A6000"), Range("D5:D6000")).ClearContents
Range("D5").Select
End Sub

Je vous remercie de votre aide

Max

Bonjour,

essaie ainsi :

Public Sub CleanData()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        Select Case ws.Name
            Case "transpose1", "transpose2", "tranpose3","transpose4":
            ws.Range("A5:A6000,D5:D6000").ClearContents
            Case Else:
        End Select
    Next ws
End Sub

Bonjour Jean-Eric

Nickel je te remercie et te souhaite une bonne journée

Max

Bonjour Max,

Tu devrais retourner sur ton sujet : https://forum.excel-pratique.com/viewtopic.php?f=2&t=107046

et lire mon message du 29 mars à 19 h 40.

dhany

EDIT ADMIN : doublon verrouillé