Incompabilité de Type

[Miishiru]

J'ai fait 2 Sub différents (ci-dessous) , Mais quand je lance Sub Elimine_0() , ca m'affiche Incompatibilité de Type.
Comment Puis-je remédier à ce problème ?


Sub Synthese()
Sheets("Mise en Avant").Select
Range("A4").Select

formuleA = "=SI('Trame Stock'!D4>'Trame Stock'!H4;'Trame Stock'!A4;0)"
formuleB = "=SI('Trame Stock'!D4>'Trame Stock'!H4;'Trame Stock'!B4;0)"
formuleC = "=SI('Trame Stock'!D4>'Trame Stock'!H4;'Trame Stock'!D4-'Trame Stock'!H4;0)"
formuleE = "=C4/B4"

Range("A4").FormulaLocal = formuleA
Range("B4").FormulaLocal = formuleB
Range("C4").FormulaLocal = formuleC
Range("E4").FormulaLocal = formuleE

Range("A4:C159").FillDown
Range("E4:E159").FillDown

End Sub
Option Explicit

Sub Elimine_0()
Dim Lig%
Application.ScreenUpdating = 0

For Lig = [A65536].End(xlUp).Row To 1 Step -1
If Range("A" & Lig).Value = "0" Then Rows(Lig).Delete
Next
End Sub

Merci

 

[Roland_M]

Re : Incompabilité de Type

bonjour,

déjà< Option Explicit < n'est pas à la bonne place !?
et il va falloir revoir les déclarations !?

ensuite Lig% essayes Lig&

 

[thebenoit59]

Re : Incompabilité de Type

Bonjour Miishiru.

Sur quelle ligne cela affiche t'il une erreur ?
Pas de soucis chez moi.

 

[Miishiru]

Re : Incompabilité de Type

C'est sur la ligne suivante que ca m'affiche l'erreur
If Range("A" & Lig).Value = "0" Then Rows(Lig).Delete

Je vous mets le fichier en PJ pour mieux comprendre si vous le souhaitez
Merci encoreRegarde la pièce jointe 366772

 

[Roland_M]

Re : Incompabilité de Type

re

j'ai lancé(avec F8) le Sub Elimine_0()
je n'ai aucune erreur !?

 

[Miishiru]

Re : Incompabilité de Type

Bah je viens de ressayer, cela fonctionne!
Je suis vraiment désolé ! Je comprend pas non plus

Merci beaucoup pour votre aide ! Et encore désolé

 

[thebenoit59]

Re : Incompabilité de Type

Peut-être que la procédure a été lancé sur un autre classeur ou une autre feuille, tu n'as pas défini la feuille sur laquelle tu travailles.
Bonjour Roland.

 

[Miishiru]

Re : Incompabilité de Type

J'ai selectionné la feuille et la cellule sur la procedure.
Encore mes excuses