Un userform qui ne marche plus...

[isifos]

Bonjour, je travaille depuis hier sur une feuille de calcul de type userform sur mon vba pour programmer une petite moulinette de résistance pour mon travail. Elle marchait très bien hier même si en construction mais aujourd'hui je ne peux même pas afficher l'userform donc je ne sais pas trop où est le problème.
Je joins le fichier pour que vous puissiez vois où est mon erreur (de débutant probablement).
Merci d'avance

 

[laetitia90]

Re : Un userform qui ne marche plus...

bonjour isifos🙂🙂
j'ai supprime module1 appélation bizarre!!
j'ai cree un autre bouton bouton2 puis appel macro

Sub appel()
UserForm1.Show
End Sub

dans initialise de l'user j'ai enleve ces 2 lignes

Nd = NEd_Edit.Value
Md = MEd_Edit.Value

c'est quoi ?? ND & MD

user ce charge!!!

 

[Fo_rum]

Re : Un userform qui ne marche plus...

Bonjour,

Quelques précisions :
Laetitia😀 a raison de souligner que les variables Nd et Md n'ont rien à faire ici.

Cependant tu n'aurais pas eu de problème avec Dim Nd, Md as String.

Un contrôle "Textbox" est initialisé avec une chaîne (vide par défaut) donc avec "Dim Nd, MD as Double" c'est le type de Md qui coince. En effet dans cette expression, il faut savoir que Nd est déclarée en Variant par défaut et non pas comme Md !

Pour bien déclarer* les variables il faut bien choisir leur type et éviter les déclarations du genre Dim X, … !

* On insistera jamais assez sur l'utilité de cette étape. D'aucun ne savent pas que cela peut influer sur la quantité de mémoire utilisée et même sur la rapidité d'une macro sans parler de la qualité de la programmation !

 

[isifos]

Re : Un userform qui ne marche plus...

Merci beaucoup à vous deux, comme d'habitude des erreurs de frappe qui sont difficile à voir quand on a le nez dedans.
Tant que j'y suis, je vais avoir besoin de faire pas mal de calcul et ayant jouer ave les fonctions je me rends compte que je n'arrive pas bien à faire appel à celles ci.
Que je ne me trompe pas, la procédure à suivre est la suivante :

Function Nomdelafonction (Var1 As Type, Var2 As Type,....) As Type
Mes différentes variables et calculs
End Function

Et quand je veux par exemple remplir une de mes textbox

Sub Macro ()
Dim Var as Type
Nomdelafonction(Var1,Var2,...) = Var_Edit.Value
End sub

Une erreur sur la procédure?