De: Eric Jeanne Objet: Re: Comparer deux chaines de caractères Date : jeudi 13 avril 2000 22:30 Pour la suite : function comparCh(ch1, ch2) Application.Volatile True If ch1 = ch2 Then comparCh = 0 Else lg1 = Len(ch1) lg2 = Len(ch2) i = 1 While Mid(ch1, i, 1) = Mid(ch2, i, 1) i = i + 1 Wend comparCh = i end If end function SI tu compares paul za en A1 et paul zaza, en B1, =comparCh(A1,B1) te donne 8 alors que le plus court n'a que sept caractères. Il faut peut-être traiter le cas différemment, mais je ne sais pas ce que tu veux faire. Pour les accents, je ne vois pas de solution directe simple. Je serai tenté de faire par macro dans les deux listes (ou une copie) un "replace" de toutes les lettres accentués par la non accentuée puis de continuer avecla macro ci-dessus. Allez boujou. -- Eric Jeanne Geo a écrit dans le message : 8d55at$emi$3@wanadoo.fr... > Bonjour > Je compare deux listes de personnel. > J'ai synchronisé les listes à la main :-) > Déjà si quelqu'un sait comment synchroniser deux listes (sur deux > feuilles différentes) triés mais où des noms peuvent apparaître que > dans l'une d'elles ça m'arrangerait bien. > Maintenant, j'ai deux cellules contant les noms et prénoms de chaque > liste, par exemple en A1 et B1. > Je voudrais afficher en C1 soit 0 si les deux sont identiques, soit le > n° de caractère à partir duquel ils diffèrent. > En poussant plus loin, mais juste par souci exagéré de la perfection: > 1- puis-je ignorer les différences portant sur des lettres accentués > (l'une des listes est censé ne pas avoir d'accents) > 2- puis-je ignorer les tirets ? > Merci > > -- > ==== Geo ==== de la douce Touraine (France) > > > > > >