Supprimer doublons dans excel2010 dans une même colonne en comparant la valeur d
Jerome
-
Jerome -
Jerome -
Bonjour,
Je m'explique, je voudrais créer une macro qui me permet de vérifier dans la première colonne les doublons et supprimer la ligne par rapport à ma deuxième colonne ou j'ai 5 chiffre 0 ; 7; 8 et 100.
Si dans les doublons j'ai dans ma deuxième colonne la valeur 100 alors supprimer les lignes en doublons mais si dans la deuxième colonne je n'ai pas la valeur 100 alors colorier en rouge les deux ou trois lignes ou cellules en doublons.
merci d'avance pour votre aide
Je m'explique, je voudrais créer une macro qui me permet de vérifier dans la première colonne les doublons et supprimer la ligne par rapport à ma deuxième colonne ou j'ai 5 chiffre 0 ; 7; 8 et 100.
Si dans les doublons j'ai dans ma deuxième colonne la valeur 100 alors supprimer les lignes en doublons mais si dans la deuxième colonne je n'ai pas la valeur 100 alors colorier en rouge les deux ou trois lignes ou cellules en doublons.
merci d'avance pour votre aide
5 réponses
-
Ok
Dans ce cas pas besoin de macro, une simple mise en forme conditionnelle suffit
Sélectionner la colonne A puis Accueil Mise en forme conditionnelle Nouvelle règle Appliquer formule et entrer la formule suivante :
=ET(NB.SI(A:A;A1)>1;B1<>100) avant de choisir la couleur rouge avec Format
Cdlmnt
-
Ça c'est parfait pour la deuxième partie mais il faut que je supprime les doublons en gardant les lignes à 100 exemple j'ai 3 doublons une à 7 une autre à 8 et la troisième à 100 il faut que je garde celle à 100. Et pour les doublons où il n'y a pas de ligne à 100 j'ai besoin de les garder et je les ferai ressortir avec la formule de conditionnement que tu viens de me donner. Je t'en remercie.
-
-
Voilà la macro pour supprimer les doublons à mettre dans le worksheet de la feuille à traiter
Sub supp()
Dim DernLigne As Long
DernLigne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
For n = DernLigne To 1 Step -1
doub = Application.WorksheetFunction.CountIf(Range("A:A"), Range("A" & n).Value)
If doub > 1 And Range("B" & n) = 100 Then
aa = Range("A" & n).Value
For t = DernLigne To 1 Step -1
If Range("A" & t) = aa And Range("B" & t) <> 100 Then Rows(t & ":" & t).Select: Selection.Delete Shift:=xlUp
Next t
End If
Next n
End Sub
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein -
Bonjour
La macro pour supprimer les doublons avec 100 :
Sub supp()
Dim DernLigne As Long
DernLigne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
For n = DernLigne To 1 Step -1
doub = Application.WorksheetFunction.CountIf(Range("A:A"), Range("A" & n).Value)
If doub > 1 And Range("B" & n) = 100 Then
Rows(n & ":" & n).Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub
A mettre dans le worksheet de la feuille en question
Après tu appliques une mise en forme conditionnelle sur la colonne A pour faire colorer les doublons qui restent
Cdlmnt
-
Bonjour Jerome,
Tu demandais :
Si dans les doublons j'ai dans ma deuxième colonne la valeur 100 alors supprimer les lignes en doublons
donc ma macro supprime les lignes avec 100
Maintenant tu dis vouloir les garder et les autres aussi !
Quelles lignes veux tu supprimer alors ?
Dans l'attente
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bon alors faut repartir sur une macro plus complexe que la précédente
Je regarde ça
A+
