userform

[eddy13t]

Bonjour,

voila j'ai créer un userform et quand je clique sur "OK" les données de mon userform se reporte dans Excel, en faite ce qui doit se reporter dans Excel sont des heures et j'ai eu du mal à trouver une solution pour faire ça alors j'ai choisi de mettre des valeurs qui se divise par 24 et aprés avec un format de cellule j'arrive à obtenir l'heure mais quand je met 0,5 pour une demi heure ça marche pas...je comprends pas ça marche pas avec les décimaux 🙁

Je vous met une partie du code pour que vous puissez y voir plus clair

Private Sub OK_Click()


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


param.Hide


Merci pour votre aide

 

[klin89]

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 😉

 

[eddy13t]

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

 

[klin89]

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.

Klin89

 

[eddy13t]

Re : userform

Je trouve pas ça me gonfle merci kd mm

 

[eddy13t]

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...🙁

 

[eddy13t]

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

 

[eddy13t]

Re : userform

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