Discussion :

[cladsam]

Bonjour,

je cherche une formule ou une fonction afin d'extraire les caractères présents dans une chaîne mais pas dans une seconde.
Exemple :
Chaine A : ABCDE
Chaine B ADC
Résultat : BE

A noter :
- le même caractère ne revient au maximum qu'une fois par chaîne, dans mon besoin, le cas ACCDEE par exemple ou AA ne peut pas exister.
- J'ai une fomule pour trier la chaîne par ordre alphabétique donc je peux partir de ABCDE à comparer à ACD
- il peut également y avoir des caractère dans B qui ne sont pas dans A
par exemple chaine A = ABCDE
chaine B = ADZ
Résultat attendu : BCE soit les caractère de la chaine A qui ne sont pas dans B (donc ici le Z ne compte pas)
Existe-t-il une telle formule dans excel ?
Merci de votre aide précieuse

[Menhir]

Existe-t-il une telle formule dans excel ?

En théorie oui mais en pratique, ce serait trop compliqué.

En théorie, il serait possible de faire une concaténation des caractères de la chaine 1 se trouvant à gauche et à droite du premier caractère de la chaine 2 et d'utiliser le résultat pour faire de même avec le second caractère puis le troisième et ainsi de suite, en bourrant tout ça de SI pour pallier au fait qu'on ignore la longueur de la chaîne 2.
En pratique, je te souhaite bien du courage pour écrire une telle formule.

Mais il ne serait pas très compliqué de faire une fonction personnalisée en VBA qui aurait tes deux chaînes en paramètres et renverrait la différence en ayant scruté chaque caractère avec deux boucles For to imbriquées.

[papouclo]

Bonjour,
Voici une fonction personnalisée qui donne la réponse attendue pour les deux exemples proposés.
La fonction REPLACE permet de s'en sortir avec une seule boucle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function ch1_sans_car_ch2(cel1 As Range, cel2 As Range) As String
Dim chaine2 As String, i As Integer
    ch1_sans_car_ch2 = cel1.Value
    chaine2 = cel2.Value
    For i = 1 To Len(chaine2)
        ch1_sans_car_ch2 = Replace(ch1_sans_car_ch2, Mid(chaine2, i, 1), "", 1, -1, vbTextCompare)
    Next i
End Function

Cordialement
Claude

[cladsam]

Merci beaucoup !