Faire une pseudo calculette sous VBA

Question

Bonjour le forum ;)

Donc je suis de retour sur un nouveau petit projet (qui sera pour vous de la rigolade je pense), je vous le présente :

Je voudrais faire (pour mon taf afin de nous faciliter la vie) un programme qui me permette de calculer des indices de fissuration, mon USF est fait je vais vous le détailler :

TextBox de 1 à 30 : on y met les ouvertures de chaque fissures
TextBox32 : ici sera la nombre de fissures total (calcul de TextBox non vide)
TextBox33 : ici on inscrit la longueur du tronçon de l'ouvrage
TextBox34 : ici on inscrit le nombre d'espacement entre fissures (TextBox32 - 1)
TextBox35 : cette valeur est automatique, elle est le calcul de la somme des TextBox de 1 à 30 divisé par le nombre de fissure total
TextBox36 : cette valeur est automatique également, elle est le calcul de la longueur du tronçon divisé par le nombre d'espacement
 Le résultat du calcul de l'indice sera lui dans un label (si possible), et sera la division de TextBox35 / TextBox36

Je voudrais juste un coup de main pour réaliser ça... j'espère avoir été précis (pour une fois), j'aimerais que chaque fois qu'on inscrit une valeur, les calculs se fassent en temps réel... dans la mesure du possible bien évidemment ;-)

Merci pour votre aide...

(pour ceux qui me connaisse, vous avez vu? je suis passé à autre chose...mdr)

Bonne journée a tous

christian
--

jordane45 · Answer

Bonjour Christian,

Nous voulons bien t'aider... mais pour ça il faudrait déjà nous poser une question...

Sur quoi bloques tu exactement ?

cco86260 · Answer

Salut Jordane,

Comment vas tu ?

Donc je ne bloque pas encore, j'ai juste fais l'USF, mais je bosse en même temps ;-), Je faisais juste la pêche aux infos et pistes à exploiter 

La première question est :
Les TextBox (pour les valeur auto) peuvent elles se mettre à jour au fur et à mesure que je rentre les valeurs dans les autre textbox ? si oui comment...

Je compte essayé de coder ça tout seul voir si tout ce que vous m'avez appris jusqu'à aujourd'hui est bien ancré dans ma tête...lol, vous allez tout de même pas me macher le travail à nouveau :)

Bonne journée

Christian 
--

ucfoutu · Answer

Bonjour,
A ce stade : intéresse-toi donc :
- à ce qu'est un évènement
- à ce qu'est l'évènement Change d'une Textbox
- à ce qui provoque cet évènement
- au code qu'il convient de mettre dans la procédure évènementielle dont il s'agit pour agir sur d'autres contrôles de ton choix
Voilà.

cco86260 · Answer

Bonjour ucfoutu,

Je vais me pencher la dessus ce soir, merci pour les infos,

merci

Christian 
 
--

ucfoutu · Answer

Bien.
Pose-toi en attendant des questions sur l'utilité de faire les frais de certaines de tes textboxes.
Une textbox est faite pour y saisir des données et non pour simplement afficher des résultats.
Lorsqu'il ne s'agit que d'affichage, un Label "coûte" moins cher. Et si la donnée "affichée" n'est là que pour servir à des calculs, une simple variable suffit; nul besoin d'encombrer l'interface avec un contrôle (y compris un label).
sont concernées par cette remarque, tes textboxes
TextBox32, TextBox34 , TextBox35  et TextBox36

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Whismeril · Answer

Bonjour, dans la même idée d'économie de contrôles qu'Ucfoutu a initiée.
30 textbox pour saisir 1 à 30 données c'est aberrant.
Tu vas devoir 30 fois tester s'il y a un nombre saisi, compter le nombre d'occurrence et faire une somme de 30 variables (nulle ou pas).

Une listbox serait bien plus appropriée.
Pour savoir le nombre d'entrée, il y a la méthode « count », pour faire la somme une boucle (for par exemple ) sur la collection item.
Et pour alimenter cette listbox une seule textbox qui envoie la valeur numérique après la frappe de la touche Enter ou l'appui sur un bouton.

cco86260 · Answer

Bonsoir a tous,

En fait, j'ai vraiment besoin des 30 TextBox, j'explique pourquoi :

Prenons l'exemple d'un mur en béton, sur ce mur se trouve plusieurs fissures d'ouverture différente, de ces fissures, nous devons calculer l'indice de fissuration, car elle sont toutes additionnées par la suite, cependant, j'ai suivi les conseil d'ucfoutu, j'ai remplacé par des label les textbox servant que pour afficher des resultats, ce qui donne maintenant :

Pour les ouvertures de fissures : 30 TextBox (pas le choix), ... euh... sauf (oui je réfléchi pendant que j'écris)... peut être une textbox, avec une ListBox à coté, et, un bouton ajouter... ce qui ferait que, je rentre ma première ouverture de fissure dans ma textbox, je clique sur mon bouton, la valeur s'ajoute dans la listbox, ainsi de suite, jusqu'à la dernière ouverture de fissure ce qui fait que :

On a le suivi en temps réel des fissure que l'on ajoute
les résultats des label se mettent à jour sur un événement clique (celui du bouton)

et du coup le calcul se fait au fure et a mesure que j'entre mes valeurs...

Qu'en pensez vous ?

Bonne soirée
Christian
 
--

ucfoutu · Answer

Bon.
Au boulot, donc.
Une dernière réflexion, toutefois :
Ce que tu cherches à faire n'est finalement qu'un mini tableur. Et tu cherches à le faire à partir d'un userform que tu crées, à l'aide de VBA, à partir d'un classeur Excel, qui n'est autre qu'un tableur puissant, lui (et qui sera de toutes manières chargé).
On peut alors se demander pourquoi ne pas faire ce "travail" directement sur une feuille de calcul de Excel. Et tous tes calculs pourraient alors se faire sans le moindre code (uniquement des formules Excel) !
Conclusion ? ta méthode/userform n'a alors de réel intérêt que si le but recherché n'est pas de servir utilement ton entreprise, mais de te familiariser avec VBA par des petits exercices de ce genre.

Faire une pseudo calculette sous VBA

8 réponses

Votre réponse

Discussions similaires