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
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
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
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
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
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
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" <alex-m@orange.fr> a écrit dans le message de news:
55c58a45-133f-4a20-af56-37063199937f@l14g2000yql.googlegroups.com...
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
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
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
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" <prenom-ou-sam@citron.fr> a écrit dans le message de news:
4c481ebe$0$2946$ba4acef3@reader.news.orange.fr...
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" <alex-m@orange.fr> a écrit dans le message de news:
55c58a45-133f-4a20-af56-37063199937f@l14g2000yql.googlegroups.com...
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
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
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
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
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
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
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