Fichier Menus 10 ne fonctionne pas

Ta réponse m'aide vraiment ! perdre son temps pour une telle réponse, c'est vraimenty idiot !

Autant que la question.
Une copie conforme fonctionne à l'identique...
Chercherais-tu à nous rouler dans la farine ?

Bonjour,
Ben justement ce n'est plus conforme, et c'est toi qui connaît ton application et les modifications que tu as apportées, les anomalies sont là !
Tu peux repartir d'une sauvegarde que tu as surement faite ou sinon tu refaits les modifs petit à petit, tu testes et tu sauvegardes régulièrement.
Cordialement

Bonjour,
Je me répète, c'est toi qui connaît ton application et les modifications que tu as souhaitées y apporter.
Alors tu reprends ton fichier initial, tu supprimes toutes tes macros et tu les réintègres une par une en les modifiant, tu testes, si c'est OK tu sauvegarde une version intermédiaire et tu continues. En tout cas c'est comme ça que j'aurais procédé.
Tu vas forcément finir par tomber sur ce qui cloche. soit c'est toi qui fait une erreur de modification, soit ton code initial avait déjà des lacunes qui ne sont mises en évidence qu'après modification, déclaration de variables, dimensionnement de tableau, ...
Tu en profiteras pour commenter ton code afin d'expliquer ce qu'il est censé faire.
Bon courage

bonjour, avec toute l'aide que tu reçois depuis des années, tu vas sans doute bientôt arriver sur la lune.

Bonjour,

Puisque tu dis que le tri tableau ne s’effectue pas correctement, et bien regarde ta procédure TriTableau qui génère des erreur d’exécution, tu as peut-être oublié de modifier des TabRéfMenus en TabRéfProduits si j'ai compris ta logique !

Tu devais être dans la lune !

Cordialement

Bonjour,
Regarde bien !
Tu as par deux fois le nom TabRéfMenus qui y apparaît, cette référence n'existe pas dans ton classeur, remplace cette référence par TabRéfProduits et teste la procédure, c'est à dire fait un tri quelconque manuel dans ton tableau de produits et lance la macro TriTableau uniquement, ajoute des produits si besoin puisque tu dis que la création fonctionne.
Cordialement,

Bonjour,

Non, une bonne méthode est de tester chaque modification avant de poursuivre pour déceler au plus vite les problèmes.
Tu avais les éléments en main, un message d'erreur signalait un souci sur une méthode de l'objet range et pour cause car le nom indiqué n'existait pas (Key:=Range("TabRéfMenus[Code produit] ")).

Par ailleurs, même si tu ne demande pas la lune, on n'est pas madame Soleil et lire un code non commenté et sans explication n'est pas aussi évident que tu le penses.
D'ailleurs je n'ai pas compris quel est ton mode opératoire pour modifier ou supprimer un produit.
L'important est qu'un de tes problèmes soit résolu.

Cordialement

super! peux-tu alors marquer ce sujet comme résolu?

Bonjour,

Bravo ! mais j'ai l'impression qu'il y a d'autres erreurs après

Pour info je te donne ici le code des procédures TriTableau et celle de la feuille accueil que j'ai aérées et commentées, je pense que c'est plus lisible que ce que tu as

Sub TriTableau()

'Supprimer les critères de tri dans le tableau TabRéfProduits
ActiveWorkbook.Worksheets("Produits").ListObjects("TabRéfProduits").Sort.SortFields.Clear

'Ajouter un ctitère de tri sur la colonne "Code produit" dans le tableau TabRéfProduits
ActiveWorkbook.Worksheets("Produits").ListObjects("TabRéfProduits").Sort.SortFields.Add _
Key:=Range("TabRéfProduits[Code produit]"), _
SortOn:=xlSortOnValues, _
Order:=xlAscending, _
DataOption:=xlSortNormal

'Ajouter un ctitère de tri sur la colonne "Nom produit" dans le tableau TabRéfProduits
ActiveWorkbook.Worksheets("Produits").ListObjects("TabRéfProduits").Sort.SortFields.Add _
Key:=Range("TabRéfProduits[Nom produit]"), _
SortOn:=xlSortOnValues, _
Order:=xlAscending, _
DataOption:=xlSortNormal

'Trier le tableau TabRéfProduits selon les critères de tri renseignés précédemment
With ActiveWorkbook.Worksheets("Produits").ListObjects("TabRéfProduits").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub


Public Ele As Range

Private Sub Worksheet_Change(ByVal Target As Range)

'Si le changement concerne la celulle "C5"
If Not Intersect(Target, Range("C5")) Is Nothing Then

'Effacer le contenu de la liste déroulante cboModifierProduit
cboModifierProduit.Clear

'Pour chaque cellule élément de la colonne "Nom catégorie" du tableau TabRéfProduits
For Each Ele In Application.Range("TabRéfProduits[Nom catégorie]")
'Si le contenu de cette cellule est égale à la catégorie de la cellule "C5" et qu'il y a "oui" dans la cellule 10 colonnes à droite
If Ele = Range("C5") And Ele.Offset(0, 10) = "Oui" Then
'Ajouter dans la liste déroulante cboModifierProduit le "Code Produit" qui se trouve juste à droite de la cellule élément
cboModifierProduit.AddItem Ele.Offset(0, 1)
' Ajouter le numéro de ligne de la cellule élément dans la deuxième colonne de la liste déroulante (utilité ?)
cboModifierProduit.List(ActiveSheet.cboModifierProduit.ListCount - 1, 1) = Ele.Row
End If
Next Ele

'Si le combo box Modifier produit est vide alors
If cboModifierProduit.ListCount = 0 Then
'La mention "Pas de produit à modifier" est ajoutée à l'intérieur du combo box Modifier produit
cboModifierProduit.AddItem "Pas de produit à modifier"
End If

