Aide sur macro excel

Salut,

Les dates qui se trouvent colonne F sur les lignes en doublon de la colonne C, logiquement les dates les plus anciennes sont en haut de ton tableau ou peut il y avoir des dates sur les lignes en doublon plus ancienne en bas ou mélangé dans ces lignes

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Merci MIke-31,

et bien les dates vont de plus récent à plus anciennent... en partant vers les bas.
cad plus on monte vers le haut du tableau, plus les dates sont récentes.

Re,

tu colles ce code dans un module et l'associe à un bouton ou tu colles le code dans un bouton activex
Si la colonne M contient des données avant d'utiliser ce code donne moi le numéro d'une colonne vide

Sub test ()
Dim i As Long
'
Range("M2:M100").FormulaR1C1 = "=IFERROR(IF(MATCH(C[-10],C[-10],0)=ROW(),"""",2),"""")"
For i = 1 To 100
If Cells(i, 9) = 2 Then Range(Cells(i, 5), Cells(i + 1, 9)).EntireRow.Delete
Next i
[M:M].ClearContents
End Sub

Bonjour Mike-31,

Merci pour cette formule,
la colone A est libre... malheureusement la M est utilisée.
Me confirmes tu que le tableau ira trier même les lignes loingtaines?
(au dela de la 6000eme ligne par exemple? )

Merci beaucoup

Re,

Il faut tester, donne moi les limites de ton tableau

mon tableau part de b8 et potentiellement peut aller jusqu'a la 10 000 eme ligne... sachant qu'il prend l'intégralité des colonnes sauf la A.

Tu penses que c'est trop lourd pour une macro?

merci en tout cas

Re,

Oui de B8 à quelle colonne ?10000

Bonjour,

Je rencontre un problème avec un maccro sur un fichier.
J'étais sous excel 2007, et en passant à 2010, il ne fonctionne plus.

Je l'ai refais plusieurs fois, mais toujours pareil.

Macro46 Macro
'

'
    Range("B4:B23").Select
    Selection.Copy
    Windows("SEMAINE 08.xlsm").Activate
    ActiveWindow.SmallScroll Down:=75
    Range("B137").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("I147").Select
    ActiveWindow.SmallScroll Down:=-3
    Windows("SUIVI CHARGES FISCALES.xlsx").Activate
    ActiveWindow.Close
    Range("J134").Select
    ActiveWindow.SmallScroll Down:=-39
End SubÏ

Cette ligne est surlignée en jaune vers la fin : Windows("SUIVI CHARGES FISCALES.xlsx").Activate

Auriez-vous une idée pour solutionner le problème ?