lestoiles1 XLDnaute Occasionnel 20 Octobre 2020 #1 Bonjour, j'aimerais mettre supprimer les doubons et mettre le resultat dans la cellule B. Quelle formule employée? Pièces jointes Doublons.xlsx 8.5 KB · Affichages: 19
Bonjour, j'aimerais mettre supprimer les doubons et mettre le resultat dans la cellule B. Quelle formule employée?
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
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)));"")
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
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
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
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 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
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))),"")
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
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 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
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
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
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 XLDnaute Barbatruc 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
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 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
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
R@chid XLDnaute Barbatruc 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
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