Aide sur macro excel

Fermé
toopey77 - 23 mai 2013 à 19:51
Julmimi73 Messages postés 1 Date d'inscription jeudi 15 novembre 2012 Statut Membre Dernière intervention 30 mai 2013 - 30 mai 2013 à 16:39
Bonjour à tous et merci pour ce forum d'aide vraiment génial,

je viens vers vous afin de confectionner une macro sur excel 2003 qui supprime les doublons sur un tableau qui s'étend de c8 à IV65000.

le principe de la macro?

il faudrait que la macro repère les doublons dans la colonne C (à partir de c8)
et efface la ligne qui est plus ancienne en colonne f (la colonne F est sous format date j/mm/aaaa)

merci beaucoup de votre aide ;)



A voir également:

8 réponses

Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
Modifié par Mike-31 le 23/05/2013 à 21:04
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.
0
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.
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
24 mai 2013 à 00:15
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

0
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
24 mai 2013 à 10:32
Re,

Il faut tester, donne moi les limites de ton tableau
0
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
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
24 mai 2013 à 11:51
Re,

Oui de B8 à quelle colonne ?10000
0
Julmimi73 Messages postés 1 Date d'inscription jeudi 15 novembre 2012 Statut Membre Dernière intervention 30 mai 2013
30 mai 2013 à 16:39
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 ?
0