Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Saisir des nombres entiers ou avec ,5 seulement

Saisir des nombres entiers ou avec ,5 seulement

9 réponses
Avatar
Florian
Bonjour
J'ai sur un userform des textbox.
afin de saisir des jours entier ou 1/2 exemple 12 ou 15,5
Je souhaite que l'utilisateur, ne puisse saisir qu'une sorte de décimale ,5
ou pas de décimales
Merci pour votre aide
Flo riant
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacques93
Bonjour Florian,

Essaie :

Dim s As String

With UserForm1.TextBox1
s = .Value
If Len(s) > 0 And InStr(s, ".") > 0 Then
Mid(s, InStr(.Value, "."), 1) = ","
End If
If IsNumeric(s) Then
If s * 2 <> Int(s * 2) Then
MsgBox ("Décimale invalide !")
End If
Else
MsgBox "Valeur non numérique !"
End If
End With

Bonjour
J'ai sur un userform des textbox.
afin de saisir des jours entier ou 1/2 exemple 12 ou 15,5
Je souhaite que l'utilisateur, ne puisse saisir qu'une sorte de décimale ,5
ou pas de décimales
Merci pour votre aide
Flo riant





--
Cordialement,

Jacques.

Avatar
LSteph
Bonjour Florian,

Sauf si je me trompe de Florian, content de te revoir par ici (depuis
qqjours )
comme cela fait longtemps je n'ajouterais pas de ..t
(alors ton projet spécial userform..)

afin de saisir des jours entier ou 1/2
Il me semble que Philippe R avait adopté ( de guerre lâsse)

Avant midi ou Après midi ? case à cocher,
indépendamment de la date saisie dans un TextBox...

A+

Cordiamicalement.

lSteph

"Florian" a écrit dans le message de news:

Bonjour
J'ai sur un userform des textbox.
afin de saisir des jours entier ou 1/2 exemple 12 ou 15,5
Je souhaite que l'utilisateur, ne puisse saisir qu'une sorte de décimale
,5
ou pas de décimales
Merci pour votre aide
Flo riant




Avatar
Jacky
Bonjour
Un truc très très... basique

'Juste pour contrôler
'-------
x =UserForm1.TextBox1
If x > Int(x) And (x - Int(x) > 0.5 Or x - Int(x) < 0.5) Then
MsgBox "interdit"
End If
'--------
'Pour contrôler et arrondir
'si moins de 0.5=entier inférieur
'si plus de 0.5 =entier supérieur
'accepte 0.5
'----------
x = UserForm1.TextBox1
If x > Int(x) And x - Int(x) > 0.5 Then
x = Int([d5]) + 1
ElseIf x > Int(x) And x - Int(x) < 0.5 Then
x = Int([x])
End If
MsgBox x
'-----------------
Salutations
JJ

"Florian" a écrit dans le message de
news:
Bonjour
J'ai sur un userform des textbox.
afin de saisir des jours entier ou 1/2 exemple 12 ou 15,5
Je souhaite que l'utilisateur, ne puisse saisir qu'une sorte de décimale
,5

ou pas de décimales
Merci pour votre aide
Flo riant




Avatar
Jacky
re...
x = Int(x) + 1
et non pas
x = Int([d5]) + 1

JJ


"Jacky" a écrit dans le message de
news:%
Bonjour
Un truc très très... basique

'Juste pour contrôler
'-------
x =UserForm1.TextBox1
If x > Int(x) And (x - Int(x) > 0.5 Or x - Int(x) < 0.5) Then
MsgBox "interdit"
End If
'--------
'Pour contrôler et arrondir
'si moins de 0.5=entier inférieur
'si plus de 0.5 =entier supérieur
'accepte 0.5
'----------
x = UserForm1.TextBox1
If x > Int(x) And x - Int(x) > 0.5 Then
x = Int([d5]) + 1
ElseIf x > Int(x) And x - Int(x) < 0.5 Then
x = Int([x])
End If
MsgBox x
'-----------------
Salutations
JJ

"Florian" a écrit dans le message de
news:
Bonjour
J'ai sur un userform des textbox.
afin de saisir des jours entier ou 1/2 exemple 12 ou 15,5
Je souhaite que l'utilisateur, ne puisse saisir qu'une sorte de décimale
,5

