VBA Pourquoi je nepeux pas suppimer mes lignes.

[Arpette]

Bonsoir à toutes et à tous, j'ai écrit un code qui devrait supprimer toutes les lignes de la colonne J quand on trouve le mot "Fin" mais il ne fonctionne pas, il doit m'en manquer un bout.
Merci de votre aide.
@+

 For Del = Range("J65536").End(xlUp).Row To 1 Step -1
       If Cells(Del, 1).Value = "FIN" Then Cells(Del, 1).EntireRow.Delete
  Next

 

[phlaurent55]

Re : VBA Pourquoi je nepeux pas suppimer mes lignes.

Bonjour Arpette,

la colonne J est la 10ème colonne donc;

If Cells(Del, 10).Value..............

à+
Philippe

 

[kjin]

Re : VBA Pourquoi je nepeux pas suppimer mes lignes.

Bonsoir,
Tu as juste oublié que la colonne J est la colonne 10

dim l&
For l= Range("J65536").End(xlUp).Row To 1 Step -1
       If UCase(Cells(l, 10).Value) = "FIN" Then Rows(l).Delete
Next

A+
kjin

 

[jmps]

Re : VBA Pourquoi je nepeux pas suppimer mes lignes.

Salut,

Je crois aussi que quand tu supprimes une ligne tu dois incrémenter ton compteur pour éviter de rater la ligne suivante mais je suis pas sûr.

 

[kjin]

Re : VBA Pourquoi je nepeux pas suppimer mes lignes.

Bonsoir,

Je crois aussi que quand tu supprimes une ligne tu dois incrémenter ton compteur pour éviter de rater la ligne suivante....

Faut pas rater...

...mais je suis pas sûr

...la ligne suivante 😀
A+
kjin

 

[Arpette]

Re : VBA Pourquoi je nepeux pas suppimer mes lignes.

Bonsoir Philippe, Kjin,
il y a des fois, que je trouve de plus en plus fréquentes, l'occasion de me mettre des claques😡(je ne trouverais même pas de l'eau dans la Seine😱).
Merci à vous.
@+
Comme ceci çà fonctionne mieux.

For Del = Range("J65536").End(xlUp).Row To 1 Step -1
     If Cells(Del, 10).Value = "FIN" Then Cells(Del, 10).EntireRow.Delete
Next Del

 

[Arpette]

Re : VBA Pourquoi je nepeux pas suppimer mes lignes.

Re, c'est encore la burne🙁, çà fonctionne en mode pas à pas, mais pas en mode excécution.
Merci de votre aide.
@+ je vais me coucher😕😛

 

[Bebere]

Re : VBA Pourquoi je nepeux pas suppimer mes lignes.

bonjour Arpette,Phlaurent,Kjin,Jmps
comme suit
Sub supprimeligne()
DerL = Range("J65536").End(xlUp).Row
For Del = DerL To 1 Step -1
If Ucase(Cells(Del, 10).Value) = "FIN" Then Cells(Del, 10).EntireRow.Delete
Next Del
End Sub
à bientôt

 

[Arpette]

Re : VBA Pourquoi je nepeux pas suppimer mes lignes.

Bonjour Bebere, merci de ta réponse, mais j'ai le même pb, ok en mode pas à pas, mais rien en mode excécution.
Merci de ton aide
@+

With Sheets("Finale")
Dim DerL As Integer
Dim Del As integer
 DerL = Range("J65536").End(xlUp).Row
    For Del = DerL To 1 Step -1
        If UCase(Cells(Del, 10).Value) = "FIN" Then Cells(Del, 10).EntireRow.Delete
    Next Del
End With

 

[kjin]

Re : VBA Pourquoi je nepeux pas suppimer mes lignes.

Bonjour,

A+
kjin

 

[Arpette]

Re : VBA Pourquoi je nepeux pas suppimer mes lignes.

Salut Kjin, ci-joints les trois fichiers, un fichier de base et 2 fichiers.csv.
Merci de ton aide.
@+

 

[Arpette]

Re : VBA Pourquoi je nepeux pas suppimer mes lignes.

Re, je viens de m'apercevoir que le fichier était tros gros. Le voici via cijoint

Fichier

 

[phlaurent55]

Re : VBA Pourquoi je nepeux pas suppimer mes lignes.

Bonjour arpette,

avec With il ne faut pas oublier le point

remplace ton bout de code par ceci:

    For Del = .Range("J65536").End(xlUp).Row To 1 Step -1
     If .Cells(Del, 10).Value = "FIN" Then .Rows(Del).Delete
    Next Del

à+
Philippe

 

[Arpette]

Re : VBA Pourquoi je nepeux pas suppimer mes lignes.

Bonjour Philippe, pourtant je sais, merci de m'avoir ouvert les yeux.
@+

 

[Staple1600]

Re : VBA Pourquoi je nepeux pas suppimer mes lignes.

Bonjour à tous

Cela doit être plus rapide sans la boucle

Sub Macro1()
Dim PLG_FIL As Range
If Not ActiveSheet.AutoFilterMode Then
Range("A1").AutoFilter Field:=10, Criteria1:="FIN"
End If
Set PLG_FIL = ActiveSheet.AutoFilter.Range
PLG_FIL.Offset(1, 0).Resize(PLG_FIL.Rows.Count - 1, 1).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub