MACRO Fermé

Question

Bonjour

j'ai fait une macro sur excel 

Range("B5:O33").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "'Frais janvier'!Criteria"), CopyToRange:=Range("B69:O69"), Unique:=False
    ActiveWindow.SmallScroll Down:=21
    Range("B70:O83").Select
    Selection.Copy
    Sheets("Feuil1").Select
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Font.Bold = False
    Selection.Font.Bold = True

j'aimerai pourvoir l'utiliser quelle que soit la feuille, comment changer

CriteriaRange:=Range( _
        "'Frais janvier'!Criteria")

Merci de votre aide

WeaponEDGE · Answer

Bonjour,

pour le faire avec n'importe quel feuille il faut mettre le nom de celle ci dans une variable et utiliser la variable dans le code,

Je te joint la macro modifié :

    NOM_Feuille = "Frais janvier"
    
    Range("B5:O33").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    "'" & NOM_Feuille & "'!Criteria"), CopyToRange:=Range("B69:O69"), Unique:=False
    
    Range("B70:O83").Select
    Selection.Copy
    
    Sheets("Feuil1").Select
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Selection.Font.Bold = True

Après je ne sais pas exactement ce que tu recherches donc je peux pas aller plus loin dans l'automatisation de l'action à effectuer.

MACRO

1 réponse

Discussions similaires