Salut à tous
Je voudrais poser une condition,
j'ai des dates d'arrivée en colonne A3:A100
j'ai des dates de départ en K3:K100
Je souhaite créer une proc avec msgbox qui empêche qu'une date de départ
soit inférieure à une date d'arrivée.
Merci à tous
Titus
Tu te positionnes sur la date qui doit être supérieure à l'autre.
Tu va dans le Menu : Données/Validation
Onglet Option tu met : Autoriser : Date Données : supérieur à Sélectionne la case qu'il doit comparer
Onglet Alerte d'erreur : Style : Arrêt Titre : Le titre de la msg box Message d'erreur : le message
Tu fais glisser la case sur laquelle tu as mis ta formule jusqu'à la dernière case concernée.
Lepage Stephane
Bonjour , tu n'es pas obligé d'écrire une proc pour cela Va voir dans les menus: VALIDATION... c'est assez efficace stu va découvrir encore mieux que ce que tu demande car tu peux contrôler aussi la saisie d'un texte d'une liste . s'il reste des points pas clair reviens par ici @+ http://cocosteph.free.fr l'expérience est une lanterne qui n'éclaire que le chemin parcouru merci mr lao tseu il nous en reste encore beaucoup.
"Titus" a écrit dans le message de news:
Salut à tous Je voudrais poser une condition, j'ai des dates d'arrivée en colonne A3:A100 j'ai des dates de départ en K3:K100 Je souhaite créer une proc avec msgbox qui empêche qu'une date de départ soit inférieure à une date d'arrivée. Merci à tous Titus
Bonjour ,
tu n'es pas obligé d'écrire une proc pour cela
Va voir dans les menus: VALIDATION...
c'est assez efficace
stu va découvrir encore mieux que ce que tu demande
car tu peux contrôler aussi la saisie d'un texte d'une liste .
s'il reste des points pas clair reviens par ici
@+
http://cocosteph.free.fr
l'expérience est une lanterne qui n'éclaire que le chemin parcouru
merci mr lao tseu il nous en reste encore beaucoup.
"Titus" <titus@space.fr> a écrit dans le message de
news:uiiatPCsDHA.4088@TK2MSFTNGP11.phx.gbl...
Salut à tous
Je voudrais poser une condition,
j'ai des dates d'arrivée en colonne A3:A100
j'ai des dates de départ en K3:K100
Je souhaite créer une proc avec msgbox qui empêche qu'une date de départ
soit inférieure à une date d'arrivée.
Merci à tous
Titus
Bonjour , tu n'es pas obligé d'écrire une proc pour cela Va voir dans les menus: VALIDATION... c'est assez efficace stu va découvrir encore mieux que ce que tu demande car tu peux contrôler aussi la saisie d'un texte d'une liste . s'il reste des points pas clair reviens par ici @+ http://cocosteph.free.fr l'expérience est une lanterne qui n'éclaire que le chemin parcouru merci mr lao tseu il nous en reste encore beaucoup.
"Titus" a écrit dans le message de news:
Salut à tous Je voudrais poser une condition, j'ai des dates d'arrivée en colonne A3:A100 j'ai des dates de départ en K3:K100 Je souhaite créer une proc avec msgbox qui empêche qu'une date de départ soit inférieure à une date d'arrivée. Merci à tous Titus
sabatier
merci, stéphane, de te faire l'interprète de lao tseu : maintenant, je sais pourquoi ma bougie met tant de temps pour baisser d'un mm...mais bon, auvergnat ou suif, même combat jps
Lepage Stephane a écrit:
l'expérience est une lanterne qui n'éclaire que le chemin parcouru merci mr lao tseu il nous en reste encore beaucoup.
merci, stéphane, de te faire l'interprète de lao tseu : maintenant, je
sais pourquoi ma bougie met tant de temps pour baisser d'un mm...mais
bon, auvergnat ou suif, même combat
jps
Lepage Stephane a écrit:
l'expérience est une lanterne qui n'éclaire que le chemin parcouru
merci mr lao tseu il nous en reste encore beaucoup.
merci, stéphane, de te faire l'interprète de lao tseu : maintenant, je sais pourquoi ma bougie met tant de temps pour baisser d'un mm...mais bon, auvergnat ou suif, même combat jps
Lepage Stephane a écrit:
l'expérience est une lanterne qui n'éclaire que le chemin parcouru merci mr lao tseu il nous en reste encore beaucoup.
Lepage Stephane
merci et t'iquiete pas pour ta bougie c'est ce qui s'éteint en dernier paraît il en attendant pour la réponse à notre ami j'espère ne pas avoir dit trop de bêtises.
"sabatier" a écrit dans le message de news:
merci, stéphane, de te faire l'interprète de lao tseu : maintenant, je sais pourquoi ma bougie met tant de temps pour baisser d'un mm...mais bon, auvergnat ou suif, même combat jps
Lepage Stephane a écrit:
l'expérience est une lanterne qui n'éclaire que le chemin parcouru merci mr lao tseu il nous en reste encore beaucoup.
merci et t'iquiete pas pour ta bougie
c'est ce qui s'éteint en dernier paraît il
en attendant pour la réponse à notre ami
j'espère ne pas avoir dit trop de bêtises.
"sabatier" <jpsabatdelaile@wanadoo.fr> a écrit dans le message de
news:3FBE0B1E.3080508@wanadoo.fr...
merci, stéphane, de te faire l'interprète de lao tseu : maintenant, je
sais pourquoi ma bougie met tant de temps pour baisser d'un mm...mais
bon, auvergnat ou suif, même combat
jps
Lepage Stephane a écrit:
l'expérience est une lanterne qui n'éclaire que le chemin parcouru
merci mr lao tseu il nous en reste encore beaucoup.
merci et t'iquiete pas pour ta bougie c'est ce qui s'éteint en dernier paraît il en attendant pour la réponse à notre ami j'espère ne pas avoir dit trop de bêtises.
"sabatier" a écrit dans le message de news:
merci, stéphane, de te faire l'interprète de lao tseu : maintenant, je sais pourquoi ma bougie met tant de temps pour baisser d'un mm...mais bon, auvergnat ou suif, même combat jps
Lepage Stephane a écrit:
l'expérience est une lanterne qui n'éclaire que le chemin parcouru merci mr lao tseu il nous en reste encore beaucoup.
Hervé
Salut Titus, A mettre dans le module de ta feuille et adapte le message à tes besoins :
Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect([K3:K100], Target) Is Nothing _ And .Cells.Count = 1 Then If .Value < .Offset(0, -10) Then MsgBox "Date inférieure à " _ & .Offset(0, -10) & " non autorisée," _ & " veuillez choisir une autre date !" Application.EnableEvents = False .Value = "" Application.EnableEvents = True End If End If End With End Sub
Hervé.
"Titus" a écrit dans le message news:
Salut à tous Je voudrais poser une condition, j'ai des dates d'arrivée en colonne A3:A100 j'ai des dates de départ en K3:K100 Je souhaite créer une proc avec msgbox qui empêche qu'une date de départ soit inférieure à une date d'arrivée. Merci à tous Titus
Salut Titus,
A mettre dans le module de ta feuille et adapte le message à tes besoins :
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Not Intersect([K3:K100], Target) Is Nothing _
And .Cells.Count = 1 Then
If .Value < .Offset(0, -10) Then
MsgBox "Date inférieure à " _
& .Offset(0, -10) & " non autorisée," _
& " veuillez choisir une autre date !"
Application.EnableEvents = False
.Value = ""
Application.EnableEvents = True
End If
End If
End With
End Sub
Hervé.
"Titus" <titus@space.fr> a écrit dans le message news:
uiiatPCsDHA.4088@TK2MSFTNGP11.phx.gbl...
Salut à tous
Je voudrais poser une condition,
j'ai des dates d'arrivée en colonne A3:A100
j'ai des dates de départ en K3:K100
Je souhaite créer une proc avec msgbox qui empêche qu'une date de départ
soit inférieure à une date d'arrivée.
Merci à tous
Titus
Salut Titus, A mettre dans le module de ta feuille et adapte le message à tes besoins :
Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect([K3:K100], Target) Is Nothing _ And .Cells.Count = 1 Then If .Value < .Offset(0, -10) Then MsgBox "Date inférieure à " _ & .Offset(0, -10) & " non autorisée," _ & " veuillez choisir une autre date !" Application.EnableEvents = False .Value = "" Application.EnableEvents = True End If End If End With End Sub
Hervé.
"Titus" a écrit dans le message news:
Salut à tous Je voudrais poser une condition, j'ai des dates d'arrivée en colonne A3:A100 j'ai des dates de départ en K3:K100 Je souhaite créer une proc avec msgbox qui empêche qu'une date de départ soit inférieure à une date d'arrivée. Merci à tous Titus
Titus
Merci beaucoup Vanessa Titus
"Vanessa TILLIER" a écrit dans le message de news: 097101c3b02c$416b8180$ Tu peux utiliser une procédure de validation.
Tu te positionnes sur la date qui doit être supérieure à l'autre.
Tu va dans le Menu : Données/Validation
Onglet Option tu met : Autoriser : Date Données : supérieur à Sélectionne la case qu'il doit comparer
Onglet Alerte d'erreur : Style : Arrêt Titre : Le titre de la msg box Message d'erreur : le message
Tu fais glisser la case sur laquelle tu as mis ta formule jusqu'à la dernière case concernée.
Merci beaucoup Vanessa
Titus
"Vanessa TILLIER" <vanessa.tillier@unilog.fr> a écrit dans le message de
news: 097101c3b02c$416b8180$a401280a@phx.gbl...
Tu peux utiliser une procédure de validation.
Tu te positionnes sur la date qui doit être supérieure à
l'autre.
Tu va dans le Menu : Données/Validation
Onglet Option tu met :
Autoriser : Date
Données : supérieur à
Sélectionne la case qu'il doit comparer
Onglet Alerte d'erreur :
Style : Arrêt
Titre : Le titre de la msg box
Message d'erreur : le message
Tu fais glisser la case sur laquelle tu as mis ta formule
jusqu'à la dernière case concernée.
"Vanessa TILLIER" a écrit dans le message de news: 097101c3b02c$416b8180$ Tu peux utiliser une procédure de validation.
Tu te positionnes sur la date qui doit être supérieure à l'autre.
Tu va dans le Menu : Données/Validation
Onglet Option tu met : Autoriser : Date Données : supérieur à Sélectionne la case qu'il doit comparer
Onglet Alerte d'erreur : Style : Arrêt Titre : Le titre de la msg box Message d'erreur : le message
Tu fais glisser la case sur laquelle tu as mis ta formule jusqu'à la dernière case concernée.
Titus
Merci beaucoup Stéphane Titus
"Lepage Stephane" a écrit dans le message de news: 3fbe1083$0$18448$
merci et t'iquiete pas pour ta bougie c'est ce qui s'éteint en dernier paraît il en attendant pour la réponse à notre ami j'espère ne pas avoir dit trop de bêtises.
"sabatier" a écrit dans le message de news:
merci, stéphane, de te faire l'interprète de lao tseu : maintenant, je sais pourquoi ma bougie met tant de temps pour baisser d'un mm...mais bon, auvergnat ou suif, même combat jps
Lepage Stephane a écrit:
l'expérience est une lanterne qui n'éclaire que le chemin parcouru merci mr lao tseu il nous en reste encore beaucoup.
Merci beaucoup Stéphane
Titus
"Lepage Stephane" <cocosteph@free.fr> a écrit dans le message de news:
3fbe1083$0$18448$626a54ce@news.free.fr...
merci et t'iquiete pas pour ta bougie
c'est ce qui s'éteint en dernier paraît il
en attendant pour la réponse à notre ami
j'espère ne pas avoir dit trop de bêtises.
"sabatier" <jpsabatdelaile@wanadoo.fr> a écrit dans le message de
news:3FBE0B1E.3080508@wanadoo.fr...
merci, stéphane, de te faire l'interprète de lao tseu : maintenant, je
sais pourquoi ma bougie met tant de temps pour baisser d'un mm...mais
bon, auvergnat ou suif, même combat
jps
Lepage Stephane a écrit:
l'expérience est une lanterne qui n'éclaire que le chemin parcouru
merci mr lao tseu il nous en reste encore beaucoup.
"Lepage Stephane" a écrit dans le message de news: 3fbe1083$0$18448$
merci et t'iquiete pas pour ta bougie c'est ce qui s'éteint en dernier paraît il en attendant pour la réponse à notre ami j'espère ne pas avoir dit trop de bêtises.
"sabatier" a écrit dans le message de news:
merci, stéphane, de te faire l'interprète de lao tseu : maintenant, je sais pourquoi ma bougie met tant de temps pour baisser d'un mm...mais bon, auvergnat ou suif, même combat jps
Lepage Stephane a écrit:
l'expérience est une lanterne qui n'éclaire que le chemin parcouru merci mr lao tseu il nous en reste encore beaucoup.
Titus
Merci beaucoup Hervé, c'est exactement ce que je cherchais, j'étais sur une piste similaire, mais c'était vraiment trop costaud à écrire. Et puis-je savoir où as-tu acquis toutes ses connaissances ? Merci encore et bonne journée. Titus
"Hervé" a écrit dans le message de news: #
Salut Titus, A mettre dans le module de ta feuille et adapte le message à tes besoins :
Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect([K3:K100], Target) Is Nothing _ And .Cells.Count = 1 Then If .Value < .Offset(0, -10) Then MsgBox "Date inférieure à " _ & .Offset(0, -10) & " non autorisée," _ & " veuillez choisir une autre date !" Application.EnableEvents = False .Value = "" Application.EnableEvents = True End If End If End With End Sub
Hervé.
"Titus" a écrit dans le message news:
Salut à tous Je voudrais poser une condition, j'ai des dates d'arrivée en colonne A3:A100 j'ai des dates de départ en K3:K100 Je souhaite créer une proc avec msgbox qui empêche qu'une date de départ soit inférieure à une date d'arrivée. Merci à tous Titus
Merci beaucoup Hervé, c'est exactement ce que je cherchais, j'étais sur une
piste similaire, mais c'était vraiment trop costaud à écrire.
Et puis-je savoir où as-tu acquis toutes ses connaissances ?
Merci encore et bonne journée.
Titus
"Hervé" <hmsilve@wanadoo.fr> a écrit dans le message de news:
#RSZaUDsDHA.1512@TK2MSFTNGP10.phx.gbl...
Salut Titus,
A mettre dans le module de ta feuille et adapte le message à tes besoins :
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Not Intersect([K3:K100], Target) Is Nothing _
And .Cells.Count = 1 Then
If .Value < .Offset(0, -10) Then
MsgBox "Date inférieure à " _
& .Offset(0, -10) & " non autorisée," _
& " veuillez choisir une autre date !"
Application.EnableEvents = False
.Value = ""
Application.EnableEvents = True
End If
End If
End With
End Sub
Hervé.
"Titus" <titus@space.fr> a écrit dans le message news:
uiiatPCsDHA.4088@TK2MSFTNGP11.phx.gbl...
Salut à tous
Je voudrais poser une condition,
j'ai des dates d'arrivée en colonne A3:A100
j'ai des dates de départ en K3:K100
Je souhaite créer une proc avec msgbox qui empêche qu'une date de départ
soit inférieure à une date d'arrivée.
Merci à tous
Titus
Merci beaucoup Hervé, c'est exactement ce que je cherchais, j'étais sur une piste similaire, mais c'était vraiment trop costaud à écrire. Et puis-je savoir où as-tu acquis toutes ses connaissances ? Merci encore et bonne journée. Titus
"Hervé" a écrit dans le message de news: #
Salut Titus, A mettre dans le module de ta feuille et adapte le message à tes besoins :
Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect([K3:K100], Target) Is Nothing _ And .Cells.Count = 1 Then If .Value < .Offset(0, -10) Then MsgBox "Date inférieure à " _ & .Offset(0, -10) & " non autorisée," _ & " veuillez choisir une autre date !" Application.EnableEvents = False .Value = "" Application.EnableEvents = True End If End If End With End Sub
Hervé.
"Titus" a écrit dans le message news:
Salut à tous Je voudrais poser une condition, j'ai des dates d'arrivée en colonne A3:A100 j'ai des dates de départ en K3:K100 Je souhaite créer une proc avec msgbox qui empêche qu'une date de départ soit inférieure à une date d'arrivée. Merci à tous Titus
