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 SubJe vous remercie de votre aide
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.
Ce sujet est un double de celui-ci : https://forum.excel-pratique.com/viewtopic.php?f=2&t=107636
(doublon créé par le système informatique, car date identique : même jour, même heure)
dhany
A
Bonjour
Sub effacer()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name = "transpose1" Or sh.Name = "transpose2" Or sh.Name = "transpose3" Or sh.Name = "transpose4" Then
sh.Activate
Application.Union(Range("A5:A6000"), Range("D5:D6000")).ClearContents
Range("D5").Select
End If
Next
End SubCordialement