VBA et Doublon

[1ma9]

Bonjour à tous,

J'ai un petit soucis de forme dans l'écriture même d'un petit programme VBA, simple pourtant je suis sur.

J'aimerais retranscrire le message suivant.

Si b=b+1 et d=d+1 alors b+1 et d+1 doivent être supprimés.

Sachant que B c'est les valeurs des cellules dans la colonne B
D c'est les valeurs des cellules dans la colonne D.

Une idée ?

Merci

 

[Pierrot93]

Re : VBA et Doublon

Bonjour,

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

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
@+

 

[1ma9]

Re : VBA et Doublon

je te remercie !

 

[1ma9]

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 ... !

 

[Pierrot93]

Re : VBA et Doublon

Re

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

 

[1ma9]

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 !!!

 

[1ma9]

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 ... :

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 :

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

 

[Pierrot93]

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...

 

[1ma9]

Re : VBA et Doublon

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

 

[1ma9]

Re : VBA et Doublon

voici la pièce !

 

[Pierrot93]

Re : VBA et Doublon

Re,

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

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

 

[1ma9]

Re : VBA et Doublon

merci à toi, cela fonctionne a merveille !