Utilisation incorrecte de la propriété

Question

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

Astarehan · Answer

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

Polux31 · Answer

Bonjour,

Tu as supprimé quoi et remis quoi ? Sur quelle ligne apparaissait le 1er message d'erreur ?

Polux31 · Answer

... vba affiche "l'utilisation de la propriété est incorrecte", alors que le code est "normalement" bon

Ça m'étonnerait !!! il y a plusieurs incohérences ...

Sheets("Liste articles"). ? A quoi sert cette ligne ?

ActiveWindow.SelectedSheets.Delete ??? Ça supprime la feuille active qui est ici Sheets("Liste articles") !!! 
Le code qui suit ne peut pas être exécuté et doit provoquer une erreur:
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

Astarehan · Answer

??

Astarehan · Answer

Up.

benol3 · Answer

D'ou provient ton erreur ?

Astarehan · Answer

L'erreur provient toujours de la même ligne. Du moins quand j'entre dans le VB c'est la première ligne qui est surlignée en jaune

Astarehan · Answer

Si jamais ce que je dis n'est pas assez explicite, voici le fichier original :
http://www.excel-downloads.com/remository/Download/Professionnels/Gestion-commerciale/StockJMB.html

benol3 · Answer

Ta procédure se nomme "Affiche_Article" et  non "AfficheArticle".
De plus,  dans cette procédure, il y a une erreur a la ligne de code suivante : 
 Sheets ("Liste articles")<

Il faut rajouter ".qqc" ou alors supprimer cette ligne car je ne vois pas l'interêt de la garder. 

Tout dépends de ce que tu veux faire ...

Polux31 · Answer

Salut,

Je rejoins benol3 dans son commentaire. (je salue et bravo pour ta patience ... j'ai laché au bout de 4 posts !!!)

Il ne faut pas inverser les rôles. Celui qui a besoin d'aide c'est toi, pas ceux qui prennent la peine de vouloir aider. Prends la peine de lire les commentaires qui te sont faits et prends, au moins la peine d'y répondre.

je suis stagiaire dans une boîte et j'ai pas super envie de me prendre la tête 
Il est vrai que c'est mieux quand c'est les autres qui doivent se prendre la tête pour toi ....

Peu importe l'usage du fichier, je ne mérite pas moins d'aide qu'un autre. Vraiment une drôle façon de penser. Tu n'as sincèrement rien à faire ici.
Il n'a jamais été question de mérite ou pas sur CCM. Il y a des bénévoles qui prennent sur leur temps pour apporter de l'aide à des personnes qui font un minimum d'effort pour résoudre leurs problèmes. Encore une fois, n'inverse pas les rôles. Si il y en un qui n'a rien à faire ici, ce n'est certainement pas Benol3 ...
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» 
Nicolas Boileau

Utilisation incorrecte de la propriété

10 réponses

Discussions similaires

Newsletters