Comment adapter mon code pour passer un comboBox en TextBox

Bonsoir ThauTheme, bonsoir le forum,

Pour commencer, je ne maitrise pas le code VBA, j’ai commencé depuis le début de l’année à essayer de comprendre ce code en réalisant un projet afin que cela soit plus concret, donc entre ce que je croix et ce qu’il faut faire il y a peut-être une grande marche.

Je ne comprends pas ton problème ?! Si tu supprimes la ComboBox2, il te faudra supprimer toutes les lignes du code où elle figure. Non ?

Réponse : Oui bien surement, mais j’avais cru voir qu’il n’y avait plus qu’un seule endroit ou elle figurée !

J'ai vu que tu avais commenté la plupart des lignes mais pas celles que tu cites (pourquoi ?) ? Notamment dans la procédure Change de cette ComboBox2 qui n'a plus lieu d'être et dans la procédure Click du CommandButton3 où elle apparaît encore et peut faire planter le code. :

Réponse : il me semble que c’est toi qui m’avais proposé le code avec les commentaires. mais je ne comprends pas cette zone du code. Pour la ComboBox2 dans la procédure Click du CommandButton3, il faut effectivement que je trouve aussi une solution.

Donc en résumé, avec le code que tu m’avais proposé, il me semble que la ComboBox 2 qui j'avais utilisé pour faire le choix des ligne n’est pas utile donc c’est pour cette raison que je souhaité la remplacer par la textBox8.

Merci de ton aide

Cordialement

Bonsoir ThauTheme, bonsoir le forum,

Merci de ton aide

Pour répondre à tes questions ;

Le tableau affiche toutes les données qui sont disponible dans la base.
Si l'on clic sur une ligne, la ligne est transférée dans la fiche.

Voici les actions suivant le bouton utilisé :

1-Bouton SUPPRIMER, cette fonction n'est pas active
2-Bouton NOUVELLE, à utiliser pour créer une nouvelle fiche
3-Bouton AJOUTER, pour ajouter la nouvelle fiche créée
4-Bouton MODIFIER, pour modifier une fiche existante
5-Bouton CHOISIR, permet de transférer, dans le devis, la fiche sélectionnée
6-Bouton QUITTER, pour sortir de la zone fiche

le bouton SOS n'est pas actif, il affichera les infos de 1 à 6.

J'ai neutralisé la partie du code du post 0 et ça semble fonctionner, sauf ma fonction Modifier qui ne marche pas correctement. je cherche par des essais pour comprendre le pourquoi.

Cordialement

re,

fiche = tous les champs dans la zone mauve de l'UF
L'onglet Devis est la feuille devis ou toutes les informations seront stockées.
Aujourd'hui il n'y a que la zone du client choisie.

cordialement

Re,

j'ai fait toutes les modifs dans le code en supprimant la ComboBox2 puis en remplaçant certaine zones par la TextBox8.
ça fonctionne.

Merci pour ton aide

Cordialement

Re,

Merci beaucoup, c'est super.
Je prends bonne note de ta remarque sur les messages.
Je vais passer ce code dans mon programme.

Un grand merci pour le temps que tu as consacré à mon application..

Bien cordialement,

Re bonjour, thautheme, Bonjour le forum,

J’ai supprimé la fonction SUPPRIMER où plutôt « gotouté » cette fonction, car dans le future je souhaiterais qu’il soit nécessaire d’avoirs un code d’accessibilité pour valider cette action.
De plus il ne faut pas pouvoir remplacer un fiche supprimée (en réalité pas supprimée) car il faudrait que toutes les fiches supprimée soient stockées dans un fichier archive et notée archivée et ne pas être visible ou plutôt être visible que sur demande donc peut-être restée dans le même fichier. Pas simple il me semble.
N’étant pas suffisamment compétant pour cette action aujourd’hui, je la laisse de coté.

Pour la fonction SOS j’ai rajouté les infos.

En ce qui concerne les messages, je les ai conservé car je n’utilise pas souvent la fonction donc il me semble important d’avoir ces informations. A l’utilisation je verrais s’il faut les supprimer.

J’ai ajouté un message entre la fiche et le tableau (sur l’UF), et une question me vient à l’esprit : est-il possible de faire clignoter cette affichage jusqu'à ce qu’il y ai une action de prise en compte où peut-être de clignoté toujours ????

Comme dans Word, arrière plan clignotant ou autre ???

Si tu as une solution, je suis client…


Voici le fichier : https://www.cjoint.com/c/FDluAXHTpUt

Merci encore pour avoir participé activement à l’avancement de mon code, de ton code.

Cordialement

Bonjour ThauTheme, bonjour le forum,

Merci encore pour cette intervention des plus efficace et qui répond complètement à ce que j'imaginé. vraiment lorsque l'on maitrise le code il faut juste bien structurer ces idées pour pouvoir aboutir.

Sur le même principe, il serait donc possible de pouvoir réintégrer une fiche dan la base initial, je suppose ?

Cordialement et respect pour le travail effectué aussi rapidement.

Re,

j'ai fait des essais avec la nouvelle fonction supprimer est ça marche bien sauf :

si l'on souhaite supprimer la dernière fiche créée, par exemple ???

Cordialement

Re,

C'est super, la fonction supprimer définitivement fonctionne bien.

Chez moi lorsque j'utilise la fonction rapatrier, il y a erreur de compilation "membre de méthode ou de données introuvable"

Private Sub CommandButton2_Click() 'bouton Rapatrier

DC.Sort.SortFields.Clear

Cordialement

Re,

erreur

Tu dois sélectionner la ligne dans la ListBox1 avant ! D'ailleurs tu peux en sélectionner plusieurs pour les supprimer / rapatrier en une seule fois...

Re,

Merci, je vais regarder et faire les modifs dans mon fichier.

pour cela, je vais faire avec Word, copie des deux codes chacun dans une feuille, puis ouverture feuille avec ancien code et outil/comparaison et fusion de documents (la feuille avec le nouveau code), pour trouver toutes les modifs et les copier coller dans mon fichier.

Je ne sais pas si c'est la méthode la plus simple mais généralement je pratique comme cela.

je fais ça à la soirée.

Cordialement