Microsoft 365 Affichage sur List Box et retranscrire donnée sur cellule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Roger26

XLDnaute Nouveau
Bonjour à tous

Connaissant très peu le VBA. je me permets de vous solliciter pour savoir s'il est possible d'afficher une information sur une listbox et textbox selon des conditions de vérification et de transposer l'information quand elle est OK.

Je m'explique :
J'aimerai quand je bip le code barre (à l'aide mon ma douchette) pour mettre la valeur sur Textbox1
1- Sur textbox2, afficher la donnée selon valeur inscrite en textbox1 (voir lien avec Onglet Machines)
2 - Si Non existant alors msgbox "Non existant", si Existant alors afficher données textbox2 et sur la listbox1 afficher les informations (voir en-tête).
Pour ce qui est de la listbox1
- Afficher les informations si et seulement si il n'y a pas de clôturer sur la même ligne (voir onglet Relevé)

En somme fonctionnalité que doit faire le fichier :
L'userform s'ouvre.
Je bipe mon code barre, les informations apparaissent sur l'onglet Relevé colonne A a E.
Et quand je bipe a nouveau le meme code barre les données en F et H de l'onglet Relevé apparaissent.

Le 1er bip pour dire que j'ouvre le problème, le deuxième clôture le problème.

En espérant que mes explications ont été claires.

Je vous remercie par avance de votre aide

Roger26
 

Pièces jointes

Bonjour Sousou

Premièrement je te remercie pour ton aide et de te pencher sur mon problème.

Je t'ai fait une explication en illustrant les choses.
J'espère que cela te convient et que les explications seront plus claires.

1ère page = Première action
Page 2 à 4 = Les différentes conditions ( 1 page = 1 condition décrite)
Page 5 = Concernant l'info de la Listbox1

Un grand merci en avance pour ton aide.

Le fichier Excel est le même que mon premier post

A+

Roger26
 

Pièces jointes

Bonjour.
Pas certain d'avoir bien assimilé ta question, mais voilà ce que j'ai essayé de faire.
Si la machine n'existe pas : Numéro de machines?
Si elle existe mais pas d'opération: Nouvelle ligne en ouverture.
Si elle existe et qu'une opération est ouverte : Cloture la ligne
 

Pièces jointes

Bonjour.
Pas certain d'avoir bien assimilé ta question, mais voilà ce que j'ai essayé de faire.
Si la machine n'existe pas : Numéro de machines?
Si elle existe mais pas d'opération: Nouvelle ligne en ouverture.
Si elle existe et qu'une opération est ouverte : Cloture la ligne
Hello SouSou
Si elle existe mais pas d'opération: Nouvelle ligne en ouverture.
Oui c'est ça !! Mais si je retape le numéro machine, et qu'il n'a pas d'opération en ouverture et pas clôture alors m'ajouter une nouvelle ligne aussi.
Sur l'onglet Relevé, il peut m'ajouter plusieurs fois l'opération portant le même numéro de machine si et seulement si, il ne trouve pas de ligne d'opération avec ce même numéro machine en ouverture et vide en colonne H

L'idée c'est de pouvoir ouvrir un opération et la clôturer. s'il n'existe pas de numéro à clôturer. Alors en créer une autre et la clôturer quand physiquement c'est fait.

Est-ce que c'est plus clair ?

Sinon c'est magnifique ce que tu as fait merci ^^

Roger26
 
Voilà une solution me semble t-il
si machine n'existe pas alors numéro de machine?
si non
si, dans relevé, machine n'existe pas alors création nouvelle ligne
sinon cherche la ligne non clôturer de cette machine et clôture la ligne
si toutes les lignes de cette machine clôturées alors nouvelle ligne
 

Pièces jointes

Hello Sousou

Merci beaucoup pour ton aide. Il est top top top !!!!

Maintenant je pense que cela ne doit pas être compliqué de d'afficher sur ma listbox les lignes non clôturées.

Je pense que je peux m'en sortir hihihi.

Merci mille fois pour ton job !!!!!!

Roger26
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
794
Retour