Sur ma feuille en A:A j'ai toujours ma série de dates du type jj mm aa, dans
un textbox1 j'ai ma date de départ qui est tirée de ma feuille en A:A
.J'aimerais faire apparaitre dans un textbox2 la plus grande valeur du mois
et de l'année sélectionné dans textbox1.
Par exemple si textbox1 = 02 01 04 et que la plus grande valeur en A de ma
feuille est le 29 01 04 je voudrais que textbox2 affiche 29 01 04.
Finalement c'est le mois et l'année de textbox1 qui sont déterminants pour
la recherche dans ma liste de dates en a sur ma feuille.
J'ai essayé avec maxdate si mais ça colle pas.
J'espère avoir bien expliqué
Merci d'avance
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
michdenis
Bonjour Michel,
Essaie ceci :
Les variables à renseigner pour le mois et l'année que tu désires :
Dim Mois As Integer, Année As Integer, A As Long
Mois = 2 'février Année = 2004
Plage contenant les dates : Feuil2!E1:E23
A = Evaluate("Max(if((Year(Feuil2!E1:E23)=" & année & ")*Month(Feuil2!E1:E23)=" & mois & ",Feuil2!E1:E23))")
'Attention aux coupures intempestifs de la formule par le service de messagerie
TextBox = CDate(a)
Salutations!
"Michel" a écrit dans le message de news:4035a652$0$7036$ Bonjour,
Sur ma feuille en A:A j'ai toujours ma série de dates du type jj mm aa, dans un textbox1 j'ai ma date de départ qui est tirée de ma feuille en A:A .J'aimerais faire apparaitre dans un textbox2 la plus grande valeur du mois et de l'année sélectionné dans textbox1. Par exemple si textbox1 = 02 01 04 et que la plus grande valeur en A de ma feuille est le 29 01 04 je voudrais que textbox2 affiche 29 01 04. Finalement c'est le mois et l'année de textbox1 qui sont déterminants pour la recherche dans ma liste de dates en a sur ma feuille. J'ai essayé avec maxdate si mais ça colle pas. J'espère avoir bien expliqué Merci d'avance
Bonjour Michel,
Essaie ceci :
Les variables à renseigner pour le mois et l'année que tu désires :
Dim Mois As Integer, Année As Integer, A As Long
Mois = 2 'février
Année = 2004
Plage contenant les dates : Feuil2!E1:E23
A = Evaluate("Max(if((Year(Feuil2!E1:E23)=" & année & ")*Month(Feuil2!E1:E23)=" & mois & ",Feuil2!E1:E23))")
'Attention aux coupures intempestifs de la formule par le service de messagerie
TextBox = CDate(a)
Salutations!
"Michel" <ee@calixo.net> a écrit dans le message de news:4035a652$0$7036$ba620e4c@news.skynet.be...
Bonjour,
Sur ma feuille en A:A j'ai toujours ma série de dates du type jj mm aa, dans
un textbox1 j'ai ma date de départ qui est tirée de ma feuille en A:A
.J'aimerais faire apparaitre dans un textbox2 la plus grande valeur du mois
et de l'année sélectionné dans textbox1.
Par exemple si textbox1 = 02 01 04 et que la plus grande valeur en A de ma
feuille est le 29 01 04 je voudrais que textbox2 affiche 29 01 04.
Finalement c'est le mois et l'année de textbox1 qui sont déterminants pour
la recherche dans ma liste de dates en a sur ma feuille.
J'ai essayé avec maxdate si mais ça colle pas.
J'espère avoir bien expliqué
Merci d'avance
Les variables à renseigner pour le mois et l'année que tu désires :
Dim Mois As Integer, Année As Integer, A As Long
Mois = 2 'février Année = 2004
Plage contenant les dates : Feuil2!E1:E23
A = Evaluate("Max(if((Year(Feuil2!E1:E23)=" & année & ")*Month(Feuil2!E1:E23)=" & mois & ",Feuil2!E1:E23))")
'Attention aux coupures intempestifs de la formule par le service de messagerie
TextBox = CDate(a)
Salutations!
"Michel" a écrit dans le message de news:4035a652$0$7036$ Bonjour,
Sur ma feuille en A:A j'ai toujours ma série de dates du type jj mm aa, dans un textbox1 j'ai ma date de départ qui est tirée de ma feuille en A:A .J'aimerais faire apparaitre dans un textbox2 la plus grande valeur du mois et de l'année sélectionné dans textbox1. Par exemple si textbox1 = 02 01 04 et que la plus grande valeur en A de ma feuille est le 29 01 04 je voudrais que textbox2 affiche 29 01 04. Finalement c'est le mois et l'année de textbox1 qui sont déterminants pour la recherche dans ma liste de dates en a sur ma feuille. J'ai essayé avec maxdate si mais ça colle pas. J'espère avoir bien expliqué Merci d'avance
Alain CROS
Bonjour.
Les TextBox sur une feuille de calcul. Ta colonne de dates nommée LesDates. Je te laisse le soin de gérer les erreurs possibles.
Private Sub TextBox1_LostFocus() Dim LD& LD = CDate(TextBox1.Value) TextBox2.Value = Format(Application.Evaluate( _ "=SUM(MAX((MONTH(LesDates)=MONTH(" & LD & "))*" & _ "(YEAR(LesDates)=YEAR(" & LD & "))*(LesDates)))"), "dd mm yy") End Sub'AC
Alain CROS.
"Michel" a écrit dans le message de news: 4035a652$0$7036$
Bonjour,
Sur ma feuille en A:A j'ai toujours ma série de dates du type jj mm aa, dans un textbox1 j'ai ma date de départ qui est tirée de ma feuille en A:A .J'aimerais faire apparaitre dans un textbox2 la plus grande valeur du mois et de l'année sélectionné dans textbox1. Par exemple si textbox1 = 02 01 04 et que la plus grande valeur en A de ma feuille est le 29 01 04 je voudrais que textbox2 affiche 29 01 04. Finalement c'est le mois et l'année de textbox1 qui sont déterminants pour la recherche dans ma liste de dates en a sur ma feuille. J'ai essayé avec maxdate si mais ça colle pas. J'espère avoir bien expliqué Merci d'avance
Bonjour.
Les TextBox sur une feuille de calcul.
Ta colonne de dates nommée LesDates.
Je te laisse le soin de gérer les erreurs possibles.
Private Sub TextBox1_LostFocus()
Dim LD&
LD = CDate(TextBox1.Value)
TextBox2.Value = Format(Application.Evaluate( _
"=SUM(MAX((MONTH(LesDates)=MONTH(" & LD & "))*" & _
"(YEAR(LesDates)=YEAR(" & LD & "))*(LesDates)))"), "dd mm yy")
End Sub'AC
Alain CROS.
"Michel" <ee@calixo.net> a écrit dans le message de news: 4035a652$0$7036$ba620e4c@news.skynet.be...
Bonjour,
Sur ma feuille en A:A j'ai toujours ma série de dates du type jj mm aa, dans
un textbox1 j'ai ma date de départ qui est tirée de ma feuille en A:A
.J'aimerais faire apparaitre dans un textbox2 la plus grande valeur du mois
et de l'année sélectionné dans textbox1.
Par exemple si textbox1 = 02 01 04 et que la plus grande valeur en A de ma
feuille est le 29 01 04 je voudrais que textbox2 affiche 29 01 04.
Finalement c'est le mois et l'année de textbox1 qui sont déterminants pour
la recherche dans ma liste de dates en a sur ma feuille.
J'ai essayé avec maxdate si mais ça colle pas.
J'espère avoir bien expliqué
Merci d'avance
Les TextBox sur une feuille de calcul. Ta colonne de dates nommée LesDates. Je te laisse le soin de gérer les erreurs possibles.
Private Sub TextBox1_LostFocus() Dim LD& LD = CDate(TextBox1.Value) TextBox2.Value = Format(Application.Evaluate( _ "=SUM(MAX((MONTH(LesDates)=MONTH(" & LD & "))*" & _ "(YEAR(LesDates)=YEAR(" & LD & "))*(LesDates)))"), "dd mm yy") End Sub'AC
Alain CROS.
"Michel" a écrit dans le message de news: 4035a652$0$7036$
Bonjour,
Sur ma feuille en A:A j'ai toujours ma série de dates du type jj mm aa, dans un textbox1 j'ai ma date de départ qui est tirée de ma feuille en A:A .J'aimerais faire apparaitre dans un textbox2 la plus grande valeur du mois et de l'année sélectionné dans textbox1. Par exemple si textbox1 = 02 01 04 et que la plus grande valeur en A de ma feuille est le 29 01 04 je voudrais que textbox2 affiche 29 01 04. Finalement c'est le mois et l'année de textbox1 qui sont déterminants pour la recherche dans ma liste de dates en a sur ma feuille. J'ai essayé avec maxdate si mais ça colle pas. J'espère avoir bien expliqué Merci d'avance
