C Choubidoua XLDnaute Nouveau 3 Juillet 2012 #1 Bonjour, J'ai un petit soucis avec un code, que voici: ------------------------------------------- Sub suppr_ligne_code_20() Dim i As Integer For i = 1 To fin_lig Sheets("Export PLS Covadis").Select If Cells("A" & i).Value = Cells("A" & i + 1).Value Then Cells("A" & i).EntireRow.Delete End If Next i End Sub -------------------------------------- " fin_lig " est une variable définie avant, qui a la valeur du nombre de lignes. Il est censé comparer la valeurs d'une cellule et de la précédente, mais lorsque que je le lance ... Il ne se passe rien ! Même pas un plantage. Alors est-ce qu'il y a un soucis dans le code, ou je dois plutôt chercher du coté d'Excel ? Merci de votre aide. Choubidoua
Bonjour, J'ai un petit soucis avec un code, que voici: ------------------------------------------- Sub suppr_ligne_code_20() Dim i As Integer For i = 1 To fin_lig Sheets("Export PLS Covadis").Select If Cells("A" & i).Value = Cells("A" & i + 1).Value Then Cells("A" & i).EntireRow.Delete End If Next i End Sub -------------------------------------- " fin_lig " est une variable définie avant, qui a la valeur du nombre de lignes. Il est censé comparer la valeurs d'une cellule et de la précédente, mais lorsque que je le lance ... Il ne se passe rien ! Même pas un plantage. Alors est-ce qu'il y a un soucis dans le code, ou je dois plutôt chercher du coté d'Excel ? Merci de votre aide. Choubidoua
phlaurent55 Nous a quittés en 2020 Repose en paix 3 Juillet 2012 #2 Re : Suppression de ligne après un test Bonjour Choubidoua, Il est censé comparer la valeurs d'une cellule et de la précédente, mais lorsque que je le lance ... Il ne se passe rien ! Même pas un plantage. Cliquez pour agrandir... sans voir ton fichier, il sera difficile de trouver ce qui coince Remarque: lorsqu'on supprime des lignes il faut toujours le faire en remontant Code: For i = fin_lig To 1 Step -1 à+ Philippe Edit: essaie avec: Rows(i).EntireRow.Delete Dernière édition: 3 Juillet 2012 Vote positif 0 Vote négatif
Re : Suppression de ligne après un test Bonjour Choubidoua, Il est censé comparer la valeurs d'une cellule et de la précédente, mais lorsque que je le lance ... Il ne se passe rien ! Même pas un plantage. Cliquez pour agrandir... sans voir ton fichier, il sera difficile de trouver ce qui coince Remarque: lorsqu'on supprime des lignes il faut toujours le faire en remontant Code: For i = fin_lig To 1 Step -1 à+ Philippe Edit: essaie avec: Rows(i).EntireRow.Delete
youky(BJ) XLDnaute Barbatruc 3 Juillet 2012 #3 Re : Suppression de ligne après un test Bonjour, cells(ligne,colonne) voici la rectif Bruno Code: Dim i As Integer Sheets("Export PLS Covadis").Select For i = fin_lig To 1 Step -1 If Cells(i, 1).Value = Cells(i + 1, 1).Value Then Cells(i + 1, 1).EntireRow.Delete End If Next i Edit: Salut Philippe Dernière édition: 3 Juillet 2012 Vote positif 0 Vote négatif
Re : Suppression de ligne après un test Bonjour, cells(ligne,colonne) voici la rectif Bruno Code: Dim i As Integer Sheets("Export PLS Covadis").Select For i = fin_lig To 1 Step -1 If Cells(i, 1).Value = Cells(i + 1, 1).Value Then Cells(i + 1, 1).EntireRow.Delete End If Next i Edit: Salut Philippe
C Choubidoua XLDnaute Nouveau 3 Juillet 2012 #4 Re : Suppression de ligne après un test Problème résolu ! Merci de votre aide. choubidoua Vote positif 0 Vote négatif