aide sur le debugage d'un code !

[Creepy]

Bonjour all

J'ai fait un petit code qui doit regarder le vauleur de mes cellule C, D, E, F, G & H. Si elles sont à 0, alors il faut effacer la ligne

Seulement j'ai un bug ! Erreur de compilation, incompatibilité de type.

Merci de votre aide, je pense que cela vient du dim Ligne mais j'ai pas la solution.

++

Creepy
---------

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

 

[@Christophe@]

Bonsoir Creepy

Je peux me tromper, mais selon moi tes Range ne sont pas correct:

Remplace

Range("C:" & L1).Value

Par ceci
Range("C" & L1).Value

Dans tous tes range il te faut supprimer les : : : : : : :

Tient moi au courant

@Christophe@

 

[Creepy]

A priori le pb vient de la ligne suivante :

For ligne = Range("A4") To Range("a:" & l2)

J'ai un pb pour bien la definir

Merci d'avance

Creepy

 

[romfret]

Bjr ce fil , re le forum,




As-tu essayer avec :

For ligne = Range("A4") To Range("a:a" & l2).


Tien moi au courant , merci.


@+, romfret