ou pas de décimales
Merci pour votre aide
Flo riant








Avatar
Jacky
Re..
Tu as changé de fuseau horaire Flo riant ??

JJ

"Florian" a écrit dans le message de
news:

Désolé Lsteph
Ce n'est pas moi ;-)
Flo riant

"LSteph" a écrit dans le message de news:

Bonjour Florian,

Sauf si je me trompe de Florian, content de te revoir par ici (depuis
qqjours )
comme cela fait longtemps je n'ajouterais pas de ..t
(alors ton projet spécial userform..)

afin de saisir des jours entier ou 1/2
Il me semble que Philippe R avait adopté ( de guerre lâsse)

Avant midi ou Après midi ? case à cocher,
indépendamment de la date saisie dans un TextBox...

A+

Cordiamicalement.

lSteph

"Florian" a écrit dans le message de news:

Bonjour
J'ai sur un userform des textbox.
afin de saisir des jours entier ou 1/2 exemple 12 ou 15,5
Je souhaite que l'utilisateur, ne puisse saisir qu'une sorte de
décimale



,5
ou pas de décimales
Merci pour votre aide
Flo riant













Avatar
LSteph
Alors pardon ,
je voulais parler de
Flot Riant
;o))
lSteph

"Florian" a écrit dans le message de news:


Désolé Lsteph
Ce n'est pas moi ;-)
Flo riant

"LSteph" a écrit dans le message de news:

Bonjour Florian,

Sauf si je me trompe de Florian, content de te revoir par ici (depuis
qqjours )
comme cela fait longtemps je n'ajouterais pas de ..t
(alors ton projet spécial userform..)

afin de saisir des jours entier ou 1/2
Il me semble que Philippe R avait adopté ( de guerre lâsse)

Avant midi ou Après midi ? case à cocher,
indépendamment de la date saisie dans un TextBox...

A+

Cordiamicalement.

lSteph

"Florian" a écrit dans le message de news:

Bonjour
J'ai sur un userform des textbox.
afin de saisir des jours entier ou 1/2 exemple 12 ou 15,5
Je souhaite que l'utilisateur, ne puisse saisir qu'une sorte de décimale
,5
ou pas de décimales
Merci pour votre aide
Flo riant













Avatar
Florian
Shame on me
Pardon désolé ;-))
Je rentre dans le temps !
Merci encore à tous
Bonne journée
Flo riant

"Jacky" a écrit dans le message de news:

Re..
Tu as changé de fuseau horaire Flo riant ??

JJ

"Florian" a écrit dans le message de
news:

Désolé Lsteph
Ce n'est pas moi ;-)
Flo riant

"LSteph" a écrit dans le message de news:

Bonjour Florian,

Sauf si je me trompe de Florian, content de te revoir par ici (depuis
qqjours )
comme cela fait longtemps je n'ajouterais pas de ..t
(alors ton projet spécial userform..)

afin de saisir des jours entier ou 1/2
Il me semble que Philippe R avait adopté ( de guerre lâsse)

Avant midi ou Après midi ? case à cocher,
indépendamment de la date saisie dans un TextBox...

A+

Cordiamicalement.

lSteph

"Florian" a écrit dans le message de news:

Bonjour
J'ai sur un userform des textbox.
afin de saisir des jours entier ou 1/2 exemple 12 ou 15,5
Je souhaite que l'utilisateur, ne puisse saisir qu'une sorte de
décimale



,5
ou pas de décimales
Merci pour votre aide
Flo riant

















Avatar
Philippe Noss
Pourquoi ne pas utiliser un controle de type toupie avec un pas de 5,
il suffit ensuite de diviser la valeur par 10 !
PN
www.exefac.com
Avatar
Florian
Bonjour Philippe
En fait les utilisateurs saisissent directement dans un textbox
Cela évite les pertes de temps
Flo riant

"Philippe Noss" a écrit dans le message de news:

Pourquoi ne pas utiliser un controle de type toupie avec un pas de 5,
il suffit ensuite de diviser la valeur par 10 !
PN
www.exefac.com