VBA vider le contenu de toutes les feuilles sélectionnées.

[Arpette]

Bonsoir à toutes et tous, je cherche comment éffacer toutes les valeurs de mes feuilles sélectionnées.

Ici je sélectionne les feuilles souhaitées

Sheets(Array(Feuil2.Name, Feuil3.Name, Feuil4.Name, Feuil5.Name, Feuil5.Name, Feuil5.Name, _
            Feuil6.Name, Feuil7.Name, Feuil8.Name, Feuil9.Name, Feuil10.Name, Feuil11.Name, _
            Feuil12.Name, Feuil13.Name, Feuil14.Name, Feuil15.Name, Feuil16.Name, Feuil7.Name)).Select

Pour toutes ces feuilles je souhaite effacer le contenu des A3 à L100000
Avec ceci j'efface que la première feuille

Range("A3:L1000000").Clear

Merci de votre aide
@+

 

[Robert]

Re : VBA vider le contenu de toutes les feuilles sélectionnées.

Bonsoir Arpette, bonsoir le forum,

Peut-ête comme ça :

Sub Macro1()
Dim i As Byte

For i = 2 To 17
    Sheets(i).Range("A3:L1000000").Clear
Next i
End Sub

 

[Arpette]

Re : VBA vider le contenu de toutes les feuilles sélectionnées.

Bonsoir Robert, merci c'est nickel )
@+

 

[job75]

Re : VBA vider le contenu de toutes les feuilles sélectionnées.

Bonsoir Arpette, Robert

Si vraiment on aime les listes :

Dim F As Object
Set F = Sheets(Array(Feuil2.Name, Feuil3.Name, Feuil4.Name, Feuil5.Name, Feuil5.Name, Feuil5.Name, _
            Feuil6.Name, Feuil7.Name, Feuil8.Name, Feuil9.Name, Feuil10.Name, Feuil11.Name, _
            Feuil12.Name, Feuil13.Name, Feuil14.Name, Feuil15.Name, Feuil16.Name, Feuil7.Name))
For Each F In F
F.Range("A3:L" & Rows.Count).Clear
Next

A+