Utilisation incorrecte de la propriété
Astarehan
-
benol3 Messages postés 570 Date d'inscription Statut Membre Dernière intervention -
benol3 Messages postés 570 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Utilisation incorrecte de la propriété vba
- Utilisation chromecast - Guide
- Télécharger gratuitement notice d'utilisation - Guide
- Whatsapp date incorrecte - Forum LG
- WHATSAPP NE S'OUVRE PLUS ✓ - Forum Windows Phone
- Incompatibilité de type vba ✓ - Forum Programmation
10 réponses
je l'ai supprimée, et remise, maintenant j'ai "Erreur de compilation : Sub ou Function non définie" ..
Bonjour,
Tu as supprimé quoi et remis quoi ? Sur quelle ligne apparaissait le 1er message d'erreur ?
Tu as supprimé quoi et remis quoi ? Sur quelle ligne apparaissait le 1er message d'erreur ?
... 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 ...
Le code qui suit ne peut pas être exécuté et doit provoquer une erreur:
Ç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
Tout d'abord le code ne vient pas de moi. Personnellement j'y connais pas grand chose en code, encore moins en VB...
J'ai modifié certains éléments du classeur pour l'utilisation que j'en fait, le classeur de base était fonctionnel, alors que je n'ai rien modifié dans cette partie. Et oui effectivement, un bouton permet d'ajouter un élément en créant une feuille dédiée, ce bouton permet de supprimer la feuille crée avec l'élement ajouté dans le tableau.
J'ai modifié certains éléments du classeur pour l'utilisation que j'en fait, le classeur de base était fonctionnel, alors que je n'ai rien modifié dans cette partie. Et oui effectivement, un bouton permet d'ajouter un élément en créant une feuille dédiée, ce bouton permet de supprimer la feuille crée avec l'élement ajouté dans le tableau.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
http://www.excel-downloads.com/remository/Download/Professionnels/Gestion-commerciale/StockJMB.html
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 :
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 ...
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 ...
Si tu regardes sur la feuille d'origine, le bouton permet de supprimer l'entrée, c'est rétablir cette fonction que je voudrais.
Ensuite j'aimerais savoir comment moduler l'entrée dans "liste articles", quand on clique sur "ajouter article" j'aimerais rajouter des entrées, comment pourrais-je m'y prendre ?
Ensuite j'aimerais savoir comment moduler l'entrée dans "liste articles", quand on clique sur "ajouter article" j'aimerais rajouter des entrées, comment pourrais-je m'y prendre ?
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
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
