XL 2013 Extraire les doublons dans la colonne C

mapomme

XLDnaute Barbatruc

Supporter XLD

• 20 Octobre 2020

• #2

Bonjour @lestoiles1,

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

VB:

=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)));"")

 

Pièces jointes

• lestoiles1- Doublons- v1.xlsx

  9.9 KB · Affichages: 8

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 20 Octobre 2020

• #3

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

 

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 20 Octobre 2020

• #4

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 20 Octobre 2020

• #5

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

 

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 20 Octobre 2020

• #6

if error ,
Merci bcp

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 20 Octobre 2020

• #7

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 20 Octobre 2020

• #8

lestoiles1 à dit:

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

Cliquez pour agrandir...

VB:

=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))),"")

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 20 Octobre 2020

• #9

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 20 Octobre 2020

• #10

Bonjour @soan,

soan à dit:

comme quoi l'anglais de mapomme ...

Cliquez pour agrandir...

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

VB:

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 20 Octobre 2020

• #11

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

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 21 Octobre 2020

• #12

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

 

Pièces jointes

• lestoiles1.xlsx

  9.9 KB · Affichages: 5

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 21 Octobre 2020

• #13

Merci à tous,

 

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 21 Octobre 2020

• #14

mapomme à dit:

Bonjour @lestoiles1,

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

VB:

=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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 23 Octobre 2020

• #15

Re,

lestoiles1 à dit:

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

Cliquez pour agrandir...

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

Cordialement

 

Vote positif 0 Vote négatif