Appliquer une macro en même temps sur toutes les feuilles

Résolu

Dromois26000 Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
Zayx59530 Messages postés 3 Date d'inscription Statut Membre Dernière intervention - 31 oct. 2014 à 10:03

Bonjour,
Je souhaite appliquer (vis un bouton) une macro en même temps à toutes les feuilles d'un classeur.
Cette macro supprime les lignes vides (mais contenant des formules) et elle édite la feuille.

Ma macro marche parfaitement mais uniquement sur la feuille active et je n'arrive pas à la faire fonctionner sur toutes les feuilles (sauf une qui contient les données.

Voila ma macro :

Sub SupprLigne()
'Suppression lignes vides
Dim Lg%, Plg As Range
Lg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range("x2").Formula = "=or($a2=0,$a2="""",$c2=0,$c2="""")"
Range("a1:c" & Lg).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("x1:x2"), Unique:=False
On Error Resume Next
Set Plg = Range("a2:a" & Lg).SpecialCells(xlCellTypeVisible)
Plg.EntireRow.Delete
Range("x2").ClearContents
ActiveSheet.ShowAllData

ActiveSheet.PrintOut
End Sub

Merci d'avance à ceux qui pourront m'aider.

Cdlt
Patrick

A voir également:

Appliquer une macro sur plusieurs feuilles
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Comment faire un livret avec des feuilles a4 - Guide
Nommez une application d'appel vidéo ou de visioconférence - Guide
Regrouper plusieurs feuilles excel en une seule - Guide
Comment supprimer une application préinstallée sur android - Guide

10 réponses

Réponse 1 / 10

JamesH_007

Bonjour Patrick. Pour répondre à ta question, il faut que tu utilises la fonction « Next » pour que ta macro puisse interpréter tous les onglets. Tu trouveras ci-dessous un exemple :

Sub MAJ()

Dim ws As Worksheet
Sheets("Sheet1").Select 'Ici met ton premier onglet

Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets

ws.Activate

'Ici ta macro

Next ws

End Sub

Voilà, tu me laisses savoir si ça t'aide ! Bonne journée.

Réponse 2 / 10

JamesH_007

Salut Patrick, tu trouveras ci-dessous ta macro complete :-)

Sub supprligne()

Dim ws As Worksheet
Sheets("Journaliers").Select

Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets

ws.Activate

'macro

if ws.Name <> "toto" Then

Dim Lg%, Plg As Range
Lg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range("x2").Formula = "=or($a2=0,$a2="""",$c2=0,$c2="""")"
Range("a1:c" & Lg).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("x1:x2"), Unique:=False
On Error Resume Next
Set Plg = Range("a2:a" & Lg).SpecialCells(xlCellTypeVisible)
Plg.EntireRow.Delete
Range("x2").ClearContents
ActiveSheet.ShowAllData

ActiveSheet.PrintOut

End if

Next ws

End Sub

A+

Réponse 3 / 10

Dromois26000 Messages postés 10 Date d'inscription Statut Membre Dernière intervention

Bonjour,

On progresse, effectivement ça semble s'appliquer à toutes les feuilles mais il ma faudrait exclure la première qui contient les formules et qui ne doit ni être modifiée ni être imprimée.

J'ai bien essayé d'indiquer le nom de la deuxième feuille au début mais visiblement ça prend quand même la première en compte et du coup ça me flingue complètement ce qui devrait rester imprimé sur les autres...

Comment exclure une feuille et ou mettre l'instruction, je patauge.

Merci en tout cas pour ta réponse rapide.

Réponse 4 / 10

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

Bonjour

si la feuille nommée "toto" est à exclure

Sub xxx()
Dim ws As Worksheet

Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
     If ws.Name <> "toto" Then
          MsgBox "pour faire qq chose"
     End If
Next
End Sub

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 10

Dromois26000 Messages postés 10 Date d'inscription Statut Membre Dernière intervention

Encore merci mais, honte à moi je ne comprends pas où mettre ce complément.

Voilà ce que j'ai actuellement, la feuille à exclure est "Journaliers".
Est-ce que j'abuse si je te demande de rectifier ma macro ?

Sub supprligne()

Dim ws As Worksheet
Sheets("Journaliers").Select

Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets

ws.Activate

'macro

Dim Lg%, Plg As Range
Lg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range("x2").Formula = "=or($a2=0,$a2="""",$c2=0,$c2="""")"
Range("a1:c" & Lg).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("x1:x2"), Unique:=False
On Error Resume Next
Set Plg = Range("a2:a" & Lg).SpecialCells(xlCellTypeVisible)
Plg.EntireRow.Delete
Range("x2").ClearContents
ActiveSheet.ShowAllData

ActiveSheet.PrintOut

Next ws

End Sub

Réponse 6 / 10

Dromois26000 Messages postés 10 Date d'inscription Statut Membre Dernière intervention

Bonsoir,

C'est génial !
Un grand merci à toi.

Patrick

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

et moi, je sens le paté ?

t'es bien un dromois...

Réponse 7 / 10

Dromois26000 Messages postés 10 Date d'inscription Statut Membre Dernière intervention

Oups ! Désolé, j'étais tellement content d'avoir la solution que j'ai même pas pensé à remercier les précédents.
Alors merci aussi à toi bien sur :-)

Réponse 8 / 10

Jean_max Messages postés 1 Date d'inscription Statut Membre Dernière intervention

Merci à tous, en lisant vos échanges j'ai pu résoudre un problème similaire!

Bonne année !

Amicalement

Réponse 9 / 10

ultralight

Merci aussi

J'avais besoin de faire la même chose, nickel

Réponse 10 / 10

Zayx59530 Messages postés 3 Date d'inscription Statut Membre Dernière intervention

Bonjour le forum! Je recherche une solution à un problème similaire.

Pour ma part mon code ressemble à cela:

Private Sub TextBox1_Change()
Dim ws As Worksheet
For Each ws In Sheets(Array("Sommaire", "Prévisions", "Tableau des téléchargements"))
Dim sCritere As String

sCritere = "=" & TextBox1.Text & "*"
ActiveSheet.Range("$A$18:$J$100000").AutoFilter Field:=1, Criteria1:=sCritere, _
Operator:=xlAnd

Next ws
End Sub

Cependant ma textbox ne filtre que ma première feuille "Sommaire" en gros elle ne traite que ma feuille active.
J'aimerai que celle-ci filtre également les deux autres feuilles que j'ai ajouté en "Sheets(Array(" sans toucher aux autres feuilles du classeurs (j'ai plus de 600feuilles mais seulement ces trois à traiter).

C'est possible? En espérant avoir une réponse :) Merci d'avance!

Votre réponse