Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Controle saisie sur feuille d'une date

6 réponses
Avatar
Alex
Bonjour =E0 tous,

Je tente de faire un contr=F4le de saisie sur ma colonne D (ou la plage
de D2 =E0 D80). Je voudrais que seule une date puisse =EAtre saisie, sans
texte. J'ai =E9crit ceci sur ma feuille correspondante :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2:D80") Not IsDate Then
MsgBox "Veuillez entrer une date de Visite m=E9dicale, seule une date
peut =EAtre saisie en format JJ/MM/AAAA. Merci"
Xxit Sub
End If
End Sub

Malheureusement cela ne fonctionne pas, quelqu'un aurait-il la
solution ?
Merci par avance de votre aide.
Cordialement.
Alex

6 réponses

Avatar
DanielCo
Bonjour.
Regarde le classeur :
http://www.cijoint.fr/cjlink.php?file=cj201007/cijCOxpDXl.xls
la macro évenementielle efface toute saisie dans la cellule et affiche
un userform contenant un calendrier.
Cordialement.
Daniel


Bonjour à tous,

Je tente de faire un contrôle de saisie sur ma colonne D (ou la plage
de D2 à D80). Je voudrais que seule une date puisse être saisie, sans
texte. J'ai écrit ceci sur ma feuille correspondante :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2:D80") Not IsDate Then
MsgBox "Veuillez entrer une date de Visite médicale, seule une date
peut être saisie en format JJ/MM/AAAA. Merci"
Xxit Sub
End If
End Sub

Malheureusement cela ne fonctionne pas, quelqu'un aurait-il la
solution ?
Merci par avance de votre aide.
Cordialement.
Alex
Avatar
Sam
Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsDate(Intersect(Target, Range("D2:D80"))) Then
MsgBox "Veuillez entrer une date de Visite médicale, seule une date"
End If
End Sub

Cordialement
Michel dit "Sam"
"Alex" a écrit dans le message de news:

Bonjour à tous,

Je tente de faire un contrôle de saisie sur ma colonne D (ou la plage
de D2 à D80). Je voudrais que seule une date puisse être saisie, sans
texte. J'ai écrit ceci sur ma feuille correspondante :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2:D80") Not IsDate Then
MsgBox "Veuillez entrer une date de Visite médicale, seule une date
peut être saisie en format JJ/MM/AAAA. Merci"
Xxit Sub
End If
End Sub

Malheureusement cela ne fonctionne pas, quelqu'un aurait-il la
solution ?
Merci par avance de votre aide.
Cordialement.
Alex
Avatar
Michel Mto
Bonjour,

j'avais évenetuellement çà en magasin :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2:D80")) Is Nothing Then
If IsDate(Target) = False Then
MsgBox "Veuillez entrer une date de Visite médicale, seule une date peut
être saisie en format JJ/MM/AAAA. Merci"
Target.Select
Exit Sub
End If
End If
End Sub
Cordialement
Michel Mto
"Sam" a écrit dans le message de news:
4c481ebe$0$2946$


Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsDate(Intersect(Target, Range("D2:D80"))) Then
MsgBox "Veuillez entrer une date de Visite médicale, seule une date"
End If
End Sub

Cordialement
Michel dit "Sam"
"Alex" a écrit dans le message de news:

Bonjour à tous,

Je tente de faire un contrôle de saisie sur ma colonne D (ou la plage
de D2 à D80). Je voudrais que seule une date puisse être saisie, sans
texte. J'ai écrit ceci sur ma feuille correspondante :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2:D80") Not IsDate Then
MsgBox "Veuillez entrer une date de Visite médicale, seule une date
peut être saisie en format JJ/MM/AAAA. Merci"
Xxit Sub
End If
End Sub

Malheureusement cela ne fonctionne pas, quelqu'un aurait-il la
solution ?
Merci par avance de votre aide.
Cordialement.
Alex


Avatar
DanielCo
Pour limiter la macro à la plage D2:D80, remplace la macro de Feuil1
par :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([D2:D80], Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.ClearContents
frmCalendrier.Show
Application.EnableEvents = True
End Sub

Daniel


Bonjour.
Regarde le classeur :
http://www.cijoint.fr/cjlink.php?file=cj201007/cijCOxpDXl.xls
la macro évenementielle efface toute saisie dans la cellule et affiche un
userform contenant un calendrier.
Cordialement.
Daniel


Bonjour à tous,

Je tente de faire un contrôle de saisie sur ma colonne D (ou la plage
de D2 à D80). Je voudrais que seule une date puisse être saisie, sans
texte. J'ai écrit ceci sur ma feuille correspondante :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2:D80") Not IsDate Then
MsgBox "Veuillez entrer une date de Visite médicale, seule une date
peut être saisie en format JJ/MM/AAAA. Merci"
Xxit Sub
End If
End Sub

Malheureusement cela ne fonctionne pas, quelqu'un aurait-il la
solution ?
Merci par avance de votre aide.
Cordialement.
Alex
Avatar
Maude Este
Bonsour®

"Alex" a écrit
Je tente de faire un contrôle de saisie sur ma colonne D (ou la plage
de D2 à D80). Je voudrais que seule une date puisse être saisie, sans
texte.

Malheureusement cela ne fonctionne pas, quelqu'un aurait-il la
solution ?



Pourquoi ne pas utiliser la validition ????
existe depuis Excel 2002
Menu données > validation
Avatar
Alex
Merci beaucoup
Alex
Tribune libre
Tribune en direct