Discussion :

[edelweisseric]

Bonsoir à tous

N'ayant rien trouvé d'équivalent, voici ma question.

J’aimerais faire une comparaison de 2 chaînes en VBA de ce type :

"abcd" et "adbc" (mêmes caractères, mais pas à la même place) et que cela soit Vrai.

Le nombre de caractères peut aller jusqu’à une bonne vingtaine. Il peut y avoir plusieurs fois les mêmes caractères, mais la comparaison est 1 pour 1, c’est à dire : "abcda" = Vrai avec "dbcaa" , mais pas "dbca"

Merci d’avance pour votre aide

Eric

[ucfoutu]

Bonjour,

je vais d'abord te laisser faire sur ces indications, de sorte à ce que ty t'y mettes toi également) :
- boucler caractère par caractère sur la chaine 1
- utiliser instr pour vérifier si ce caractère est dans la chaine2
- si pas dans la chaine2 ===>> faux et quitter la boucle
- si dans la chaine 2 : le supprimer de la chaine 2

- continuer la boucle

[edelweisseric]

Bonsoir à tous
Bonsoir ucfoutu

Merci de ta réponse plus que rapide, je dirais..... immédiate.

J'avais espéré un "Like" ou un "Find" super élaboré, mais cela n'a pas l'air d'exister

Eric

[ucfoutu]

Non, aucune fonction pré-existante ne fera ce que tu cherches à faire et qui s'exprime tout simplement ainsi :

"Vérifier si une chaine est un anagramme d'une autre chaine et retourner True ou False, selon le cas".

Mais c'est relativement facile (surtout après ce que je t'ai indiqué).
Reviens donc si tu rencontres (en nous l'exposant) une difficulté d'application.

EDIT :
C'est même très très très facile...
Je viens de mettre en application ce que je t'ai indiqué ===>> 7 lignes de code (dont 3 seulement qui en sont réellement) et en moins de 75 secondes (chrono en main), essais compris...

Alors : à toi maintenant et tu seras ensuite le bienvenu si besoin en était

[edelweisseric]

Re

Voilà ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test_comparaison()
Dim a, b, i, test, caractere_cherche    'initialisation mini pour tester
a = "abcd"
b = "dcba"
For i = 1 To 4
    caractere_cherche = Mid(a, i, 1)
    test = InStr(1, b, caractere_cherche, 1)
    If test <> 0 Then b = Replace(b, caractere_cherche, "") Else Exit For
Next i
End Sub

Merci ucfoutu

Eric

[ucfoutu]

Je te félicite (tu vois, quand on veut ? )

Juste une chose pour avoir une meilleure performance : évite le replace (gourmand) et préfère-lui une gestion directe.

Tu peux le faire ainsi (exemple) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Private Sub Command1_Click()
  Dim chaine1 As String, chaine2 As String
  chaine1 = "bazoukabazoukaabcde bazoukabazoukaabcde bazoukabazoukaabcde voilà voilà voilà"
  chaine2 = "àivlo zakabouzakabouedcba zakabouzakabouedcba zakabouzakabouedcba vloià iàvol"
  MsgBox anagramme_oui_non(chaine1, chaine2)
End Sub
 
 
Private Function anagramme_oui_non(ByVal ch1 As String, ch2 As String) As Boolean
  Dim i As Integer, pos As Integer
  If Len(ch1) <> Len(ch2) Then Exit Function
  For i = 1 To Len(ch1)
    pos = InStr(ch2, Mid(ch1, i, 1))
    If pos = 0 Then Exit Function
    ch2 = Left(ch2, pos - 1) & Mid(ch2, pos + 1)
  Next
  anagramme_oui_non = True
End Function

C'est suffisamment rapide (très) pour que je ne t'encourage pas à mettre en oeuvre une autre méthode (non encore à ton niveau) très légèrement plus rapide.

Félicitation et bonne nuit.

[patbou]

bonjour,

Je pense que tu peux utiliser une fonction récursive.