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.
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
merci
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