M
Metek
Guest
Bonjour!
Je viens vous voir car j'ai enormement de problemes avec une de mes macros!
Je dispose d'un tableau avec plus de 10 colonnes et je souhaite
supprimer les lignes identiques suivant un certain criteres!
Prenons la ligne 1 et la ligne 2
la ligne B seront un doublon si et seulement si la cellule F1 et F2 sont identiques ainsi que les cellules H1 et H2 et de que les
cellules C1 et C2!
J'ai donc réalisé cette macrorivate Sub btnDoublons_Click()
Sheets('Feuil1').Select
Dim J As Integer
Dim temp As Integer
Range('G2').Select
J = 2
temp = 3
While Range('G' & J).Value <> ''
If Range('F' & J).Value = Range('F' & temp).Value Then
Do While Range('F' & J).Value = Range('F' & temp).Value
If Range('C' & J).Value = Range('C' & temp).Value And Range('H' & J).Value = Range('H' & temp).Value Then
Rows(temp).Select
Selection.Delete Shift:=xlUp
End If
Loop
End If
J = J + 1
temp = J + 1
Wend
End Sub
La macro tourne indefiniment a partir de la ligne 25 pourtant cette ligne possede la meme structure que toutes les autres!!
Merci d'avance.
Je viens vous voir car j'ai enormement de problemes avec une de mes macros!
Je dispose d'un tableau avec plus de 10 colonnes et je souhaite
supprimer les lignes identiques suivant un certain criteres!
Prenons la ligne 1 et la ligne 2
la ligne B seront un doublon si et seulement si la cellule F1 et F2 sont identiques ainsi que les cellules H1 et H2 et de que les
cellules C1 et C2!
J'ai donc réalisé cette macrorivate Sub btnDoublons_Click()
Sheets('Feuil1').Select
Dim J As Integer
Dim temp As Integer
Range('G2').Select
J = 2
temp = 3
While Range('G' & J).Value <> ''
If Range('F' & J).Value = Range('F' & temp).Value Then
Do While Range('F' & J).Value = Range('F' & temp).Value
If Range('C' & J).Value = Range('C' & temp).Value And Range('H' & J).Value = Range('H' & temp).Value Then
Rows(temp).Select
Selection.Delete Shift:=xlUp
End If
Loop
End If
J = J + 1
temp = J + 1
Wend
End Sub
La macro tourne indefiniment a partir de la ligne 25 pourtant cette ligne possede la meme structure que toutes les autres!!
Merci d'avance.