boucle ...

[lui]

salut a tous..

j'ai sa qui fonctionne sur une ligne..

If Range(t) = 1 Then
Range(("a1"), ("m1")) = delete
end if

donc lorsque t =1 il m 'efface la lige de A1 a m1

matenant en voulant qu'il le face pour toute les ligne lorque t =1 sa marche pas ....

j'ai sa....

For p = 0 To Range("A65536").End(xlUp).Row - 1
If Range(t) = 1 Then
Range(("a1"), ("m1")).Offset(0, p) = Delete

End If
Next p

 

[lui]

j ai trouver ...

For p = 0 To Range("A65536").End(xlUp).Row - 1
If Range(t).Offset(p, 0) = 1 Then
Range(("a1"), ("m1")).Offset(p, 0) = Delete

End If
Next p