XL 2013 Identifier 2 caractères identiques dans une cellule

pierrejean

XLDnaute Barbatruc

• 26 Août 2019

• #2

bonjour dimbad

Un essai avec une fonction personnalisée
NB: Ne repère qu"une lettre double . si plusieurs on pourra regarder

 

Pièces jointes

• dimbad.xlsm

  13 KB · Affichages: 7

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 26 Août 2019

• #3

Bonjour,

Avec le mot en A1 :

VB:

=STXT(A1;EQUIV(VRAI;STXT(A1;LIGNE(INDIRECT("A1:A"&NBCAR(A1)-1));1)=STXT(A1;LIGNE(INDIRECT("A2:A"&NBCAR(A1)-1));1);0);1)

Formule matricielle : à valider avec CTRL+Maj+Entrée.

Comme le dit pierrejean :

NB: Ne repère qu"une lettre double.

Cordialement.

Daniel

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 26 Août 2019

• #4

Bonjour @ tous,
Bonjour pierrejean
une solution par formule matricielle
Le texte en A1, en B1 :

Code:

=SIERREUR(STXT(A1;EQUIV(VRAI;STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)-1));1)=STXT(A1;LIGNE(INDIRECT("2:"&NBCAR(A1)));1);0);2);"")

@ valider par Ctrl+Shift+Enter


Cordialement

 

Vote positif 0 Vote négatif

D

dimbad

XLDnaute Nouveau

• 10 Septembre 2019

• #5

Bonjour,

Merci à tous pour vos messages et votre aide. Malheureusement, cela ne fonctionne pas dans mon fichier...
Sur Google sheet, j'ai tenté de convertir la fonction Lettre_double en anglais mais à priori elle n'existe pas

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Septembre 2019

• #6

Re

La fonction n'a pas a être convertie
Par contre il faut la recopier dans un module de ton fichier:
Faire Alt F11 sur mon fichier
Copier la fonction
Faire Alt F11 sur ton fichier ensuite insertion Module et coller la fonction

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 10 Septembre 2019

• #7

Bonjour,
@pierrejean :
Sauf erreur, les macros ne fonctionnent pas telles quelles dans Google Sheets.
Cordialement.
Daniel

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Septembre 2019

• #8

Re
@ Daniel
OK merci
NB J'ignore totalement ce qu'est Google Sheets !!!

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 10 Septembre 2019

• #9

@pierrejean :
C'est la suite bureautique en ligne de Google, l'équivalent, de Office Online chez MS.
@dimbad :
Utilise la formule de r@chid. Comme il l'indique, clique dans la formule et appuie sur les touches Crl+Maj+Entrée.
Daniel

 

Vote positif 0 Vote négatif