VBA et Doublon

Pierrot93

XLDnaute Barbatruc

• 10 Juin 2010

• #2

Re : VBA et Doublon

Bonjour,

essaye peut être ainsi, si j'ai bien compris, pas sûr...

Code:

Sub test3()
Dim i As Long
For i = Range("B65536").End(xlUp).Row To 1 Step -1
    If Cells(i, 2) = Cells(i - 1, 2) And Cells(i, 4) = Cells(i - 1, 4) Then _
        Rows(i).Delete
Next i
End Sub

sauvegarde ton fichier au préalable, car suppression de lignes...

bon après midi
@+

 

Vote positif 0 Vote négatif

1

1ma9

Guest

• 10 Juin 2010

• #3

Re : VBA et Doublon

je te remercie !

 

Vote positif 0 Vote négatif

1

1ma9

Guest

• 11 Juin 2010

• #4

Re : VBA et Doublon

euu il y a un probleme, il marque erreur d'execution 1004, erreur définie par erreur ou par objet...

je ne vois pas le probleme dans le module ... ! 🙁

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juin 2010

• #5

Re : VBA et Doublon

Re

pas de problème chez moi, quelle ligne est en erreur ? tu n'as pas de cellules fusionnées ??

 

Vote positif 0 Vote négatif

1

1ma9

Guest

• 11 Juin 2010

• #6

Re : VBA et Doublon

non je n'ai pas de cellule fusionnée.. mais y'a pas le début du i
je crois que c'est ca le probleme !!! 🙁

 

Vote positif 0 Vote négatif

1

1ma9

Guest

• 11 Juin 2010

• #7

Re : VBA et Doublon

Non en fait, je te montre ce que j'ai a l'écran,

c'est les colonnes a et d qui me genaient.. donc j'ai écrit ce que tu m'as dit de cette maniere ... :

Code:

Sub teste4()

Dim i As Long

i = 2
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 4) = Cells(i - 1, 4) Then Rows(i).Delete
       
Next i

End Sub

et ca me souligne ca en jaune :

Code:

If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 4) = Cells(i - 1, 4) Then Rows(i).Delete

 

Dernière modification par un modérateur: 11 Juin 2010

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juin 2010

• #8

Re : VBA et Doublon

Re

mets une petif fichier exemple, pas plus de 10 lignes car là en 'état vois pas trop.... A noter que dans le code donné, tu testes la colonne A et D en non B et D comme précisé dans ton 1er post...

 

Vote positif 0 Vote négatif

1

1ma9

Guest

• 11 Juin 2010

• #9

Re : VBA et Doublon

je joins le fichier, oui je sais que je test a et d... 🙂

 

Vote positif 0 Vote négatif

1

1ma9

Guest

• 11 Juin 2010

• #10

Re : VBA et Doublon

voici la pièce !

 

Pièces jointes

• ed.xls

  31.5 KB · Affichages: 56
• ed.xls

  31.5 KB · Affichages: 59
• ed.xls

  31.5 KB · Affichages: 61

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juin 2010

• #11

Re : VBA et Doublon

Re,

le code ci-dessous a supprimé 7 lignes sur le fichier donné :

Code:

Sub test3()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 4) = Cells(i - 1, 4) Then _
        Rows(i).Delete
Next i
End Sub

 

Vote positif 0 Vote négatif

1

1ma9

Guest

• 11 Juin 2010

• #12

Re : VBA et Doublon

merci à toi, cela fonctionne a merveille !

 

Vote positif 0 Vote négatif