userform

Re : userform

Bonjour le forum,
Bonjour eddy13t,

Une idée avec le fichier de Lii ci-dessous.

https://www.excel-downloads.com/threads/userform-probleme-de-recuperation-de-donnees.106873/

Sinon fais une recherche avancée sur le forum, il doit y avoir beaucoup
d'exemples.

Une autre solution de myDearFriend! pour saisir une heure valide dans une textbox

https://www.excel-downloads.com/threads/formatage-de-txtbox-en-heure.46342/

Amicalement Klin89 😉

Re : userform

OUi j'ai regardé ^^ mais ma question serait plutot comment fait t-on pour faire passer un nombre décimale du useform dans excel car même avec val() quand je tape un nombre décimale dans le userform ça prend que la partie entiere..
Jtapa 4,4 dans le userform c'est 4 qui apparait dans excel....bizarre

Re : userform

Re eddy13t,

Regardes le fichier de bhbh ci-dessous :

https://www.excel-downloads.com/threads/userform-et-formats-dans-ma-feuille-excel.122663/

Ps : essaies CDbl au lieu de val.

l'aide Excel dit ceci :

Note La fonction Val ne reconnaît que le point comme séparateur décimal (.). Lors de l'utilisation d'autres séparateurs décimaux (applications internationales, par exemple), convertissez la chaîne en nombre à l'aide de la fonction CDbl.

Cliquez pour agrandir...

Klin89

Re : userform

Je trouve pas ça me gonfle merci kd mm

Re : userform

Voila le code

Private Sub Annuler_Click()

param.Hide

End Sub

Private Sub dech_Exit(ByVal Cancel As MSForms.ReturnBoolean)


If dech <> "" Then
If Not IsNumeric(dech) Then
rep = MsgBox("Pas de texte svp!", vbOKOnly + vbExclamation, "ATTENTION")
dech = ""

ElseIf Val(dech) < 0 Then
rep = MsgBox("Le temps de déchargement ne peut pas être négatifs !", vbOKOnly + vbExclamation, "ATTENTION")
dech = ""


End If
End If

End Sub

Private Sub marg_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If marg <> "" Then
If Not IsNumeric(marg) Then
rep = MsgBox("Pas de texte svp!", vbOKOnly + vbExclamation, "ATTENTION")
marg = ""

ElseIf Val(marg) < 0 Then
rep = MsgBox("Le temps de déchargement ne peut pas être négatifs !", vbOKOnly + vbExclamation, "ATTENTION")
marg = ""


End If
End If


End Sub

Private Sub OK_Click()


Range("H_dech") = Val(dech) / 24
Range("Marge") = Val(marg) / 24
Range("Retour_WareH") = Val(retour) / 24


param.Hide



End Sub

Private Sub retour_Exit(ByVal Cancel As MSForms.ReturnBoolean)


If retour <> "" Then
If Not IsNumeric(retour) Then
rep = MsgBox("Pas de texte svp!", vbOKOnly + vbExclamation, "ATTENTION")
retour = ""

ElseIf Val(retour) < 0 Then '
rep = MsgBox("Le temps de déchargement ne peut pas être négatifs !", vbOKOnly + vbExclamation, "ATTENTION")
retour = ""


End If
End If

End Sub

Private Sub UserForm_Activate()


dech = ""
retour = ""
marg = ""

dech.SetFocus


End Sub



Je veux juste que quand j'entre une donnée avec décimale dans mon userform quand je clique sur OK ça me la reporte dans Excel je comprend pas pourquoi les décimales veulent pas apparaitre...🙁

Re : userform

oui j'ai essayé en nombre, en standard, ça me prend que l'entier et pas le décimal pourtant ça a lair simple mais ché pas je bloque lol

Re : userform

Jai trouvé c'était tout simplement avec la formule cells.value qui fallait le faire...