'Affecter par défaut la première valeur de la liste lors de l'affichage de la liste déroulante cboModifierProdui
cboModifierProduit.ListIndex = 0

End If

'Si le changement concerne la celulle "C7"
If Not Intersect(Target, Range("C7")) Is Nothing Then

cboSupprimerProduit.Clear

For Each Ele In Application.Range("TabRéfProduits[Code produit]")
If Ele = Range("C7") Then
cboSupprimerProduit.AddItem Ele.Offset(0, -3)
cboSupprimerProduit.List(cboSupprimerProduit.ListCount - 1, 1) = Ele.Row
End If
Next Ele

If cboSupprimerProduit.ListCount = 0 Then
cboSupprimerProduit.AddItem "Pas de produit à supprimer"
End If

cboSupprimerProduit.ListIndex = 0

End If

End Sub

Cordialement

Bonjour,

Fais tes propres modifications, je pourrais les rectifier par la suite.

Bon courage

Bonjour,

J'ai quelques questions concernant ton application car je peux te proposer quelques évolutions :

Quel est ta version d'Excel
Quelle est l'utilité de la ligne 0000- à la fin de la table produits
Dans la feuille MP quand on change la catégorie le code produit n'est plus cohérent avec la liste de choix, ne faudrait-il pas effacer alors ce code produit
Dans la feuille SP y-a--il des valeurs obligatoires à saisir, faut-il remettre à zéro certaines valeurs plutôt que de laisser les dernières utilisées, la date de création est en saisie manuelle peut-elle être automatique
Dans la feuille Accueil pourquoi la combobox Modifier utilise le code produit et la combobox Supprimer utilise l'intitulé, peut-on harmoniser les deux
Dans la feuille Référentiels la gestion de la liste Code produit (utilisée en feuille SP) est plutôt difficile à faire évoluer, les colonnes C et D sont-elles susceptibles de modifications

Cordialement

Bonjour,

Merci de ta réponse.

Quelle est l'utilité de la ligne 0000- à la fin de la table produits ?

Pour la feuille MP, je voulais parler en fait de la feuille SP : tu crées un produit, les valeurs précédemment saisies sont affichées dans la feuille SP, si tu change la catégorie, le code produit déjà affiché n'est plus conforme à cette nouvelle catégorie, si tu regardes sur la liste déroulante Code produit tu vois qu'elle n'a rien à voir avec le code affiché.

Dans la feuille Accueil, je ne parlais pas des cellules C5 et C7 mais des contrôles ComboBox affichés à droite, le premier (modifier) contient le code produit, le second (supprimer) contient l'intitulé, quel est l'intérêt d'avoir deux méthodes différentes, mais si on supprime la colonne intitulé de la feuille produits cette question n'a plus lieu d'être.
Est-tu bien certain que cet Intitulé n'a pas d'intérêt pour toi, car le code est bien spécifique pour le générer ?

Cordialement

Bonjour,
À quel endroit vois-tu Code produit pour la modification, Intitulé pour la suppression ?
dans la feuille Accueil ce sont les deux contrôles Combox à droite de C5 et C7
Si tu veux modifier ou supprimer un produit existant, tu choisis la catégirie dans C5 ou C7 et le ComboBox à droite de C5 contient un code produit alors que le ComboBox à droite de C7 conteint un intitulé
Pourquoi ?

Bonsoir,

Procédure feuille accueil
cboModifierProduit.AddItem Ele.Offset(0, 1) et
cboSupprimerProduit.AddItem Ele.Offset(0, -3)
Je pense qu'il est préférable d'avoir l'intitulé dans les deux cas

Par ailleurs, j'ai pris le temps de faire une autre version pas mal modifiée que je te joins ici
Teste-la, peu importe que tu la gardes ou non, peut-être qu'il y des choses qui te semblent intéressantes et d'autres non. Il y a peut-être des bugs.

Dis-moi ce que tu en penses
https://www.cjoint.com/c/IHqukvcmYYF

Cordialement

Bonjour,

Merci bien, continue à bien tout tester, on ne sait jamais.

Je continue mes évolutions, : dans la feuille Accueil, je vais passer à l'intitulé pour les deux ComboBox, le numéro qui est affiché dans la deuxième colonne de la ComboBox Suppresssion et qui correspond au numéro de ligne du produit à supprimer dans la table Produits t'est-il utile ?

Cordialement

Bonsoir,

1) Non, dans la ComboBox Supprimer le libellé qui apparaît, par exemple : PVWE01-2 13, est constitué d'une part de l'intitulé du produit (PVWE01-2) comprenant lui même le code produit (PVWE01) et le numéro de création (2) et d'autre part du numéro de ligne du produit dans le tableau Produits (13). C'est ce dernier numéro que pour le quel je te demande ton souhait

2) Pour la ComboBox Modifier tu peux modifier, pour tester, dans la procédure de la feuille Accueil
la ligne cboModifierProduit.AddItem Ele.Offset(0, 1) et mettre cboModifierProduit.AddItem Ele.Offset(0, -3), tu changes juste en -3

Cordialement

Bonsoir,

.Offset(0, 1) signifie : même ligne 3 colonnes à gauche


Cordialement

Bonsoir,

Non, raté !
Dans la procédure Accueil, Ele est une cellule qui pointe sur le Nom catégorie (colonne D)
(instruction For Each Ele In Application.Range("TabRéfProduits[Nom catégorie]"))

Ele.Offset(0, 1) signifie par rapport à la cellule Ele, prendre la cellule 1 colonne à droite c'est à dire le Code produit
Ele.Offset(0, -3) signifie par rapport à la cellule Ele, prendre la cellule 3 colonnes à gauche c'est à dire l'intitulé

A plus tard