Microsoft 365 Code listbox

[Marvin57]

Bonjour à toutes et à tous,

Je suis complètement coincé sur un problème de UserForm et Listbox.

Lorsque je clique sur le bouton " userform " dans l'onglet AA du fichier ci-joint, le userform s'ouvre et affiche le listbox10 qui a comme source le tableau structuré nommé Tab_1.

Jusqu'ici j'arrive.

sur mon fichier réel je peux faire des sorties et des commandes qui sont ensuite inscrit dans les tableaux Tab_C pour le tableau de l'onglet COMMANDE et Tab_S pour le tableau de l'onglet SORTIE.

Ce que j'aurai voulu faire c'est ce qui suit ;

Lorsque je clique sur une ligne du"listbox10" et que cet article est déjà en cours de sortie ou en cours de commande, alors il devrait activer le label correspondant à cette action (Label114) et en même temps il devrait ouvrir la page du multipage de cette action, donc soit SORTIE ou COMMANDE.

J'ai vraiment bidouillé le code du Listbox10_Click et cela ne fonctionne pas.

S'il vous plaît, pourriez vous m'aider à mettre en place ce code afin que je comprenne ce qui ne va pas.

Je vous Remercie d'avance pour votre aide.

Marvin57

 

[sylvanu]

Bonjour Marvin,
Sauf erreur de ma part, j'ai des erreurs sur la macro :
Commandbutton 105 et 108 n'existent pas
La Sheets("SORTIE DU JOUR") n'existe pas non plus.
Dans la boucle "For i=1 to 3", Textbox2 n'existe pas.
La ligne :

Set Result = [Tab_1[ID]].Find(ListBox10, LookIn:=xlValues, lookat:=xlWhole)

Me génère une erreur, je l'ai remplacé par :

Set Result = [Tableau1[ID]].Find(What:=ListBox10, LookIn:=xlValues, LookAt:=xlPart)

Alors ou je me plante lamentablement, ou vous avez de multiples erreurs qu'il faut rectifier avant de poursuivre.

 

[Marvin57]

Bonjour Marvin,
Sauf erreur de ma part, j'ai des erreurs sur la macro :
Commandbutton 105 et 108 n'existent pas
La Sheets("SORTIE DU JOUR") n'existe pas non plus.
Dans la boucle "For i=1 to 3", Textbox2 n'existe pas.
La ligne :

Set Result = [Tab_1[ID]].Find(ListBox10, LookIn:=xlValues, lookat:=xlWhole)

Me génère une erreur, je l'ai remplacé par :

Set Result = [Tableau1[ID]].Find(What:=ListBox10, LookIn:=xlValues, LookAt:=xlPart)

Alors ou je me plante lamentablement, ou vous avez de multiples erreurs qu'il faut rectifier avant de poursuivre.

Bonjour sylvanu,

Désolé, je l'ai fais à l'arrache !! mon dieu !

Je vais essayer de refaire cela correctement.

A+ et Merci

 

[sylvanu]

Il vous faut déjà rectifier toutes les références qui n'existent pas.
Par ex, comme on ne sait pas ou vous voulez ranger la valeur que vous attribuez à ListBox2, et que ListBox2 n'existe pas, personne ne pourra vous aider. Ca on ne peut pas l'inventer.

 

[Marvin57]

Il vous faut déjà rectifier toutes les références qui n'existent pas.
Par ex, comme on ne sait pas ou vous voulez ranger la valeur que vous attribuez à ListBox2, et que ListBox2 n'existe pas, personne ne pourra vous aider. Ca on ne peut pas l'inventer.

bonjour sylvanu,

désolé pour mon retard.

Après réflexion, je vais modifier certains points dans ma demande et préparer en même temps un fichier modèle correct afin que vous ainsi que les autres membres de ce forum puissent mieux, mais surtout bien comprendre mon souhait, si toutefois il sera réalisable.

Cela sera fait dans la semaine et je reviendrai le poster.

Merci d'avance à vous et aux autres personnes impliquées.

Marvin57