Choubidoua
XLDnaute Nouveau
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
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