Re : suppression des doublons (post remonté...)

Le
jiffey
Re-bonjour JB,

Alors là je ne comprends pas.

J'ai inséré le code dans ma macro, ca marche bien au départ, mais à un
moment pendant l'exécution de la macro le fichier redevient comme à l'origine
(avec les doublons). Et je n'arrive pas à comprendre comment cela est
possible. Les lignes ne sont-elles pas définitivement supprimées apr le code ?

J'essaie de rechercher de mon côté, mais si tu as la solution, je suis
preneur ;-)

Slts

JF

"JB" a écrit :

> Ces 2 lignes doivent être sur une seule ligne:
>
> If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i - 1, 2)
> And Cells(i, 3) = Cells(i - 1, 3) Then
>
> ou
>
> If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i - 1, 2)
> _
> And Cells(i, 3) = Cells(i - 1, 3) Then
>
>
> JB
>
> On 8 juin, 17:02, jiffey <jif@discussions.microsoft.com> wrote:
> > Merci JB,
> >
> > Par contre, lorsque je lance la macro, j'ai une fenêtre : erreur de
> > compilation, erreur de syntaxe en me surlignant la ligne
> >
> > If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i - 1, 2)
> >
> > Y aurait-il en effet une petite coquille ?
> >
> > Merci d'avance.
> >
> > Sinon, il y a en effet la solution de Modeste (Merci beaucoup à lui
> > également) mais qui a comme inconvénient d'ouvrir une nouvelle feuille
> >
> > "JB" a écrit :
> >
> >
> >
> > > Bonjour,
> >
> > > Sub sup()
> > > On Error Resume Next
> > > For i = [A65000].End(xlUp).Row To 2 Step -1
> > > Err = 0
> > > If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i - 1, 2)
> > > And Cells(i, 3) = Cells(i - 1, 3) Then
> > > If Err = 0 Then Rows(i).Delete
> > > End If
> > > Next i
> > > End Sub
> >
> > >http://cjoint.com/?gimClmQvv8
> >
> > > JB
> >
> > > On 8 juin, 11:57, jiffey <jif@discussions.microsoft.com> wrote:
> > > > Bonjour à vous tous,
> >
> > > > Voici le pb :
> >
> > > > J'ai un fichier (typehttp://cjoint.com/?gilXxhG8Rc) avec des doublons dans
> > > > la colonne A.
> >
> > > > Je souhaiterais supprimer les lignes comprenant ces doublons (ex : suppr les
> > > > lignes 11 à 13 et ne garder que la ligne 10)
> >
> > > > Et l'idéal serait de copier-coller sans ces lignes sur la même feuille et
> > > > sans avoir à en créer une autre (bon ce dernier point ce serait le top mais
> > > > sinon pas sigrave).
> >
> > > > Auriez-vous une idée de macro ?
> >
> > > > MERCI BEAUCOUP D'AVANCE !!!!!! ;-))))- Masquer le texte des messages précédents -
> >
> > - Afficher le texte des messages précédents -
>
>
>
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4581811
Je ne vois pas comment des lignes supprimées peuvent réapparaître.
Envoi ton fichier dans ma BAL.

JB
On 8 juin, 20:37, jiffey
Re-bonjour JB,

Alors là je ne comprends pas.

J'ai inséré le code dans ma macro, ca marche bien au départ, mais à un
moment pendant l'exécution de la macro le fichier redevient comme à l 'origine
(avec les doublons). Et je n'arrive pas à comprendre comment cela est
possible. Les lignes ne sont-elles pas définitivement supprimées apr le code ?

J'essaie de rechercher de mon côté, mais si tu as la solution, je suis
preneur... ;-)

Slts

JF




Ces 2 lignes doivent être sur une seule ligne:

If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i - 1, 2)
And Cells(i, 3) = Cells(i - 1, 3) Then

ou

If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i - 1, 2)
_
And Cells(i, 3) = Cells(i - 1, 3) Then

JB

On 8 juin, 17:02, jiffey
Merci JB,

Par contre, lorsque je lance la macro, j'ai une fenêtre : erreur de
compilation, erreur de syntaxe en me surlignant la ligne

If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i - 1, 2)

Y aurait-il en effet une petite coquille ?

Merci d'avance.

Sinon, il y a en effet la solution de Modeste (Merci beaucoup à lui
également) mais qui a comme inconvénient d'ouvrir une nouvelle fe uille...




Bonjour,

Sub sup()
On Error Resume Next
For i = [A65000].End(xlUp).Row To 2 Step -1
Err = 0
If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i - 1, 2)
And Cells(i, 3) = Cells(i - 1, 3) Then
If Err = 0 Then Rows(i).Delete
End If
Next i
End Sub

http://cjoint.com/?gimClmQvv8

JB

On 8 juin, 11:57, jiffey
Bonjour à vous tous,

Voici le pb :

J'ai un fichier (typehttp://cjoint.com/?gilXxhG8Rc) avec des doub lons dans
la colonne A.

Je souhaiterais supprimer les lignes comprenant ces doublons (ex : suppr les
lignes 11 à 13 et ne garder que la ligne 10)

Et l'idéal serait de copier-coller sans ces lignes sur la mêm e feuille et
sans avoir à en créer une autre (bon ce dernier point ce sera it le top mais
sinon pas sigrave...).

Auriez-vous une idée de macro ?

MERCI BEAUCOUP D'AVANCE !!!!!! ;-))))- Masquer le texte des messa ges précédents -



- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -



- Afficher le texte des messages précédents -






Modeste
Le #4576141
Bonsour® jiffey avec ferveur ;o))) vous nous disiez :


Alors là je ne comprends pas.


la solution proposée à 13h21 ne conviendrait-elle pas ???
;o)))

--
--
@+
;o)))

Publicité
Poster une réponse
Anonyme