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

Résolu/Fermé

Dromois26000 Messages postés 11 Date d'inscription mardi 16 avril 2013 Statut Membre Dernière intervention 2 juillet 2021 - 16 avril 2013 à 15:46
Zayx59530 Messages postés 3 Date d'inscription jeudi 30 octobre 2014 Statut Membre Dernière intervention 15 novembre 2014 - 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
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Fusionner plusieurs feuilles excel en une seule - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité

10 réponses

Réponse 1 / 10

JamesH_007
17 avril 2013 à 13:12

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
17 avril 2013 à 17:35

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 11 Date d'inscription mardi 16 avril 2013 Statut Membre Dernière intervention 2 juillet 2021
17 avril 2013 à 13:53

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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
17 avril 2013 à 14:26

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 11 Date d'inscription mardi 16 avril 2013 Statut Membre Dernière intervention 2 juillet 2021
17 avril 2013 à 14:54

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 11 Date d'inscription mardi 16 avril 2013 Statut Membre Dernière intervention 2 juillet 2021
17 avril 2013 à 18:43

Bonsoir,

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

Patrick

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
18 avril 2013 à 10:05

et moi, je sens le paté ?

t'es bien un dromois...

Réponse 7 / 10

Dromois26000 Messages postés 11 Date d'inscription mardi 16 avril 2013 Statut Membre Dernière intervention 2 juillet 2021
18 avril 2013 à 19:57

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 mardi 7 janvier 2014 Statut Membre Dernière intervention 7 janvier 2014
7 janv. 2014 à 15:09

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

Bonne année !

Amicalement

Réponse 9 / 10

ultralight
8 sept. 2014 à 23:31

Merci aussi

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

Réponse 10 / 10

Zayx59530 Messages postés 3 Date d'inscription jeudi 30 octobre 2014 Statut Membre Dernière intervention 15 novembre 2014
31 oct. 2014 à 10:03

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!

Discussions similaires

Reporter valeur sur autre feuille avec critere

Les feuilles Diddl

EXCEL] Fusionner 821 feuilles

Discussions similaires

Newsletters