Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Format date sur Workshheet

Format date sur Workshheet

13 réponses
Avatar
Michel.Girard
Bonsoir
j'ai dans une cellule A1 une date en année ex : 2006;
Je souhaite saisir en A2 une date au format jj/mm/aaaa
mais que si la date en A2 en égale ou supérieure à A1 alors msgbox "erreur"
Merci beaucoup
Michel
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
Daniel
Bonsoir, Michel.
Esssaie :
If [A2] >= [A1] Then
MsgBox "Erreur"
End If
Cordialement.
Daniel
"Michel.Girard" a écrit dans le message de
news:
Bonsoir
j'ai dans une cellule A1 une date en année ex : 2006;
Je souhaite saisir en A2 une date au format jj/mm/aaaa
mais que si la date en A2 en égale ou supérieure à A1 alors msgbox
"erreur"
Merci beaucoup
Michel





Avatar
MichDenis
Bonjour Michel,

Tu peux utiliser un critère de validation:

sélectionne A2

barre des menus / données / validation

barre déroulante de la fenêtre :

autoriser : Date

Données : est inférieur à

Date de fin : A1

Et tu insères sous l'onglet : Alerte erreur :

Style : Arrêt

Et tu inscrits le message d'erreur de ton choix.


Salutations!


"Michel.Girard" a écrit dans le message de news:

Bonsoir
j'ai dans une cellule A1 une date en année ex : 2006;
Je souhaite saisir en A2 une date au format jj/mm/aaaa
mais que si la date en A2 en égale ou supérieure à A1 alors msgbox "erreur"
Merci beaucoup
Michel
Avatar
Michel.Girard
Bonsoir Denis
il refuse la saisie de A1 dans date de fin
Merci pour l'aide apportée
Michel

"MichDenis" a écrit dans le message de news:
%
Bonjour Michel,

Tu peux utiliser un critère de validation:

sélectionne A2

barre des menus / données / validation

barre déroulante de la fenêtre :

autoriser : Date

Données : est inférieur à

Date de fin : A1

Et tu insères sous l'onglet : Alerte erreur :

Style : Arrêt

Et tu inscrits le message d'erreur de ton choix.


Salutations!


"Michel.Girard" a écrit dans le message
de news:

Bonsoir
j'ai dans une cellule A1 une date en année ex : 2006;
Je souhaite saisir en A2 une date au format jj/mm/aaaa
mais que si la date en A2 en égale ou supérieure à A1 alors msgbox
"erreur"
Merci beaucoup
Michel






Avatar
Michel.Girard
Bonsoir Daniel et merci
Je n'arrive pas à adapter dans le worksheet
Michel

"Daniel" a écrit dans le message de news:
e%
Bonsoir, Michel.
Esssaie :
If [A2] >= [A1] Then
MsgBox "Erreur"
End If
Cordialement.
Daniel
"Michel.Girard" a écrit dans le message
de news:
Bonsoir
j'ai dans une cellule A1 une date en année ex : 2006;
Je souhaite saisir en A2 une date au format jj/mm/aaaa
mais que si la date en A2 en égale ou supérieure à A1 alors msgbox
"erreur"
Merci beaucoup
Michel









Avatar
Daniel
Alors, plus précisément ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
If [A2] >= [A1] Then
MsgBox "Erreur"
End If
End Sub

Daniel
"Michel.Girard" a écrit dans le message de
news:
Bonsoir Daniel et merci
Je n'arrive pas à adapter dans le worksheet
Michel

"Daniel" a écrit dans le message de news:
e%
Bonsoir, Michel.
Esssaie :
If [A2] >= [A1] Then
MsgBox "Erreur"
End If
Cordialement.
Daniel
"Michel.Girard" a écrit dans le message
de news:
Bonsoir
j'ai dans une cellule A1 une date en année ex : 2006;
Je souhaite saisir en A2 une date au format jj/mm/aaaa
mais que si la date en A2 en égale ou supérieure à A1 alors msgbox
"erreur"
Merci beaucoup
Michel













Avatar
MichDenis
Bonjour Michel,


Données : est inférieur ou égale à

Si tu saisis à la main, tu dois inscrire ¡ et non A1 tout seul.


Salutations!


"Michel.Girard" a écrit dans le message de news:

Bonsoir Denis
il refuse la saisie de A1 dans date de fin
Merci pour l'aide apportée
Michel

"MichDenis" a écrit dans le message de news:
%
Bonjour Michel,

Tu peux utiliser un critère de validation:

sélectionne A2

barre des menus / données / validation

barre déroulante de la fenêtre :

autoriser : Date

Données : est inférieur à

Date de fin : A1

Et tu insères sous l'onglet : Alerte erreur :

Style : Arrêt

Et tu inscrits le message d'erreur de ton choix.


Salutations!


"Michel.Girard" a écrit dans le message
de news:

