aide sur une macro excel Résolu/Fermé

Question

bonsoir à tous ;)

je voulais tout d'abord remercier tout les helper et tout le monde qui participe à ce forum d'aide c'est vraiment génial!

Voilà ce qui m'amène, j'ai un fichier de plusieurs centaines de données et je souhaite supprimer 2 lignes entière si il y a 2 cellules identiques 

je voudrais vous faire parvenir le fichier mais je ne sais pas comment faire pour le moment ;)

Merci encore

Mike-31 · Answer

Salut,

effectivement avec le fichier ce sera mieux, tu peux le joindre à partir de ce lien

https://www.cjoint.com/

quelle colonne dois tu tester

toopey77 · Answer

RE-Mike, et hop voici le lien de mon doc

http://cjoint.com/13av/CDxwa6bDaaA.htm

je t'ai mis en jaune exactement les colonnes qui doivent être analysées


Merci beaucoup

Mike-31 · Answer

Re,

ce qui pose problème sont tes cellules fusionnées, je regarde ce qui peut être fait

Mike-31 · Answer

Re,

cela change tout, si je comprends bien il s'agit de supprimer les nouvelles lignes qui viendraient en doublons, c'est cela

Et comment viennent ces infos dans ce tableau manuellement, macro ou formule

toopey77 · Answer

Non non, les infos se rajoute via une macro et il faut supprimer (si il y a un doublon dans la colonne C) l'ancien enregistrement. 

je ne sais pas si c'est très clair tu comprends?

Mike-31 · Answer

Re,

essaye ce bout de code voir

Sub SupDoublon()
'
Doublon = Range("C65000").End(xlUp).Value
 If Application.CountIf(Range("C2:C" & Range("C65000").End(xlUp).Row), Doublon) > 1 Then
 Range("C65000").End(xlUp).EntireRow.Select
 Selection.EntireRow.Delete
 End If
End Sub

toopey77 · Answer

Bonjour Mike-31 et merci encore.

Je viens d'essayer la macro... c'est un bon début mais si elle trouve un doublon elle supprime la ligne que je rajoute... or moi je souhaiterais qu'elle supprimer l'ancienne ligne... 

si cela peut t'aider en colonne F j'ai la date d'enregistrement de la ligne (format date jj/mm/aaaa) peut être qu'on pourrait annuler la ligne en doublon la plus ancienne? 

Merci en tout cas

Mike-31 · Answer

Re, 

je remet ma réponse, la première s'est perdu, je ne la vois pas 

colle ce code dans les propriétés de ta feuille à la place du dernier, si tu as des données colonne I dit le moi avant et dis moi quelle colonne je peux utiliser. Ce code s'applique colonne C de la ligne  2 à 100 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Dim i As Long 
Range("I2:I100").FormulaR1C1 = "=COUNTIF(RC3:R100C[-6],RC[-6])" 
For i = 1 To 100 
        If Cells(i, 9) >= 2 Then Range(Cells(i, 9), Cells(i - 1, 9)).EntireRow.Delete 
Next i 
[I:I].ClearContents 
End Sub 


Si le code fonctionne, il faudra certainement mettre le code dans un bouton activeX afin de pouvoir travailler sur la feuille et déclencher manuellement la macro 
  
A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

comme tu as une cellule fusionnée en tête de ligne du tableau que j'ai zappée, ce qui supprime 4 lignes il faut simplifier le code, pour un bouton activex par exemple

Private Sub CommandButton1_Click()
Dim i As Long
Range("I2:I100").FormulaR1C1 = "=COUNTIF(RC3:R100C[-6],RC[-6])"
For i = 1 To 100
If Cells(i, 9) >= 2 Then Cells(i, 9).EntireRow.Delete
Next i
[I:I].ClearContents
End Sub

Mike-31 · Answer

Re,

remplace l'ancien code par celui ci, qui fonctionne avec ou sans cellule fusionnées,

les dates colonne F sont elles croissantes de haut vers le bas


Private Sub CommandButton1_Click()
Dim i As Long
Range("I2:I100").FormulaR1C1 = "=COUNTIF(RC3:R100C[-6],RC[-6])"
For i = 1 To 100
If Cells(i, 9) >= 2 Then Range(Cells(i, 9), Cells(i + 1, 9)).EntireRow.Delete
Next i
[I:I].ClearContents
End Sub

toopey77 · Answer

SSuuupppeeerrrr !!!!! 


Merci beaucoup Mike-31. 
ça marche parfaitement ! 

je suis intéressé pour apprendre les macros de façon plus approfondis, tu me conseillerais de commencer par ou? 

Merci encore!!!!

Mike-31 · Answer

Re,

Déjà bien connaitre Excel, ensuite se créer des besoins et les régler par VBA et suivant ton niveau, te procurer une notice pas trop compliquée au départ.
Ensuite tu t'inscris comme membre sur un forum informatique exemple sur Comment ça Marche bien sur, suivre des discussions et essayer de les solutionner par toi même et les corriger avec les réponses qui sont données.
Tu peux également exposer un problème rencontré sur le forum et ne pas perdre de vue les aides intégrés et n'oublie pas Google est ton ami ou tu trouveras inévitablement des réponses

Aide sur une macro excel

12 réponses

Discussions similaires