MACRO
VALNOE2626
Messages postés
12
Statut
Membre
-
WeaponEDGE -
WeaponEDGE -
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
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
A voir également:
- MACRO
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
1 réponse
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.
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.
