Macro

[cha]

Bonjour,
j'ai crée une macro qui copie une base de données sur une autre feuille puis qui trie cette base et qui ajoute un compteur.
Mon problème c que quand on rajoute de nouvelles lignes ds la base initiale et qu'on active la macro elles ne sont pas prisent en compte. Je pensais qu'en mettant la base sous forme de liste le copier coller prendrait obligatoirement les nouvelles lignes inserer ds la liste mais non puis si je selectionne tte la feuille ca mets une heure a faire le calcul de la macro.
Comment dois-je faire pour prendre en compté tte les modif de ma base initiale?
MErci bcq à celui qui aura la solution

 

[PascalXLD]

Re : Macro

Bonjour

si tu nous mettais ta macro pour qu'on puisse la modifier

 

[Pierrot93]

Re : Macro

Bonjour Cha

mets peut être ton fichier en pièce jointe sans données confidentielles avec la macro, cela sera plus facile pour t'aider.

bon après midi
@+

Edition : boujour Pascal, t'avais pas vu

 

[cha]

Re : Macro

G mis en pièce jointe ma base de données et voici ma macro (je ne pouvais pas laisser le fichier excel avec la macr car il etait trop volumineux). Donc mon problème c que cette macro ne prend en aucun compte les évolutions faites sur la base de données et je ne comprend pas pourquoi!
merci

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 13/06/2007 par Informatique
'
' Touche de raccourci du clavier: Ctrl+m
'
Range("A1😛846").Select
Range("D6").Activate
Selection.Copy
Sheets("Feuil1").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Range("A1😛846").Select
Range("H15").Activate
Application.CutCopyMode = False
Range("A1😛845").Sort Key1:=Range("P2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Range("Q1").Select
ActiveCell.FormulaR1C1 = "Compteur"
Range("Q2").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(RC[-1],""<>""&R[-1]C[-1])"
Range("Q2").Select
Selection.AutoFill Destination:=Range("Q2:Q846"), Type:=xlFillDefault
Range("Q2:Q846").Select
Range("N854").Select
ActiveCell.FormulaR1C1 = "=SUM(C[3])-1"
Range("M854").Select
ActiveCell.FormulaR1C1 = "Nombre total:"
Range("M854:N854").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Range("Q852").Select
ActiveWorkbook.Save
End Sub