Effacement de données dans un classeur

  • Initiateur de la discussion Initiateur de la discussion br44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

br44

XLDnaute Impliqué
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
 
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 😉
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour