Projet de suivi outillages

bonjour

voila encore besoin de votre aide

j'essaye de finaliser un projet de suivi outillages

une petite partie fonctionne mais si l'outil n'existe pas et bien c'est la que je bloque

de plus mon code vba et peut être a améliorer

merci d'avance pour l'aide que vous pourrait m'apporter . ensuite je vais reprendre par apport a d'autre projet la creation de la fiche tetc..

Petit up

Des idées pour pouvoir continuer, ou bien mon code est trop chargé

Bonjour,

Personnellement j'ai fait comme les autres.

J'ai ouvert le fichier : aucune consigne, modop ni explications sur quoi faire et les procédures en causes...

J'ai refermé et je ne pense pas le rouvrir un jour.

eric

Bonjour,

La procédure et l'aide que je demande se trouve en feuille 1 ,

Je bloque sur la deuxième partie,c.-à-d. Choix de l outillage, si outillage existe alors c,est bon mais si celui ci n existe pas c'est la que je bloque.

Je vais continuer de mon côté

Si vous avez une idée merci encore

voila mon probleme est resolue pour le monent sauf que lorsque je choisi le code fournisseur si c'est le code con ça bug il ne m'affiche pas la combobox 2 le choix de la colonne 2

merci encore

Bonsoir

Pour t'aider il faudrait que tu détailles les opérations à faire pour planter le programme

Comme tu connais ton programme, tu ne donnes que des explications succinctes

cisco38 a écrit :

si c'est le code con

cisco38 a écrit :

il ne m'affiche pas la combobox 2

cisco38 a écrit :

le choix de la colonne 2

Merci deja d'avoir porté attention a mon projet

Je vais faire suivre mon projet car j'ai bien avancé , il y a surement moyen de faire plus simple

Je vais commenter celui ci des mon retour a la maison

Merci encore

voila je continu

mon fichier commence a bien fonctionner,

je voudrait que lorsque j'enregistre l'userform il se vide après

j'ai essayer hide

Dim c As Control
For Each c In nouvelle_fiche.Controls
     Select Case TypeName(c)
        Case "TextBox"
         c.Value = ""
        Case "CheckBox"
         c.Value = False
        Case "ListBox", "ComboBox"
         c.ListIndex = -1
         Case "ComboBox"
         c.Value = ""

     End Select
Next c

mais ça ne fonctionne pas