Discussion :

[Joryss]

Bonjour,
Je cherche un moyen de transcrire ce que je met sur l'userform dans la base de donner (que j'ai préalablement crée (feuil2)
ps un bouton en feuil1 vous enverra sur l'userform
c 'est une gestion de stock en simple

je ne comprend pas comment faire cela , et encore moins comment valider tout ca !! ( je suis nul mais je continu et petit deviendra grand )
sur l'userform il y a une recherche rapide par référence / produit ,
et aussi l'ajout de :

référence
produit
stock mini
stock maxi
stock réel ( ou actuel )
prix unitaire de la pièces
emplacement
commentaire = j'aimerais que dans commentaire ca affiche un message pour dire que le stock mini a ete atteind ou en dessous afin de commander les pièces )

je cherche encore actuellement , mais je vous avoue que vba est complexe pour moi qui ne m'y connais pas , mais je cherche a apprendre et a évoluer dans ce domaine

Merci a vous

[joe.levrai]

Bonjour,

va voir cette contribution : http://www.developpez.net/forums/d14...e/#post8109199


tu auras tout ce qu'il faut pour te dépanner

[Joryss]

je ne suis pas sur de comprendre tout en faite , mais je vais essayer

Rebonjour , donc je suis paumer et ne trouve pas mes réponses sur le lien :/ un exemple à me donner au moins pour 1 case que je le fasse pour les autres ?

[joe.levrai]

Bonjour,

soit un contrôle TextBox1 que l'utilisateur rempli
soit la feuille "Feuil2" dans laquelle on veut écrire la valeur de TextBox1 en colonne A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil2").Cells(Rows.Count,1).End(Xlup)(2).Value = Me.TextBox1.Value

en élargissant le procédé :

soient 10 contrôles TextBox (de 1 à 10) que l'utilisateur rempli
Les TextBox sont numérotés dans l'ordre des colonnes (TextBox1 = colonne A, TextBox2 = colonne B etc...)
soit la feuille "Feuil2" dans laquelle on veut écrire la valeur des 10 TextBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 to 10
    Sheets("Feuil2").Cells(Rows.Count,i).End(Xlup)(2).Value = Me.Controls("TextBox" & i).Value
Next i

maintenant, impossible de savoir si tu n'as que des TextBox.

par ailleurs, tu veux pouvoir lire, modifier, insérer des enregistrements.
Le lien que je t'ai fourni est complet pour ça, et rédigé par un contributeur clair, carré, compétent

Si tu ne comprend pas ses explication et son fichier de démonstration, ça va être compliqué de faire mieux que lui (pour ma part)

Il te faudrait peut être assimiler ce tutoriel sur le fonctionnement des contrôles et du Userform :

http://silkyroad.developpez.com/VBA/UserForm/
http://silkyroad.developpez.com/VBA/ControlesUserForm/


ça demande un peu d'investissement pour avoir une base te permettant de mener à bien ton projet. Ce ne sont pas 2 exemples de codes que je te propose qui te fourniront le kit de maîtrise nécessaire.

[Joryss]

Merci , oui l'investissement personnel est énorme je le comprend , et je le fais . Je débute totalement dans vba donc je fouine cherche et trouve mais dès que faut coder alors la aie aie sans notion ça devient très dur . Mais j y arriverais avec de la perceverance

[joe.levrai]

Je te conseille de ne pas chercher à gravir l'Everest si tu ne sais pas encore gravir le Mont-Blanc.


Pour commencer, il faudrait apprendre à mettre en place de façon indépendantes ces choses, par étape :

- 1 Userform pour consulter tes données
- 1 Userform pour saisir des données qui iront alimenter une base de données située sur une feuille Excel
- 1 Userform pour modifier une ligne existante (mix entre le point 1 et le point 2 .. tu peux repartir du Userform1 en y intégrant une partie du code du Userform2)

quand tu arrives à créer ces trois types d'userform, là tu pourrais t'attaquer à un userform qui agrège toutes ses actions


Si tu butes sur l'une des étapes, tu pourras ainsi nous expliquer la partie précise qui pose problème, en nous montrant le code que tu as essayé de mettre en œuvre.

Non seulement, les réponses (et études) seront plus simples à réaliser pour nous, mais tu n'auras pas une réponses trop complexe avec 200 modifications à comprendre et mettre en œuvre.