Hello
Comment rendre un champs obligatoire ? Je fais le test=20
suivant:
If Range("m46") =3D "" Then
MsgBox "Vous devez indiquer le N=B0 de ..."
End If
Merci de votre aide
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
Philippe.R
Bonjour Patrice, Si tu as mis ce test dans l'évènement selection change de la feuille, il suffit d'ajouter une ligne, comme ceci :
If Range("m46") = "" Then MsgBox "Vous devez indiquer le N° de ..." Range("m46").select End If
-- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Patrice FY" a écrit dans le message de news:118201c49972$f6e43950$ Hello Comment rendre un champs obligatoire ? Je fais le test suivant: If Range("m46") = "" Then MsgBox "Vous devez indiquer le N° de ..." End If Merci de votre aide
Bonjour Patrice,
Si tu as mis ce test dans l'évènement selection change de la feuille, il suffit d'ajouter une ligne,
comme ceci :
If Range("m46") = "" Then
MsgBox "Vous devez indiquer le N° de ..."
Range("m46").select
End If
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Patrice FY" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:118201c49972$f6e43950$a401280a@phx.gbl...
Hello
Comment rendre un champs obligatoire ? Je fais le test
suivant:
If Range("m46") = "" Then
MsgBox "Vous devez indiquer le N° de ..."
End If
Merci de votre aide
Bonjour Patrice, Si tu as mis ce test dans l'évènement selection change de la feuille, il suffit d'ajouter une ligne, comme ceci :
If Range("m46") = "" Then MsgBox "Vous devez indiquer le N° de ..." Range("m46").select End If
-- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Patrice FY" a écrit dans le message de news:118201c49972$f6e43950$ Hello Comment rendre un champs obligatoire ? Je fais le test suivant: If Range("m46") = "" Then MsgBox "Vous devez indiquer le N° de ..." End If Merci de votre aide
Patrice FY
Merci de ton aide mais je ne comprends pas en quoi cela rend le champs obligatoire ???
-----Message d'origine----- Bonjour Patrice, Si tu as mis ce test dans l'évènement selection change de la feuille, il suffit d'ajouter une ligne,
comme ceci :
If Range("m46") = "" Then MsgBox "Vous devez indiquer le N° de ..." Range("m46").select End If
-- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Patrice FY" a écrit dans le message de
news:118201c49972$f6e43950$ Hello Comment rendre un champs obligatoire ? Je fais le test suivant: If Range("m46") = "" Then MsgBox "Vous devez indiquer le N° de ..." End If Merci de votre aide
.
Merci de ton aide mais je ne comprends pas en quoi cela
rend le champs obligatoire ???
-----Message d'origine-----
Bonjour Patrice,
Si tu as mis ce test dans l'évènement selection change de
la feuille, il suffit d'ajouter une ligne,
comme ceci :
If Range("m46") = "" Then
MsgBox "Vous devez indiquer le N° de ..."
Range("m46").select
End If
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Patrice FY" <anonymous@discussions.microsoft.com> a
écrit dans le message de
news:118201c49972$f6e43950$a401280a@phx.gbl...
Hello
Comment rendre un champs obligatoire ? Je fais le test
suivant:
If Range("m46") = "" Then
MsgBox "Vous devez indiquer le N° de ..."
End If
Merci de votre aide
Merci de ton aide mais je ne comprends pas en quoi cela rend le champs obligatoire ???
-----Message d'origine----- Bonjour Patrice, Si tu as mis ce test dans l'évènement selection change de la feuille, il suffit d'ajouter une ligne,
comme ceci :
If Range("m46") = "" Then MsgBox "Vous devez indiquer le N° de ..." Range("m46").select End If
-- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Patrice FY" a écrit dans le message de
news:118201c49972$f6e43950$ Hello Comment rendre un champs obligatoire ? Je fais le test suivant: If Range("m46") = "" Then MsgBox "Vous devez indiquer le N° de ..." End If Merci de votre aide
.
Philippe.R
Re, Tant que la cellule m46 ne sera pas renseignée, la sélection reviendra systématiquement dessus. Colle ce code dans le module de la feuille (pour l'ouvrir : clic droit sur l'onglet et "visualiser le code)
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("m46")) Is Nothing Then Exit Sub If Range("m46") = "" Then MsgBox "Vous devez indiquer le N° de ..." Range("m46").Select End If End Sub
Si tu souhaites rendre la saisie encore plus obligatoire, reviens. -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Patrice FY" a écrit dans le message de news:aec001c49980$0d04d2a0$ Merci de ton aide mais je ne comprends pas en quoi cela rend le champs obligatoire ???
-----Message d'origine----- Bonjour Patrice, Si tu as mis ce test dans l'évènement selection change de la feuille, il suffit d'ajouter une ligne,
comme ceci :
If Range("m46") = "" Then MsgBox "Vous devez indiquer le N° de ..." Range("m46").select End If
-- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Patrice FY" a écrit dans le message de
news:118201c49972$f6e43950$ Hello Comment rendre un champs obligatoire ? Je fais le test suivant: If Range("m46") = "" Then MsgBox "Vous devez indiquer le N° de ..." End If Merci de votre aide
.
Re,
Tant que la cellule m46 ne sera pas renseignée, la sélection reviendra systématiquement dessus.
Colle ce code dans le module de la feuille (pour l'ouvrir : clic droit sur l'onglet et "visualiser le
code)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("m46")) Is Nothing Then Exit Sub
If Range("m46") = "" Then
MsgBox "Vous devez indiquer le N° de ..."
Range("m46").Select
End If
End Sub
Si tu souhaites rendre la saisie encore plus obligatoire, reviens.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Patrice FY" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:aec001c49980$0d04d2a0$a601280a@phx.gbl...
Merci de ton aide mais je ne comprends pas en quoi cela
rend le champs obligatoire ???
-----Message d'origine-----
Bonjour Patrice,
Si tu as mis ce test dans l'évènement selection change de
la feuille, il suffit d'ajouter une ligne,
comme ceci :
If Range("m46") = "" Then
MsgBox "Vous devez indiquer le N° de ..."
Range("m46").select
End If
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Patrice FY" <anonymous@discussions.microsoft.com> a
écrit dans le message de
news:118201c49972$f6e43950$a401280a@phx.gbl...
Hello
Comment rendre un champs obligatoire ? Je fais le test
suivant:
If Range("m46") = "" Then
MsgBox "Vous devez indiquer le N° de ..."
End If
Merci de votre aide
Re, Tant que la cellule m46 ne sera pas renseignée, la sélection reviendra systématiquement dessus. Colle ce code dans le module de la feuille (pour l'ouvrir : clic droit sur l'onglet et "visualiser le code)
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("m46")) Is Nothing Then Exit Sub If Range("m46") = "" Then MsgBox "Vous devez indiquer le N° de ..." Range("m46").Select End If End Sub
Si tu souhaites rendre la saisie encore plus obligatoire, reviens. -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Patrice FY" a écrit dans le message de news:aec001c49980$0d04d2a0$ Merci de ton aide mais je ne comprends pas en quoi cela rend le champs obligatoire ???
-----Message d'origine----- Bonjour Patrice, Si tu as mis ce test dans l'évènement selection change de la feuille, il suffit d'ajouter une ligne,
comme ceci :
If Range("m46") = "" Then MsgBox "Vous devez indiquer le N° de ..." Range("m46").select End If
-- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Patrice FY" a écrit dans le message de
news:118201c49972$f6e43950$ Hello Comment rendre un champs obligatoire ? Je fais le test suivant: If Range("m46") = "" Then MsgBox "Vous devez indiquer le N° de ..." End If Merci de votre aide