Bonsoir
j'ai dans une cellule A1 une date en année ex : 2006;
Je souhaite saisir en A2 une date au format jj/mm/aaaa
mais que si la date en A2 en égale ou supérieure à A1 alors msgbox
"erreur"
Merci beaucoup
Michel






Avatar
Michel.Girard
En fait le msgbox se déclenche quelque soit la date saisie ?
Michel

"Daniel" a écrit dans le message de news:

Alors, plus précisément ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
If [A2] >= [A1] Then
MsgBox "Erreur"
End If
End Sub

Daniel
"Michel.Girard" a écrit dans le message
de news:
Bonsoir Daniel et merci
Je n'arrive pas à adapter dans le worksheet
Michel

"Daniel" a écrit dans le message de news:
e%
Bonsoir, Michel.
Esssaie :
If [A2] >= [A1] Then
MsgBox "Erreur"
End If
Cordialement.
Daniel
"Michel.Girard" a écrit dans le message
de news:
Bonsoir
j'ai dans une cellule A1 une date en année ex : 2006;
Je souhaite saisir en A2 une date au format jj/mm/aaaa
mais que si la date en A2 en égale ou supérieure à A1 alors msgbox
"erreur"
Merci beaucoup
Michel

















Avatar
Michel.Girard
J'ai bien testé ¡, mais cela déclenche l'alerte d'erreur tout le temps,
quelque soit la date.
Michel

"MichDenis" a écrit dans le message de news:

Bonjour Michel,


Données : est inférieur ou égale à

Si tu saisis à la main, tu dois inscrire ¡ et non A1 tout seul.


Salutations!


"Michel.Girard" a écrit dans le message
de news:

Bonsoir Denis
il refuse la saisie de A1 dans date de fin
Merci pour l'aide apportée
Michel

"MichDenis" a écrit dans le message de news:
%
Bonjour Michel,

Tu peux utiliser un critère de validation:

sélectionne A2

barre des menus / données / validation

barre déroulante de la fenêtre :

autoriser : Date

Données : est inférieur à

Date de fin : A1

Et tu insères sous l'onglet : Alerte erreur :

Style : Arrêt

Et tu inscrits le message d'erreur de ton choix.


Salutations!


"Michel.Girard" a écrit dans le message
de news:

Bonsoir
j'ai dans une cellule A1 une date en année ex : 2006;
Je souhaite saisir en A2 une date au format jj/mm/aaaa
mais que si la date en A2 en égale ou supérieure à A1 alors msgbox
"erreur"
Merci beaucoup
Michel











Avatar
Daniel
En A1, tu as une date par exemple 01/01/2006 avec un format aaaa ou un
nombre tel 2006 ?
"Michel.Girard" a écrit dans le message de
news:
En fait le msgbox se déclenche quelque soit la date saisie ?
Michel

"Daniel" a écrit dans le message de news:

Alors, plus précisément ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
If [A2] >= [A1] Then
MsgBox "Erreur"
End If
End Sub

Daniel
"Michel.Girard" a écrit dans le message
de news:
Bonsoir Daniel et merci
Je n'arrive pas à adapter dans le worksheet
Michel

"Daniel" a écrit dans le message de news:
e%
Bonsoir, Michel.
Esssaie :
If [A2] >= [A1] Then
MsgBox "Erreur"
End If
Cordialement.
Daniel
"Michel.Girard" a écrit dans le
message de news:
Bonsoir
j'ai dans une cellule A1 une date en année ex : 2006;
Je souhaite saisir en A2 une date au format jj/mm/aaaa
mais que si la date en A2 en égale ou supérieure à A1 alors msgbox
"erreur"
Merci beaucoup
Michel





















Avatar
Daniel
Dans ce second cas :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
If [A2] >= DateSerial([A1], 1, 1) Then
MsgBox "Erreur"
End If
End Sub
Daniel
"Daniel" a écrit dans le message de news:

En A1, tu as une date par exemple 01/01/2006 avec un format aaaa ou un
nombre tel 2006 ?
"Michel.Girard" a écrit dans le message
de news:
En fait le msgbox se déclenche quelque soit la date saisie ?
Michel

"Daniel" a écrit dans le message de news:

Alors, plus précisément ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
If [A2] >= [A1] Then
MsgBox "Erreur"
End If
End Sub

Daniel
"Michel.Girard" a écrit dans le message
de news:
Bonsoir Daniel et merci
Je n'arrive pas à adapter dans le worksheet
Michel

"Daniel" a écrit dans le message de news:
e%
Bonsoir, Michel.
Esssaie :
If [A2] >= [A1] Then
MsgBox "Erreur"
End If
Cordialement.
Daniel
"Michel.Girard" a écrit dans le
message de news:
Bonsoir
j'ai dans une cellule A1 une date en année ex : 2006;
Je souhaite saisir en A2 une date au format jj/mm/aaaa
mais que si la date en A2 en égale ou supérieure à A1 alors msgbox
"erreur"
Merci beaucoup
Michel

























1 2