Lister les lettres identiques à deux mots

Bonjour,

Je pense pas que ce soit réalisable sans VBA !
Et avec VBA c'est pas tout simple, voici une fonction personnalisée à copier dans un module standard :

Option Explicit
Function LettresCommunes(ByVal mot1 As String, mot2 As String) As String
Dim d As Object, t As Variant, s As String, i As Integer
  Set d = CreateObject("Scripting.Dictionary")
  If Len(mot2) > Len(mot1) Then
    s = mot2: mot2 = mot1: mot1 = s
  End If
  For i = 1 To Len(mot1)
    If InStr(1, LCase(mot2), LCase(Mid(mot1, i, 1))) > 0 Then d(UCase(Mid(mot1, i, 1))) = i
  Next i
  If d.Count = 0 Then
    LettresCommunes = ""
  Else
    t = d.Keys: d.RemoveAll
    Call Tri(t, LBound(t), UBound(t))
    LettresCommunes = Join(t, "")
  End If
End Function
Private Sub Tri(table As Variant, premier As Integer, dernier As Integer)
Dim v As Variant, t As Variant, p As Integer, d  As Integer
  p = premier: d = dernier: v = table((p + d) \ 2)
  Do
    Do While table(p) < v: p = p + 1: Loop
    Do While v < table(d): d = d - 1: Loop
    If p <= d Then
      t = table(p): table(p) = table(d): table(d) = t
      p = p + 1: d = d - 1
    End If
  Loop While p <= d
  If p < dernier Then Call Tri(table, p, dernier)
  If premier < d Then Call Tri(table, premier, d)
End Sub

Exemple d'utilisation, formule en C2:
=LettresCommunes(A2;B2)

--
Cordialement
Patrice

Bonjour,

En a2 : la première expression à comparer
en b2 : la seconde expression à comparer

Une solution avec trois colonnes intermédiaires :

Sélection de la plage c3:c50 pour valider la formule matricielle avec CTRL-Màj-Entrée, depuis c3 :
=SI(ESTNUM(TROUVE(STXT($A$2;LIGNE(INDIRECT("1:"&NBCAR($A$2)));1);$B$2));CODE(STXT(B2;TROUVE(STXT($A$2;LIGNE(INDIRECT("1:"&NBCAR($A$2)));1);$B$2);1));"")

Sélection de la plage d3:d50 pour valider la formule matricielle avec CTRL-Màj-Entrée, depuis d3 :
=SIERREUR(CAR(PETITE.VALEUR(SI(NON(ESTNA(EQUIV(C3:C50;C3:C50;0)));SI((EQUIV(C3:C50;C3:C50;0)=LIGNE(INDIRECT("1:"&LIGNES(C3:C50))));C3:C50));LIGNE(INDIRECT("1:"&LIGNES(C3:C50)))));"")

en e3, formule normale à recopier jusqu'en e50:
=SI(D3="";"";E2&D3)

Enfin, en f2, formule normale :
=DECALER(E3;SOMMEPROD((D3:D50<>"")*1)-1;)

Les colonnes c, d et e pourront être masquées (elles vont jusqu'à 50 pour éviter de ralentir le pc à cause des formules matricielles). Les titres sont en ligne 1 et il faut laisser la plage c1:e2 vide.
Les lettres seront triées par ordre alphabétique en f2. Ça fonctionne, mais il pourrait y avoir des exceptions non gérées...

Il vaudrait mieux faire ça en VBA, en tout cas

Cordialement,

Bonjour à vous deux

Par formules il faut décomposer sur plusieurs colonnes chaque mot

Exemple pour des mots jusqu'à 10 lettres : https://www.cjoint.com/c/HBdrcI232T6

Cdlmnt
Via

Bonjour a tous les deux,

Vos formules, c'est pour trouver des lettres situées aux mêmes emplacements dans les 2 mots, pas les lettres communes aux 2 mots !

Pour les lettres situées aux mêmes emplacements dans les 2 mots, avec VBA c'est simple :

Function LettresAuxMemesEmplacements(ByVal mot1 As String, mot2 As String) As String
Dim s As String, i As Integer
  For i = 1 To IIf(Len(mot2) > Len(mot1), Len(mot1), Len(mot2))
    If LCase(Mid(mot1, i, 1)) = LCase(Mid(mot2, i, 1)) Then
      s = s & UCase(Mid(mot1, i, 1))
    End If
  Next i
  LettresAuxMemesEmplacements = s
End Function

Bonjour,

je remarque ce que je pense être une anomalie dans vos 2 propositions Patrice et Arnaud :
issue , veste : 2 lettres communes : ES, ok
issue , vestes : toujours 2 lettres communes ES, je dirais 3 : ESS
eric

Re à tous

C'est évident que le VBA est le plus pratique, j'avais proposé quelque chose par formules puisque le demandeur le souhaitait

En attente de savoir du demandeur si c'est n'importe quelle lettres ou celles au mêmes emplacements

Eriiic ton code est bien plus court que celui de Patrice mais il fait la différence entre majuscules et minuscules contrairement à celui de Patrice