From: "tiger"<tiger@easynet.fr> 
Newsgroups: microsoft.public.fr.excel
Subject: Re: Suppression de doublons
Date: Thu, 30 Dec 1999 20:17:19 +0100
Organization: [Posted via] Easynet France
Lines: 75
Message-ID: <84gb79$2inj$1@buggy.easynet.fr>
References: <84g1ek$2di2$1@buggy.easynet.fr> <386B99E1.8B46447D@free.fr>
NNTP-Posting-Host: pop-nice-225.pops.easynet.fr
X-Trace: buggy.easynet.fr 946581546 84723 195.114.95.225 (30 Dec 1999 19:19:06 GMT)
X-Complaints-to: abuse@easynet.fr
NNTP-Posting-Date: 30 Dec 1999 19:19:06 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.00.2014.211
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2014.211
Path: cppssbbsa01.microsoft.com!news-out.cwix.com!newsfeed.cwix.com!newshub.northeast.verio.net!verio!netnews.com!newspeer1.nac.net!easynet-tele!easynet.net!easynet-fr!buggy.easynet.fr!not-for-mail
Xref: cppssbbsa01.microsoft.com microsoft.public.fr.excel:20391

Bonjour Laurent,

Je te remercie pour ton code. J'ai d&eacute;couvert la m&eacute;thode ColumnsDifference.
N&eacute;anmoins je ne comprends pas tout. Les instructions suivantes me semblent
un peu obscures :

do
   I = J + 1
  J = range(cells(I, 1), Fin).ColumnDifferences(cells(I, 1))(0).Row
   if J > I then range(cells(I + 1, 1), cells(J, 1)).ClearContents
loop Until Err

Je m'attendais à un code simple du genre While...Wend ou for each next.
Après s&eacute;lection de la dernière cellule pleine de la colonne tant que la
cellule active est diff&eacute;rente de la cellule situ&eacute; une ligne plus haut,
s&eacute;lectionne la cellule situ&eacute; plus haut sinon efface la valeur de la cellule
active et s&eacute;lectionne la cellule situ&eacute; plus haut. Je n'ai pas su l'&eacute;crire.


A quoi sert le (0).Row? Je veux dire qu'apporte de plus le (0)? Pourquoi I =
J + 1? Pouvait-on se passer de cells? Avoir le code c'est très bien dans
l'imm&eacute;diat mais en comprendre les m&eacute;canismes c'est mieux pour l'avenir.

Je vois que tu as quitt&eacute; Wanadoo. Free est-il mieux?

Dans l'attente de ta r&eacute;ponse, à bientôt et bonne ann&eacute;e même si nous aurons
certainement encore l'occasion de nous &eacute;cire avant le 1er janvier.

tiger

me r&eacute;<laurent.longre@free.fr>pondre dans le groupe.

Laurent longre  a &eacute;crit dans le message :
386B99E1.8B46447D@free.fr...
>
> Tiger,
>
> Je te propose la macro suivante, d'ex&eacute;cution assez rapide car reposant
> sur ColumnDifferences pour rep&eacute;rer les groupes de cellules de contenu
> identique.
>
> Const Cell_D&eacute;part As String = "A1"
>
> dim Fin As range, I As long, J As long, Col As Integer
> dim ModeCalcul As long
>
> with application
>   ModeCalcul = .Calculation
>   .Calculation = xlCalculationManual
>   .screenupdating = false
> end with
>
> Col = range(Cell_D&eacute;part).Column
> set Fin = range(Cell_D&eacute;part).end(xldown)(2)
>
> On Error Resume next
> do
>   I = J + 1
>   J = range(cells(I, 1), Fin).ColumnDifferences(cells(I, 1))(0).Row
>   if J > I then range(cells(I + 1, 1), cells(J, 1)).ClearContents
> loop Until Err
>
> application.Calculation = ModeCalcul
>
>
> Remplace simplement la valeur "A1" de la constante Cell_D&eacute;part par
> l'adresse de la cellule de d&eacute;part de ta colonne à nettoyer, ça devrait
> marcher.
>
> Et puis, bonne ann&eacute;e .
>
> Laurent