Calcul avec textbox

Bonjour GClaire,


Je n'ai pas complètement épluché mais j'ai déjà une première petite remarque : il faut éviter les accents dans les noms de variable.

A+

Abel.

Abel, le forum

J'ai modifié, et mis

lblEssaie = Worksheets(TheNum).Range('AX33') * cdbl (txtSemainesProgrammees) / 12

Mais idem, cela ne va pas

Merci, G'Claire

Bonsoir

GClaire l'incompatibilité de type vient du fait qu'une des données utilisées n'est pas du bon Type pour affectuer des opération numerique il faudrait peut être mettre ton fichier pour mieux voir. Mais à vu de pif je peux te dire que Month() renvoi un Integer et pas un Byte surtout si ensuite il est divisé et donnes un chiffre à virgule, ensuite le TextBox comme son nom l'indique contient du texte donc pas spécialement conçu pour des opérations, je te propose d'utilisé la fonction Val(String) pour le mettre en numérique. voilà y'a certainement autre chôses mais bon comme ça je serai pas te dire. j'espère que ça pourra déjà te donner un coup de pouce 🙂

salim

Bonsoir GClaire, Abel, salim, le forum,

Une petite question : C'est quoi ce lblEssaie ?

Si c'est objet Label, tu devrais essayer :

lblEssaie.Caption = (Worksheets(TheNum).Range('AX33') * txtSemainesProgrammées.Value) / 12

si tu veux modifier le 'label'...

Amicalement
Charly

Salut a toutes et tous

Merci pour vos infos.

Ce Label me sert a afficher le résulat du calcul :

Donc pour faire le calcul, j'ai mis ce code .

En tête de module

Dim Mensualisation

et dans le bouton valider

Private Sub cmdValider_Click()
Dim Mois, TheNum As Byte, Mensualisation
TheNum = CByte(Month(Date))
Mensualisation = (Worksheets(TheNum).Range('AX33') * CDbl(txtSemainesProgrammees)) / 12

If txtSemainesProgrammees = '' Then
MsgBox 'Veuillez entrer le nombre de semaines programmées !!!', vbCritical, 'Erreur à la validation'
txtSemainesProgrammees.SetFocus
Exit Sub
End If
Call Msg4
For Mois = TheNum To 12
With Worksheets(Mois)
.Range('AH17') = Mensualisation
End With
Next Mois
Call Msg2
Unload Me
End Sub

Pour l'envoie dans la feuille, c'est Ok.

Mais ce que je voulais faire c'est faire apparaitre dans ce label, cette valeur quand je modifié la valeur du TextBox.

Donc dans le change du TextBox j'ai mis :

lblValeursMensualisation.Caption = 'La valeur de la mensualisation sera de ' & Mensualisation


Et cela me met un résulat qui n'a rien a voir.

Si valeur dans TextBox = 52

J'ai 174,771666666666661

Alors que je devrais avoit 95,333333

Voila et encore merci, G'Claire

Bonjour G'Claire, Abel, salim, le forum,

Surprenant ! Pourrais-tu nous envoyer ton fichier, après avoir supprimé les données confidentielles, afin que nous puissions t'aider ?

Il y a forcément une explication, donc une solution 😉

Amicalement
Charly

Salut

Pour le moment je vais passer par une MsgBox, mais...

Je vais continuer a chercher, car un si petit problème doit avoir une solution que je peu trouver.

Si vraiment je ne trouve pas, je reviendrais vous voir.

Merci encore, G'Claire

SAlut

as-tu essayé en passant par

lblEssaie = Worksheets(TheNum).Range('AX33') * Val (txtSemainesProgrammees) / 12

Pascal76, le forum

merci, j'ai réussi a me dépatouiller.

Quelle différance y'a t'il entre Val et cdbl?

Merci encore, G'Claire