Voila je viens de faire une petite application pour g=E9rer les palettes
d'un entrepot par contre j'ai un petit soucis :
Dans mon formulaire d'enregistrement comment faire pour bloquer les
liste d=E9roulante c'est =E0 dire que personne ne puisse =E9crire dedans
Pour la date un message d'erreur peut il s'afficher si la date n'est
pas correcte c'est =E0 dire mauvais format jj/mm/aaaa ou si la date
saisie est avant la date du jour ?
Pouvez vous m'aider ? (mot de passe admin : toutou)
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
JB
Bonsoir,
-Propriété MatchReqired à True
-Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(Me.TextBox1) Then MsgBox "Erreur saisie!" Cancel = True End If End Sub
JB
On 7 fév, 19:19, lolo wrote:
Bonsoir à tous,
Voila je viens de faire une petite application pour gérer les palettes d'un entrepot par contre j'ai un petit soucis :
Dans mon formulaire d'enregistrement comment faire pour bloquer les liste déroulante c'est à dire que personne ne puisse écrire dedans Pour la date un message d'erreur peut il s'afficher si la date n'est pas correcte c'est à dire mauvais format jj/mm/aaaa ou si la date saisie est avant la date du jour ?
Pouvez vous m'aider ? (mot de passe admin : toutou)
http://cjoint.com/?cgwhttupSB
Je vous remercie
Lolo
Bonsoir,
-Propriété MatchReqired à True
-Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Erreur saisie!"
Cancel = True
End If
End Sub
JB
On 7 fév, 19:19, lolo <lolo_b...@yahoo.fr> wrote:
Bonsoir à tous,
Voila je viens de faire une petite application pour gérer les palettes
d'un entrepot par contre j'ai un petit soucis :
Dans mon formulaire d'enregistrement comment faire pour bloquer les
liste déroulante c'est à dire que personne ne puisse écrire dedans
Pour la date un message d'erreur peut il s'afficher si la date n'est
pas correcte c'est à dire mauvais format jj/mm/aaaa ou si la date
saisie est avant la date du jour ?
Pouvez vous m'aider ? (mot de passe admin : toutou)
-Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(Me.TextBox1) Then MsgBox "Erreur saisie!" Cancel = True End If End Sub
JB
On 7 fév, 19:19, lolo wrote:
Bonsoir à tous,
Voila je viens de faire une petite application pour gérer les palettes d'un entrepot par contre j'ai un petit soucis :
Dans mon formulaire d'enregistrement comment faire pour bloquer les liste déroulante c'est à dire que personne ne puisse écrire dedans Pour la date un message d'erreur peut il s'afficher si la date n'est pas correcte c'est à dire mauvais format jj/mm/aaaa ou si la date saisie est avant la date du jour ?
Pouvez vous m'aider ? (mot de passe admin : toutou)
http://cjoint.com/?cgwhttupSB
Je vous remercie
Lolo
lolo
Merci JB
Ca fonctionne nickel Par contre je voudrais avoir un message d'erreur si la date, l'opération et la quantité ne sont pas rempli
Peux tu m'aider car je bloque j'utilise un If then Else mais j'ai toujours un message d'erreur
Merci @++
Lolo
Merci JB
Ca fonctionne nickel
Par contre je voudrais avoir un message d'erreur si la date,
l'opération et la quantité ne sont pas rempli
Peux tu m'aider car je bloque j'utilise un If then Else mais j'ai
toujours un message d'erreur
Ca fonctionne nickel Par contre je voudrais avoir un message d'erreur si la date, l'opération et la quantité ne sont pas rempli
Peux tu m'aider car je bloque j'utilise un If then Else mais j'ai toujours un message d'erreur
Merci @++
Lolo
JB
Bonjour,
http://cjoint.com/?ciheyVQjzN
Private Sub Valider_Click() If Me.LaDate = "" Then MsgBox "date non saisie!" Me.LaDate.SetFocus Exit Sub End If If Me.Mouv = "" Then MsgBox "Mouv non saisi!" Me.Mouv.SetFocus Exit Sub End If If Me.Somme = "" Then MsgBox "Qtenon saisie!" Me.Somme.SetFocus Exit Sub End If '----- f = Me.ChoixFeuille z = Sheets(f).Range("A65536").End(xlUp)(2).Row
JB
On 7 fév, 22:12, lolo wrote:
Merci JB
Ca fonctionne nickel Par contre je voudrais avoir un message d'erreur si la date, l'opération et la quantité ne sont pas rempli
Peux tu m'aider car je bloque j'utilise un If then Else mais j'ai toujours un message d'erreur
Merci @++
Lolo
Bonjour,
http://cjoint.com/?ciheyVQjzN
Private Sub Valider_Click()
If Me.LaDate = "" Then
MsgBox "date non saisie!"
Me.LaDate.SetFocus
Exit Sub
End If
If Me.Mouv = "" Then
MsgBox "Mouv non saisi!"
Me.Mouv.SetFocus
Exit Sub
End If
If Me.Somme = "" Then
MsgBox "Qtenon saisie!"
Me.Somme.SetFocus
Exit Sub
End If
'-----
f = Me.ChoixFeuille
z = Sheets(f).Range("A65536").End(xlUp)(2).Row
JB
On 7 fév, 22:12, lolo <lolo_b...@yahoo.fr> wrote:
Merci JB
Ca fonctionne nickel
Par contre je voudrais avoir un message d'erreur si la date,
l'opération et la quantité ne sont pas rempli
Peux tu m'aider car je bloque j'utilise un If then Else mais j'ai
toujours un message d'erreur
Private Sub Valider_Click() If Me.LaDate = "" Then MsgBox "date non saisie!" Me.LaDate.SetFocus Exit Sub End If If Me.Mouv = "" Then MsgBox "Mouv non saisi!" Me.Mouv.SetFocus Exit Sub End If If Me.Somme = "" Then MsgBox "Qtenon saisie!" Me.Somme.SetFocus Exit Sub End If '----- f = Me.ChoixFeuille z = Sheets(f).Range("A65536").End(xlUp)(2).Row
JB
On 7 fév, 22:12, lolo wrote:
Merci JB
Ca fonctionne nickel Par contre je voudrais avoir un message d'erreur si la date, l'opération et la quantité ne sont pas rempli
Peux tu m'aider car je bloque j'utilise un If then Else mais j'ai toujours un message d'erreur
Merci @++
Lolo
lolo
Salut JB
Merci de ton coup de pouce c'est ce que je cherchais à faire, j'etais bien parti mais j'avais mis les instructions à la fin...
@++
Lolo
Salut JB
Merci de ton coup de pouce c'est ce que je cherchais à faire, j'etais
bien parti mais j'avais mis les instructions à la fin...