bonsoir à tous(tes)
j'ai un textbox sur un userform je voudrais que si le nombre rentré dans le
textbox n'est pas compris dans une plage de valeur(par ex. 10,-10) j'ai un
msgbox "erreur" que la valeur rentrée soit effacer et que mon textbox reste
actif (que le curseur reste dedans et ne passe pas au suivant)
toutes vos réponses seront le bienvenue car je ne suis pas un as d'excel
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 U5#(Q-3@Q-UH-"D5.1#I60T%21 T*
`
end
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
Clément Marcotte
Bonjour,
Quelques exemples en vrac, non adaptés:
Private Sub CommandButton1_Click() Dim ladate As Date Dim restela As Boolean ladate = CDate(TextBox1.Value) If Weekday(ladate) = vbSaturday Or _ Weekday(ladate) = vbSunday Then MsgBox ("Vous avez choisi un jour de fin de semaine") TextBox1.Value = "" TextBox1.SetFocus Else 'Si la date est bonne, 'continuer la procédure ici, 'ou se diriger vers la suite.l End If
End Sub
Private Sub liste_Change() Dim longueur As Integer, lareponse As Boolean 'limiter le nombre de caractères saisis à 100 longueur = 100 'Appeler la fonction limitelalongueurdelaligne 'avec la chaîne de caractères, et la limite 'lareponse retourne True ou False lareponse = limitelalongueurdelaligne(Liste.Value, longueur) If lareponse = True Then 'si lareponse = True, déplacer le pointeur 'de souris sur le bouton Continuer Continuer.SetFocus End If End Sub
Function limitelalongueurdelaligne(texte, longueur) As Boolean 'Les paramètres texte et longueur, sont fournis 'par la procédure appelante Dim Message As String, reponse As Integer If Len(texte) > longueur Then 'Si le nombre de caractèrs excède la limite indiquée par 'le paramètre longueur, la fonction retourne Vrai Message = "Vous avez atteint la limite de " & longueur & " caractères." reponse = MsgBox(Message, vbOKOnly + vbInformation, "Test de la longueur du texte entré") limitelalongueurdelaligne = True Else 'Si le nombre de caractèrs excède la limite indiquée par 'le paramètre longueur, la fonction retourne Faux limitelalongueurdelaligne = False End If End Function
"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de news:
bonsoir à tous(tes) j'ai un textbox sur un userform je voudrais que si le nombre rentré dans le
textbox n'est pas compris dans une plage de valeur(par ex. 10,-10) j'ai un
msgbox "erreur" que la valeur rentrée soit effacer et que mon textbox reste
actif (que le curseur reste dedans et ne passe pas au suivant) toutes vos réponses seront le bienvenue car je ne suis pas un as d'excel
Bonjour,
Quelques exemples en vrac, non adaptés:
Private Sub CommandButton1_Click()
Dim ladate As Date
Dim restela As Boolean
ladate = CDate(TextBox1.Value)
If Weekday(ladate) = vbSaturday Or _
Weekday(ladate) = vbSunday Then
MsgBox ("Vous avez choisi un jour de fin de semaine")
TextBox1.Value = ""
TextBox1.SetFocus
Else
'Si la date est bonne,
'continuer la procédure ici,
'ou se diriger vers la suite.l
End If
End Sub
Private Sub liste_Change()
Dim longueur As Integer, lareponse As Boolean
'limiter le nombre de caractères saisis à 100
longueur = 100
'Appeler la fonction limitelalongueurdelaligne
'avec la chaîne de caractères, et la limite
'lareponse retourne True ou False
lareponse = limitelalongueurdelaligne(Liste.Value, longueur)
If lareponse = True Then
'si lareponse = True, déplacer le pointeur
'de souris sur le bouton Continuer
Continuer.SetFocus
End If
End Sub
Function limitelalongueurdelaligne(texte, longueur) As Boolean
'Les paramètres texte et longueur, sont fournis
'par la procédure appelante
Dim Message As String, reponse As Integer
If Len(texte) > longueur Then
'Si le nombre de caractèrs excède la limite indiquée par
'le paramètre longueur, la fonction retourne Vrai
Message = "Vous avez atteint la limite de " & longueur & "
caractères."
reponse = MsgBox(Message, vbOKOnly + vbInformation, "Test de
la longueur du texte entré")
limitelalongueurdelaligne = True
Else
'Si le nombre de caractèrs excède la limite indiquée par
'le paramètre longueur, la fonction retourne Faux
limitelalongueurdelaligne = False
End If
End Function
"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de
news:OuB1jHD7DHA.2752@TK2MSFTNGP09.phx.gbl...
bonsoir à tous(tes)
j'ai un textbox sur un userform je voudrais que si le nombre rentré
dans le
textbox n'est pas compris dans une plage de valeur(par ex. 10,-10)
j'ai un
msgbox "erreur" que la valeur rentrée soit effacer et que mon
textbox reste
actif (que le curseur reste dedans et ne passe pas au suivant)
toutes vos réponses seront le bienvenue car je ne suis pas un as
d'excel
Private Sub CommandButton1_Click() Dim ladate As Date Dim restela As Boolean ladate = CDate(TextBox1.Value) If Weekday(ladate) = vbSaturday Or _ Weekday(ladate) = vbSunday Then MsgBox ("Vous avez choisi un jour de fin de semaine") TextBox1.Value = "" TextBox1.SetFocus Else 'Si la date est bonne, 'continuer la procédure ici, 'ou se diriger vers la suite.l End If
End Sub
Private Sub liste_Change() Dim longueur As Integer, lareponse As Boolean 'limiter le nombre de caractères saisis à 100 longueur = 100 'Appeler la fonction limitelalongueurdelaligne 'avec la chaîne de caractères, et la limite 'lareponse retourne True ou False lareponse = limitelalongueurdelaligne(Liste.Value, longueur) If lareponse = True Then 'si lareponse = True, déplacer le pointeur 'de souris sur le bouton Continuer Continuer.SetFocus End If End Sub
Function limitelalongueurdelaligne(texte, longueur) As Boolean 'Les paramètres texte et longueur, sont fournis 'par la procédure appelante Dim Message As String, reponse As Integer If Len(texte) > longueur Then 'Si le nombre de caractèrs excède la limite indiquée par 'le paramètre longueur, la fonction retourne Vrai Message = "Vous avez atteint la limite de " & longueur & " caractères." reponse = MsgBox(Message, vbOKOnly + vbInformation, "Test de la longueur du texte entré") limitelalongueurdelaligne = True Else 'Si le nombre de caractèrs excède la limite indiquée par 'le paramètre longueur, la fonction retourne Faux limitelalongueurdelaligne = False End If End Function
"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de news:
bonsoir à tous(tes) j'ai un textbox sur un userform je voudrais que si le nombre rentré dans le
textbox n'est pas compris dans une plage de valeur(par ex. 10,-10) j'ai un
msgbox "erreur" que la valeur rentrée soit effacer et que mon textbox reste
actif (que le curseur reste dedans et ne passe pas au suivant) toutes vos réponses seront le bienvenue car je ne suis pas un as d'excel
