Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel "bug"

"bug"

2 réponses
Avatar
pierre
rebonjour ,
si je rentre une valeur non valide dans mon textbox1,
alors
T1 = MsgBox("Message", 0, "Erreur de saisie")
If T1 = vbOK Then Exit Sub
et c'est là le bug
je voudrais que vbOK efface la valeur rentrée dans text box1 et y rentrer
une autre valeur
merci d'abuser de vous


begin 666 pierre.vcf
M0D5'24XZ5D-!4D0-"E9%4E-)3TXZ,BXQ#0I..CMP:65R<F4-"D9..G!I97)R
M90T*14U!24P[4%)%1CM)3E1%4DY%5#HB>'!I97)R934R>") =&ES8V%L:2YF
D<@T*4D56.C(P,#0P,C S5#$W,#DS-%H-"D5.1#I60T%21 T*
`
end
Signaler un problème avec ce contenu

2 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
Pierre CFI [mvp]
bonjour
If Me.textbox1 <> "bonnevaleur" then
msgbox "erreur"
Me.textbox1 = "bonnevaleur"
end if
mais si tu mettais la bonnevaleur par défauft dans une textbox verouillée.....

--
Pierre CFI

"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de news:
rebonjour ,
si je rentre une valeur non valide dans mon textbox1,
alors
T1 = MsgBox("Message", 0, "Erreur de saisie")
If T1 = vbOK Then Exit Sub
et c'est là le bug
je voudrais que vbOK efface la valeur rentrée dans text box1 et y rentrer
une autre valeur
merci d'abuser de vous





Avatar
pierre
merci de ta réponse rapide

"Pierre CFI [mvp]" a écrit dans le message news:

bonjour
If Me.textbox1 <> "bonnevaleur" then
msgbox "erreur"
Me.textbox1 = "bonnevaleur"
end if
mais si tu mettais la bonnevaleur par défauft dans une >textbox
verouillée.....


le problème est que j'ai au moins 55 valeurs valides( de
-50 à +5)
et je ne comprends pas(bien) le reste
voici mon bout de proc entier:

T = Range("Temp").Value
If T = "" Then Exit Sub
Range("Temp") = T
If Range("Temp") < -50 Or Range("Temp") > 5 Then
T1 = MsgBox("La température doit être comprise entre -50°C et
5°C", 0, "Erreur de saisie")
If T1 = vbOK Then Exit Sub
Else:.....
faut il que je remplace range(...) par Me.Textbox?
merci encore

--
Pierre CFI

"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de news:


rebonjour ,
si je rentre une valeur non valide dans mon textbox1,
alors
T1 = MsgBox("Message", 0, "Erreur de saisie")
If T1 = vbOK Then Exit Sub
et c'est là le bug
je voudrais que vbOK efface la valeur rentrée dans text box1 et y
rentrer


une autre valeur
merci d'abuser de vous