Utilisation incorrecte de la propriété

Fermé
Astarehan - 19 mai 2014 à 09:07
benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 - 22 mai 2014 à 13:40
Bonjour, j'ai ce code :
Sub Effacer_article()
'
' Effacer_article Macro
'

Supprimermsg = MsgBox("Supprimer cet article ?", vbOK, "Opération irréversible...")
If Supprimermsg = vbCancel Then
Exit Sub
Else

If Sheets("Liste articles").Range("G1") = 2 Then
Supprimermsg = MsgBox("Il doit rester au moins 2 articles !", vbOKOnly, "Opération irréversible...")
Exit Sub
End If
Application.ScreenUpdating = False
Sheets("Liste articles").
ActiveWindow.SelectedSheets.Delete

nbarticle = Sheets("Liste articles").Range("H1") + 1
Sheets("Liste articles").Range("A" & nbarticle).EntireRow.Delete
Sheets("Liste articles").Range("G1") = Sheets("Liste articles").Range("G1") - 1


Sheets("Liste articles").Range("H1") = 1
Call AfficheArticle

End If
End Sub

C'est un bouton afin de supprimer un article sur un classeur de gestion de stocks. J'aurais aimé savoir pourquoi vba affiche "l'utilisation de la propriété est incorrecte", alors que le code est "normalement" bon
Cordialement

10 réponses

je l'ai supprimée, et remise, maintenant j'ai "Erreur de compilation : Sub ou Function non définie" ..
0