• Initiateur de la discussion Initiateur de la discussion NC-choupi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

N

NC-choupi

Guest
Bonjour à vous tous! je fais encore appel à vos services car je ne sais pas comment faire pour modifier une macro.
Je vous joins le fichier afin que vous cerniez mieux mon souci!
Lorsque la macro a été créée, j'avais un certain nombre de lignes dans le semainier et le journalier.
Depuis j'ai du rajouter des lignes à la fois dans le semainier et dans le journalier.J'ai jeté un coup d'oeil dans le code

Sheets("sem").Range"B4:AK60").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Filtre").Range("A3:AJ5"), CopyToRange:=Range("B4:G4" _
), Unique:=False
et effectivement il prend de B4 à AK60 alors qu'il faudrait aller maintenant jusqu'à la cellule AK84. J'ai essayé de modifier en changeant AK60 par AK84 mais il semblerait que j'ai une erreur de syntaxe.
Merci de votre aide,
nathalie
 

Pièces jointes

Re : Modifier une macro

Bonjour
J'ai essayé est ça marche? si tu es sur la bonne feuille...
exemple pour samedi:
Sheets("sem").Range("B4:AK84").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Filtre").Range("A33:AJ35"), CopyToRange:=Range( _
"B4:G4"), Unique:=False
si je choisi la page sa et que je clic sur le bouton je n'ai pas de message d'erreur...

A+ François
 
Re : Modifier une macro

effectivement ca marche pour tous les jours sauf

Sub Mardi()
'
' Mardi Macro
' Macro enregistrée le 17/10/2007 par LG
'

'
Range("B5:G74").Select
Selection.ClearContents
Range("A1").Select
Sheets("sem").Range("B4:AK84").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Sheets("Filtre").Range("A13:AJ15"), CopyToRange:=Range( _
"B4:G4"), Unique:=False
End Sub

J'ai le message erreur de compilation . erreur de syntaxe
 
Re : Modifier une macro

RE :
à qui réponds tu, Fanfan ou moi ?
As tu essayé le fichier que j'ai joints ?
Je n'ai aucun message d'erreur pour aucun jour .

A te lire

Cordialement
je viens d'essayer le fichier que tu as joins.
effectivement il n'y a pas de message d'erreur.
Je vais donc utiliser ton code pour mettre à jour toutes mes semaines.
Merci encore,
cordialement
nathalie
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
687
Réponses
2
Affichages
1 K
A
Réponses
7
Affichages
1 K
A
K
Réponses
3
Affichages
929
M
  • Question Question
Réponses
3
Affichages
805
Mr.Adrien
M
Retour