Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Exécuter une macro pour certaines feuilles

dubxav

XLDnaute Nouveau
Bonjour,
J'ai crée une macro qui fonctionne depuis quelques temps.
toutefois lorsque je rajoute une nouvelle feuille, ma macro ne vient pas ajouter automatiquement une ligne supplémentaire.

Auriez-vous une astuce sachant que ma macro doit fonctionner à partir de la feuille 14 jusqu’à la dernière feuille (et les futures)?

Cordialement,

Xavier
 

Pièces jointes

  • macro.txt
    12.9 KB · Affichages: 4
Solution
C
Bonjour,

Au dela du fait que je ne vois pas à quoi peut servir un tel code,
le voici optimisé
VB:
Sub Septembre()
  Dim NbFeuille As Long
  Dim Plage As Range
  Set Plage = Sheets("Extraction").Range("B1:BS1", Sheets("Extraction").Range("a" & Rows.Count).End(xlUp))
  ' Nombre de feuille dans le classeur
  NbFeuille = Worksheets.Count
  ' Filtre avancé pour chaque feuille
  For ind = 14 To NbFeuille
    Plage.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets(ind).Range("A201:A202"), CopyToRange:=Sheets(ind).Range("o132:Cf147"), Unique:=False
  Next ind
End Sub

A+
C

Compte Supprimé 979

Guest
Bonjour,

Au dela du fait que je ne vois pas à quoi peut servir un tel code,
le voici optimisé
VB:
Sub Septembre()
  Dim NbFeuille As Long
  Dim Plage As Range
  Set Plage = Sheets("Extraction").Range("B1:BS1", Sheets("Extraction").Range("a" & Rows.Count).End(xlUp))
  ' Nombre de feuille dans le classeur
  NbFeuille = Worksheets.Count
  ' Filtre avancé pour chaque feuille
  For ind = 14 To NbFeuille
    Plage.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets(ind).Range("A201:A202"), CopyToRange:=Sheets(ind).Range("o132:Cf147"), Unique:=False
  Next ind
End Sub

A+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…