Bonjour à toutes et tous.
J'ai un tableau classique dans lequel j'ai des dates en A.
Je voudrais créer un msgbox qui interdise de mettre autre chose qu'une date
en A.
Je sais que l'on peut le faire avec Données / Validation, mais je désire le
faire en VBA, afin de pouvoir l'intégrer dans une proc.
Merci beaucoup.
PAtrick.
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
Patrick Bastard
Bonjour, Crel.
Avec l'enregistreur :
Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 05/08/2003 par Patrick '
' Range("A1:A8").Select With Selection.Validation .Delete .Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator: _ xlGreater, Formula1:="1/1/1900" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End Sub
Bien cordialement,
-- ==================================== Pour me contacter, remplacez "Chez" par @ dans l'adresse
Une foule de conseils utiles sur le site de Misange : http://www.excelabo.net
"Crel" a écrit dans le message de news:%
Bonjour à toutes et tous. J'ai un tableau classique dans lequel j'ai des dates en A. Je voudrais créer un msgbox qui interdise de mettre autre chose qu'une date
en A. Je sais que l'on peut le faire avec Données / Validation, mais je désire le
faire en VBA, afin de pouvoir l'intégrer dans une proc. Merci beaucoup. PAtrick.
Bonjour, Crel.
Avec l'enregistreur :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 05/08/2003 par Patrick
'
'
Range("A1:A8").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator: _
xlGreater, Formula1:="1/1/1900"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Bien cordialement,
--
==================================== Pour me contacter, remplacez "Chez" par @ dans l'adresse
Une foule de conseils utiles sur le site de Misange :
http://www.excelabo.net
"Crel" <nospam-mouedra@club-internet.fr> a écrit dans le message de
news:%23OkfaP4WDHA.2360@TK2MSFTNGP12.phx.gbl...
Bonjour à toutes et tous.
J'ai un tableau classique dans lequel j'ai des dates en A.
Je voudrais créer un msgbox qui interdise de mettre autre chose qu'une
date
en A.
Je sais que l'on peut le faire avec Données / Validation, mais je désire
le
faire en VBA, afin de pouvoir l'intégrer dans une proc.
Merci beaucoup.
PAtrick.
Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 05/08/2003 par Patrick '
' Range("A1:A8").Select With Selection.Validation .Delete .Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator: _ xlGreater, Formula1:="1/1/1900" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End Sub
Bien cordialement,
-- ==================================== Pour me contacter, remplacez "Chez" par @ dans l'adresse
Une foule de conseils utiles sur le site de Misange : http://www.excelabo.net
"Crel" a écrit dans le message de news:%
Bonjour à toutes et tous. J'ai un tableau classique dans lequel j'ai des dates en A. Je voudrais créer un msgbox qui interdise de mettre autre chose qu'une date
en A. Je sais que l'on peut le faire avec Données / Validation, mais je désire le
faire en VBA, afin de pouvoir l'intégrer dans une proc. Merci beaucoup. PAtrick.
Crel
Merci beaucoup Patrick. Patrick.
"Patrick Bastard" <bastardp"chez"free.fr> a écrit dans le message de news: #
Bonjour, Crel.
Avec l'enregistreur :
Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 05/08/2003 par Patrick '
xlGreater, Formula1:="1/1/1900" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End Sub
Bien cordialement,
-- ==================================== > Pour me contacter, remplacez "Chez" par @ dans l'adresse
Une foule de conseils utiles sur le site de Misange : http://www.excelabo.net
"Crel" a écrit dans le message de news:%
Bonjour à toutes et tous. J'ai un tableau classique dans lequel j'ai des dates en A. Je voudrais créer un msgbox qui interdise de mettre autre chose qu'une date
en A. Je sais que l'on peut le faire avec Données / Validation, mais je désire le
faire en VBA, afin de pouvoir l'intégrer dans une proc. Merci beaucoup. PAtrick.
Merci beaucoup Patrick.
Patrick.
"Patrick Bastard" <bastardp"chez"free.fr> a écrit dans le message de news:
#ryLrg4WDHA.1492@TK2MSFTNGP12.phx.gbl...
Bonjour, Crel.
Avec l'enregistreur :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 05/08/2003 par Patrick
'
xlGreater, Formula1:="1/1/1900"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Bien cordialement,
--
==================================== > Pour me contacter, remplacez "Chez" par @ dans l'adresse
Une foule de conseils utiles sur le site de Misange :
http://www.excelabo.net
"Crel" <nospam-mouedra@club-internet.fr> a écrit dans le message de
news:%23OkfaP4WDHA.2360@TK2MSFTNGP12.phx.gbl...
Bonjour à toutes et tous.
J'ai un tableau classique dans lequel j'ai des dates en A.
Je voudrais créer un msgbox qui interdise de mettre autre chose qu'une
date
en A.
Je sais que l'on peut le faire avec Données / Validation, mais je désire
le
faire en VBA, afin de pouvoir l'intégrer dans une proc.
Merci beaucoup.
PAtrick.
xlGreater, Formula1:="1/1/1900" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End Sub
Bien cordialement,
-- ==================================== > Pour me contacter, remplacez "Chez" par @ dans l'adresse
Une foule de conseils utiles sur le site de Misange : http://www.excelabo.net
"Crel" a écrit dans le message de news:%
Bonjour à toutes et tous. J'ai un tableau classique dans lequel j'ai des dates en A. Je voudrais créer un msgbox qui interdise de mettre autre chose qu'une date
en A. Je sais que l'on peut le faire avec Données / Validation, mais je désire le
faire en VBA, afin de pouvoir l'intégrer dans une proc. Merci beaucoup. PAtrick.
