CommentCaMarche
Recherche
Posez votre question Signaler

Macro sur excel

conseilbw - Dernière réponse le 16 juin 2011 à 22:28
Bonjour,
voila j'ai un tableau sur excel avec des filtre
je veux crée une macro qui me permet en cliquant sur un bouton d'avoir par exemple qu'un seul département ou ville;
je peux le faire directement par les filtres mais je veux une macro qui souvegard mes filtres d'analyse par un clic, comme si je suis spécifier le chemin au lieu de le refaire moi meme.
merci de votre aide ca va beaucoup m'aider comme je debut sur les macro.
Lire la suite 
Réponse
+0
moins plus
Bonjour,

Pour ce que tu veux faire, voici ce que je te conseille de faire.
Tu enregistres une macro (Outils, macro, nouvelle macro).
tu appliques ton premier filtre. et tu arrêtes l'enregistrement de la macro(outils, macro, arreter l'enregistrement).
tu renommes la macro en fonction de ton filtre. Normalement, si tu la relances, elle fonctionne.
Tu fais ca pour chacun de tes filtres que tu souhaites.
melanie1324 1328Messages postés vendredi 25 mai 2007Date d'inscription 10 novembre 2014Dernière intervention - 16 juin 2011 à 14:31
recopies ca et ca ira

Sub MacroInjectiondedonnée()
'
' MacroInjectiondedonnée Macro
'
Application.ScreenUpdating = False

'
Range("D7:K9").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("eotp 2011 JANV_MAI").Select
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("C4").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("base de données bip ").Select
ActiveWindow.SmallScroll Down:=-9
Range("D7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D7").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll Down:=12
Range("D1325").Select
Sheets("EOTP 2010 JANV_MAI").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("C7").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("base de données bip ").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D1325").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll Down:=6
Range("D1795").Select
Sheets("CCT 2011").Select
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
Range("C7").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("base de données bip ").Select
Range("D1795").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D1795").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll Down:=9
Range("D2728").Select
Sheets("CCT 2010").Select
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
Range("C8").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("base de données bip ").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=9
Rows("2737:2824").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("C2736").Select

Range("B3").Select
End Sub
Répondre
conseilbw 9Messages postés mardi 31 mai 2011Date d'inscription 12 juillet 2011Dernière intervention - 16 juin 2011 à 15:14
merci ca marche super bien

merci
Répondre
conseilbw- 16 juin 2011 à 15:18
melanie je reviens encors vers toi



j'ai quatre tabeaux "excel" que je veux consolider pour avoir un seul, sachant qu'ils ont la même forme.

je veux que mes quatres tableaux que je modifié (la modification change juste le nombre de ligne, les entêtes reste inchangé) chaque mois puissent mettre a jours le tableau centralisateur des informations.

soit par macro ou autre.

J'ai essaié avec la macro (enregistrement) mais le probleme mes quatres tableaux change de nombre de ligne des fois plus grand des fois moins grand.

un autre probleme lier a mes quatres tabeau, je veux une macro qui suprime les ligne vide.

merci beaucoup de votre aide cela va me permettre de gagner beaucoup de temps

merci beaucoup
Répondre
melanie1324 1328Messages postés vendredi 25 mai 2007Date d'inscription 10 novembre 2014Dernière intervention - 16 juin 2011 à 16:54
je ne vais pas pouvoir t'aider car demande trop de temps. ouvre une autre demande et y en a qui t'aideront.
Répondre
coneilbw- 16 juin 2011 à 22:28
merci Mélanie
Répondre
Ajouter un commentaire
Ce document intitulé «  macro sur excel  » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.