XL 2013 Extraire les doublons dans la colonne C

[lestoiles1]

Bonjour, j'aimerais mettre supprimer les doubons et mettre le resultat dans la cellule B.
Quelle formule employée?

 

[mapomme]

Bonjour @lestoiles1,

Formule matricielles en B1 à copier/tirer jusqu'en B50 :

=SIERREUR(INDEX(A$1:A$50;PETITE.VALEUR(SI(N(EQUIV(A$1:A$50;A$1:A$50;0)=LIGNE(A$1:A$50));LIGNE(A$1:A$50));LIGNES($1:1)));"")

 

[lestoiles1]

Bonjour,
#name?, c'est ce qui est écrit
Patrice

 

[lestoiles1]

ah mon excel est en anglais, est-ce qu'il y a une version anglaise svp?

 

[soan]

Bonjour lestoiles1, mapomme,

essaye avec : =SIERROR() ; il y aura aussi ROW() au lieu de LIGNE() ;
pour PETITE.VALEUR(), ça devrait être =SMALL.VALUE()

pour avoir un meilleur interprète anglais, fais une demande à l'ONU. 😉

soan

 

[lestoiles1]

if error ,
Merci bcp

 

[soan]

ah oui, j'ai bêtement oublié de traduire SI en IF ; je le savais :
c'est seulement une erreur d'étourderie. 😛 😉

la preuve : depuis l'temps qu'j'utilise des If en VBA !!! 😀 alors c'est bon :
inutile de continuer à remplir ton formulaire de demande à l'ONU ! 🙄

soan

 

[mapomme]

ah mon excel est en anglais, est-ce qu'il y a une version anglaise svp?

=IFERROR(INDEX(A$1:A$50,SMALL(IF(N(MATCH(A$1:A$50,A$1:A$50,0)=ROW(A$1:A$50)),ROW(A$1:A$50)),ROWS($1:1))),"")

 

[soan]

ah, juste avec SMALL, pas SMALL.VALUE ? et en plus y'a MATCH() au lieu de EQUIV() !
comme quoi l'anglais de mapomme est bien meilleur que le mien !!! 😛 😀

(pourtant, mon prof d'anglais m'avait bien dit d'éviter d'faire des traductions littérales, mot-à-mot !!! 😉)

soan

 

[mapomme]

Bonjour @soan,

comme quoi l'anglais de mapomme ...

mapomme, il n'a rien traduit 🙁, c'est VBA qui a fait.

Sub InEnglishPlease()
    [d1] = "'" & [b1].Formula
End Sub

 

[soan]

ah, ok ! l'interprète de l'ONU était déjà intégré de base dans VBA !!! 😛

(c'est fou c'qu'il est fortiche, Microsoft !!! 😀 c'est Bill Gates, l'interprète ?)

soan

 

[R@chid]

Bonjour @ tous,
Si la version d'Excel est en anglais, il suffit de lui mettre la formule sur un fichier, et laisser son Excel s'occuper du reste.

Cordialement

 

[lestoiles1]

Merci à tous,

 

[lestoiles1]

Bonjour @lestoiles1,

Formule matricielles en B1 à copier/tirer jusqu'en B50 :

=SIERREUR(INDEX(A$1:A$50;PETITE.VALEUR(SI(N(EQUIV(A$1:A$50;A$1:A$50;0)=LIGNE(A$1:A$50));LIGNE(A$1:A$50));LIGNES($1:1)));"")

Regarde la pièce jointe 1082104

Comment l'editer , je dois le faire jusqu'à ligne 1000

 

[R@chid]

Re,

Comment l'editer , je dois le faire jusqu'à ligne 1000

tu n'as qu'à remplacer 50 par 1000.

Cordialement