Plantage Excel après une boucle

Bonjour,

Je suis en galère complète ... J'ai crée un code pour faire une analyse statistique. Pour pouvoir supprimer les doublons (nom des individus identiques, j'ai créé une boucle, mais elle fait complètement buguer excel ... L'autre soucis est, qu'elle marche quand j'ai

Individu :

A

A

A

B

B

C

C

Mais pas quand j'ai :

A

A

A

B

C

D

D

En gros elle me zappe les données B,C,D dans le 2nd cas ...

Est-ce que quelqu'un aurait une piste de réponse ? ...

Merci bien, bonne journée

Sub CopieCrois3()

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

Application.DisplayAlerts = False

Application.DisplayStatusBar = False

DisplayPageBreaks = False

Dim DernLigne As Long

Dim NumLigne As Long

DernLigne = 3000

Sheets("Feuil1").Range("N:N, P:P, AO:AO").Copy Destination:=Sheets("BDD").Range("A1")

Range("G3").AutoFill Destination:=Range("G3:G" & DernLigne)

Sheets("TCD1").PivotTables("TCD1").PivotCache.Refresh

Sheets("TCD1").Range("A2:A" & DernLigne, "B2:B" & DernLigne).Copy Destination:=Sheets("BDD").Cells(13, 10)

Sheets("TCD2").Range("A2:A" & DernLigne).Copy Destination:=Sheets("BDD").Cells(13, 22)

With Range("J13:J500")

.Borders.Color = RGB(0, 0, 0)

.Borders.Weight = 3

.Font.Bold = True

End With

Range("L13:T13").AutoFill Destination:=Range("L13:T500")

Range("W13:Y13").AutoFill Destination:=Range("W13:Y200")

NumLigne = 13

While Cells(NumLigne, 10) <> ""

Ligne_Fin = NumLigne

While Cells(Ligne_Fin, 10) = Cells(Ligne_Fin + 1, 10)

Ligne_Fin = Ligne_Fin + 1

Wend

With Range(Cells(NumLigne + 1, 10), Cells(Ligne_Fin, 10))

.Font.ColorIndex = 2

.Borders.Color = RGB(255, 255, 255)

End With

NumLigne = Ligne_Fin + 1

Wend

ActiveSheet.Calculate

Application.CutCopyMode = False

Application.ScreenUpdating = True

Application.DisplayAlerts = True

Application.DisplayStatusBar = True

DisplayPageBreaks = True

End Sub

Bonjour Jlx.

Il y a des méthodes bien plus rapides pour extraire une liste sans doublon.

Pourrais-tu joindre ton fichier ?

Bonjour thebenoit59,

ça risque d'être compliqué, c'est un document interne confidentiel ... En gros, j'ai des prénoms et noms de personnel, et le but serait de mettre en blanc le nom suivant s'il est identique à celui du dessus. De manière à ne pas avoir 20 fois le même nom qui s'affiche d'affilé mais de l'avoir uniquement 1 fois d'affiché ...

Je ne sais pas si c'est très clair ...

Bonjour Jlx98

une MFC comme celle-là peut-elle résoudre ton problème ?

Sachant que (comme tu peux le constater dans la colonne NOM Prénom - en bleu) seuls les doublons "qui se suivent" sont pris en compte. Mais pour remédier à ce désagrément (si cette situation se présente dans ton listing) tu peux peut-être le trier...

PS/ j'ai mis un "FOND ROUGE" pour que dans l'exemple les doublons soient visibles... à toi de choisir la couleur adaptée !

Jlx98 a écrit :

Bonjour thebenoit59,

ça risque d'être compliqué, c'est un document interne confidentiel ...

Je ne sais pas si c'est très clair ...

Et en faire une copie anonymisée , tu ne sais pas faire ?

Sinon tu vas envoyer un fichier "qui ressemble à" et au final qui ne sera pas identique

P.

Rebonjour,

Voilà ce que je souhaite obtenir, j'ai mis la partie qui m'intéresse avec le code.

Merci d'avance

Bonjour Jlx98

Même si je suis adepte de la programmation, je pense que la solution avec une MFC doit tout à fait convenir à ton problème... !

De plus cette solution n'efface pas les données, ce qui peut être pratique pour les formules à venir !

Démonstration dans "ton fichier" en retour