C
Creepy
Guest
Bonjour all,
J'avais créé une macro bien pratique sous XL97, qui marchait impecc. On a passé les micro à XL2000 et elle ne marche plus. Elle sert à supprimer toutes les lignes dont les colonnes C, D, E F, G & H sont à 0
J'ai un message erreur : Incompatibilité de type et le mot "Ligne" est surligné au niveau de la phrase : for ligne = etc ...
Kk1 peux m'aider en me disant pourquoi cela ne marche plus ?
voici le code
------------------------------------------------------------
Dim ligne As Range
Dim l2 As Integer
Dim L1 As Integer
L1 = 4
l2 = Range("a4").End(xlDown).Row
For ligne = Range("A4") To Range("a:" & l2)
If Range("C:" & L1).Value = 0 And Range("D:" & L1).Value = 0 And Range("E:" & L1).Value = 0 _
And Range("F:" & L1).Value = 0 And Range("G:" & L1).Value = 0 And Range("H:" & L1).Value = 0 Then
Rows(L1 & ":" & L1).Select
Selection.Delete Shift:=xlUp
L1 = L1 + 1
End If
Next
End Sub
---------------------------------------------------------
Merci d'avance
Creepy
End If
Next
End Sub
J'avais créé une macro bien pratique sous XL97, qui marchait impecc. On a passé les micro à XL2000 et elle ne marche plus. Elle sert à supprimer toutes les lignes dont les colonnes C, D, E F, G & H sont à 0
J'ai un message erreur : Incompatibilité de type et le mot "Ligne" est surligné au niveau de la phrase : for ligne = etc ...
Kk1 peux m'aider en me disant pourquoi cela ne marche plus ?
voici le code
------------------------------------------------------------
Dim ligne As Range
Dim l2 As Integer
Dim L1 As Integer
L1 = 4
l2 = Range("a4").End(xlDown).Row
For ligne = Range("A4") To Range("a:" & l2)
If Range("C:" & L1).Value = 0 And Range("D:" & L1).Value = 0 And Range("E:" & L1).Value = 0 _
And Range("F:" & L1).Value = 0 And Range("G:" & L1).Value = 0 And Range("H:" & L1).Value = 0 Then
Rows(L1 & ":" & L1).Select
Selection.Delete Shift:=xlUp
L1 = L1 + 1
End If
Next
End Sub
---------------------------------------------------------
Merci d'avance
Creepy
End If
Next
End Sub