Effacement de données dans un classeur

[br44]

Bonjour à toutes et à tous ,

Ce petit message pour savoir si il est possible d'efface toutes les feuilles d'un classeur en une seul fois .


J'ai un classeur de douzes feuilles nomées de "JANVIER" à"DECEMBRE" chaque feuille est remplies d'environ 12000 lignes sur 7 colonnes de"A à G" .

quelle serais la boucle faire pour effacer ces plages. j'ai retrouvée une macro sur le forum mais j'ai une erreure de "type 13 " quand elle s'èxècute .

Voici la macro consernée :

Sub ma feuille
Dim mafeuille As Worksheet

For each mafeuille in Worksheets

Sheets(mafeuille).range ("A1:G 12000").Clearcontent

Excit for

End sub

Espérant avoire ètè claire dans ma demande je vous remercie par avance et voius dit à plus sur se fil . Amicalement Br 44

 

[jelome]

Re : Effacement de données dans un classeur

Bonjour à tous,

Je me retrouve moi aussi devant une erreure de type 13 que je n'arrive pas a faire disparaitre. Il s'agit d'une macro recherche puis efface, voici le code avec en jaune l'endroit ou ca déconne :
Sub recherchedesaffecte()
Dim Str_Plage As String
Dim Cel As Object
Dim Feuil As Worksheet
Dim Str_critère As String
Dim X As Byte

Str_Plage = "B2😀51"
Str_critère = InputBox("Commande à désaffecter ?")
For Each Feuil In Sheets
For Each Cel In Feuil.Range(Str_Plage)
If Cel = Str_critère Then

Feuil.Activate
Cel.Activate
Cel.ClearContents
Cel.Offset(0, 1).ClearContents
MsgBox ("Commande expédiée")

Select Case X
Case 6
Feuil.Activate
Cel.Activate
Exit Sub
Case 2 'annuler on sort
Exit Sub
Case Else 'Non=7
'on fait rien, mais on pourrait
End Select
End If

Next Cel
Next Feuil

Feuil14.Select

End Sub

Merci pour votre aide 😉