From: "Christophe CAUCHOIS" Newsgroups: microsoft.public.fr.excel Subject: Re: Compter un nombre de mots distincts ? Date: Wed, 2 Feb 2000 09:39:25 +0100 Organization: Wanadoo, l'internet avec France Telecom Lines: 49 Message-ID: <878rb4$dfj$1@wanadoo.fr> References: <86t3fn$9gi$1@wanadoo.fr> <8766h6$kvt$1@wanadoo.fr> <38976C5B.A61DA863@club-internet.fr> NNTP-Posting-Host: xrouen-1-1-119.abo.wanadoo.fr X-Trace: wanadoo.fr 949481636 13811 193.250.17.119 (2 Feb 2000 08:53:56 GMT) X-Complaints-to: abuse@wanadoo.fr NNTP-Posting-Date: 2 Feb 2000 08:53:56 GMT X-Newsreader: Microsoft Outlook Express 5.00.2314.1300 X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2314.1300 Path: cppssbbsa01.microsoft.com!news-out.cwix.com!newsfeed.cwix.com!isdnet!proxad.net!wanadoo.fr!not-for-mail Xref: cppssbbsa01.microsoft.com microsoft.public.fr.excel:22382 T'es fou ! Tu veux salir ma réputation naissante de bricoleur excelien patenté, ou quoi ? Non, non, JP, ça masque bien tous les doublons. Tu sais que tu m'as fait peur ! @+ cordialement pareil Christophe. Jean-Paul Sabatier a écrit dans le message : 38976C5B.A61DA863@club-internet.fr... > bonsoir monsieur christophe > est il normal que ta macro ci-dessous ne masque que le premier doublon rencontré > et non les suivants? > ou est ce une erreur de mes sens abusés? > a + cordialement jps > Christophe CAUCHOIS wrote: > > > > > > > Sub Masque_doublons() > > > > dim Val1, Val2 As Variant > > dim Continue As Boolean > > > > Val1 = activecell.formula > > Continue = true > > > > do While Continue > > activecell.Offset(1).select > > Val2 = activecell.formula > > While Val2 = Val1 > > activecell.EntireRow.Hidden = true > > activecell.Offset(1).select > > Val2 = activecell.formula > > Wend > > if IsEmpty(activecell) then Continue = false > > ************************************ > > --> Incrémentation du compteur > > ************************************ > > Val1 = Val2 > > loop > > end Sub > > > > >