Effacer cellule sur plusieurs feuilles

[tvhabdo]

Bonjours tous... le forum ... 🙂

1 - J'ai un fichier Excel avec 10 feuilles (toto, papa, groland... etc, etc..)
2 - J'ai enregistré une Macro que j'ai associé à un bouton d'action :

Sub remiseazero()

Range("B4").Select
Selection.ClearContents
Range("B5").Select
Selection.ClearContents
End Sub
Mais je souhaiterais que cette macro s'applique a toto et groland en même temps , plutôt que d'aller sur chaque feuille et de cliquer sur mon bouton d'action...
Merci a tous pour votre savoir ... Patrick 🙂

 

[pierrejean]

Re : Effacer cellule sur plusieurs feuilles

bonjour tvhabdo

A tester

Sub remiseazero()
sheets("toto").Range("B4:B5").ClearContents
sheets("groland").Range("B4:B5").ClearContents
End Sub

 

[Pierrot93]

Re : Effacer cellule sur plusieurs feuilles

Bonjour tvhabdo,

le code ci dessous efface les cellules B4 et B5 de toutes les feuilles du classeur actif.

Dim ws As Worksheet
For Each ws In Worksheets
    ws.Range("B4:B5").ClearContents
End If

bon après midi
@+

Edition : Bonjour PierreJean, désolé je n'avais pas raffraichi...

 

[tvhabdo]

Re : Effacer cellule sur plusieurs feuilles

Salut, jean Pierre...

Merci pour ton aide ça marche mais peut tu m'aider a completer

dans chaque feuille, je souhaite effacer les cellules de B4 a B15, de D4 a D15 et de F4 a F15 en laissant intact les autres colonnes....

Merci pour le partage de tes connaissances 🙂

 

[tvhabdo]

Re : Effacer cellule sur plusieurs feuilles

Salut, Pierrot,

La macro de Jean Pierre est plus adéquat, car je ne souhaite pas effacer TOUTES les feuilles, seulement une selection... 🙂

Merci pour le partage de vos connaissances ..

Patrick 🙂

 

[Pierrot93]

Re : Effacer cellule sur plusieurs feuilles

Re

pour plusieurs plages de cellules :

    Sheets("groland").Range("B4:B15,D4:D15,F4:F15").ClearContents

@+

 

[tvhabdo]

Re : Effacer cellule sur plusieurs feuilles

Yeaaaaaaaaahhhh ....!!!! ça marche, et même ça court ...

Merci a tous et Bonne Année .. hic..!!!! 🙂

Patrick