Comparaison valeurs similaires

Bonjour,

je suis assez autonome dans excel mais pour ce probleme, je pense qu'il va falloir utiliser un peu du code.. J'ai besoin votre aide:

J'ai besoin comparer les index de 2 bases de données. Seule différence est dans un chaine des caractères au milieu (qui change tout le temps). Je fais donc comparaison des valeurs similaires, voici exemple de 2 valeurs à comparer où j’attends le résultat OK (donc que l'index est le meme):

create index COM.SYS_C0069967 on COM.AC_CYC_ACC_CLS_SPC(ID)

create index COM.SYS_C0075478 on COM.AC_CYC_ACC_CLS_SPC(ID)

Note: le nom du schema "COM" n'est pas toujours à 3 caractères !!! donc pas une position du départ fixe.

Merci d'avance si vous avez une idée.

bonjour,

je ne comprend pas tout dans ta question mais s'il y a toujours un point,

tu peux sans doute utiliser une construction à base de ça :

Sub test()
Dim i, mot$, msg$
mot = "COM.SYS_C0069967"
msg = Right(mot, Len(mot) - InStr(1, mot, "."))
MsgBox msg
End Sub

A+

si je peux exprimer mieux:

dans mon exemple, seule texte en gras varie, si non le reste est pareil. Ca veut dire, j'ai besoin construire un test, où la partie en gras ne sera pas comparée...

Colonne A:

create index COM.SYS_C0069967 on COM.AC_CYC_ACC_CLS_SPC(ID)

Colonne B:

create index COM.SYS_C0075478 on COM.AC_CYC_ACC_CLS_SPC(ID)

Colonne C (attednu):

résultat du test : OK, les valeurs sont identiques

Bonsoir,

une solution via une fonction personnalisée.

à utiliser

=identique(A1;B1)

Function identique(r1, r2)
    s1 = InStr(r1, "COM.")
    If Left(r1, s1) = Left(r2, s1) Then
        t1 = InStr(s1, r1.Value, "on")
        If Mid(r1, t1) = Mid(r2, t1) Then identique = True: Exit Function
    End If
    identique = False
End Function