En colonne A des dates triées ( 01/01/07) sachant que la fin des mois n'est
pas forcement le dernier jour du mois.
Exemple pour Janvier ( 28/01/07)
En B des valeurs numériques.
Comment par macro rechercher la valeur (en colonne B)qui correspond au
dernier jour du mois?
Suis assez clair?
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
Jean-François Aubert
salut Jean,
une idée:
Je suppose les dates triées en ordre croissant. En D1 le numéro du mois à prendre en compte.
Sub test() For i = [A65536].End(xlUp).Row To 1 Step -1 If Month(Cells(i, 1)) = Range("D1") Then MsgBox Cells(i, 2) Exit For End If Next End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"jean berti" a écrit dans le message de news: OU0no$
Bonjour à tous
En colonne A des dates triées ( 01/01/07) sachant que la fin des mois n'est pas forcement le dernier jour du mois. Exemple pour Janvier ( 28/01/07) En B des valeurs numériques. Comment par macro rechercher la valeur (en colonne B)qui correspond au dernier jour du mois? Suis assez clair?
Merci d'avance Jean Berti
salut Jean,
une idée:
Je suppose les dates triées en ordre croissant.
En D1 le numéro du mois à prendre en compte.
Sub test()
For i = [A65536].End(xlUp).Row To 1 Step -1
If Month(Cells(i, 1)) = Range("D1") Then
MsgBox Cells(i, 2)
Exit For
End If
Next
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"jean berti" <jberti@free.fr> a écrit dans le message de news:
OU0no$eyHHA.3564@TK2MSFTNGP04.phx.gbl...
Bonjour à tous
En colonne A des dates triées ( 01/01/07) sachant que la fin des mois
n'est pas forcement le dernier jour du mois.
Exemple pour Janvier ( 28/01/07)
En B des valeurs numériques.
Comment par macro rechercher la valeur (en colonne B)qui correspond au
dernier jour du mois?
Suis assez clair?
Je suppose les dates triées en ordre croissant. En D1 le numéro du mois à prendre en compte.
Sub test() For i = [A65536].End(xlUp).Row To 1 Step -1 If Month(Cells(i, 1)) = Range("D1") Then MsgBox Cells(i, 2) Exit For End If Next End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"jean berti" a écrit dans le message de news: OU0no$
Bonjour à tous
En colonne A des dates triées ( 01/01/07) sachant que la fin des mois n'est pas forcement le dernier jour du mois. Exemple pour Janvier ( 28/01/07) En B des valeurs numériques. Comment par macro rechercher la valeur (en colonne B)qui correspond au dernier jour du mois? Suis assez clair?
Merci d'avance Jean Berti
jean berti
Bonjour JF Merci de ton aide L'idée n'est pas mal du tout, juste 1 détail: si je mets en Col D les N° des mois (D1:D12) comment obtenir la valeur en F1:F12? Et l'année ( depuis 1999?) Jean Berti "Jean-François Aubert" <à a écrit dans le message de news:
salut Jean,
une idée:
Je suppose les dates triées en ordre croissant. En D1 le numéro du mois à prendre en compte.
Sub test() For i = [A65536].End(xlUp).Row To 1 Step -1 If Month(Cells(i, 1)) = Range("D1") Then MsgBox Cells(i, 2) Exit For End If Next End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"jean berti" a écrit dans le message de news: OU0no$
Bonjour à tous
En colonne A des dates triées ( 01/01/07) sachant que la fin des mois n'est pas forcement le dernier jour du mois. Exemple pour Janvier ( 28/01/07) En B des valeurs numériques. Comment par macro rechercher la valeur (en colonne B)qui correspond au dernier jour du mois? Suis assez clair?
Merci d'avance Jean Berti
Bonjour JF
Merci de ton aide
L'idée n'est pas mal du tout, juste 1 détail:
si je mets en Col D les N° des mois (D1:D12) comment obtenir la valeur en
F1:F12?
Et l'année ( depuis 1999?)
Jean Berti
"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message de
news: OogSGQfyHHA.2224@TK2MSFTNGP02.phx.gbl...
salut Jean,
une idée:
Je suppose les dates triées en ordre croissant.
En D1 le numéro du mois à prendre en compte.
Sub test()
For i = [A65536].End(xlUp).Row To 1 Step -1
If Month(Cells(i, 1)) = Range("D1") Then
MsgBox Cells(i, 2)
Exit For
End If
Next
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"jean berti" <jberti@free.fr> a écrit dans le message de news:
OU0no$eyHHA.3564@TK2MSFTNGP04.phx.gbl...
Bonjour à tous
En colonne A des dates triées ( 01/01/07) sachant que la fin des mois
n'est pas forcement le dernier jour du mois.
Exemple pour Janvier ( 28/01/07)
En B des valeurs numériques.
Comment par macro rechercher la valeur (en colonne B)qui correspond au
dernier jour du mois?
Suis assez clair?
Bonjour JF Merci de ton aide L'idée n'est pas mal du tout, juste 1 détail: si je mets en Col D les N° des mois (D1:D12) comment obtenir la valeur en F1:F12? Et l'année ( depuis 1999?) Jean Berti "Jean-François Aubert" <à a écrit dans le message de news:
salut Jean,
une idée:
Je suppose les dates triées en ordre croissant. En D1 le numéro du mois à prendre en compte.
Sub test() For i = [A65536].End(xlUp).Row To 1 Step -1 If Month(Cells(i, 1)) = Range("D1") Then MsgBox Cells(i, 2) Exit For End If Next End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"jean berti" a écrit dans le message de news: OU0no$
Bonjour à tous
En colonne A des dates triées ( 01/01/07) sachant que la fin des mois n'est pas forcement le dernier jour du mois. Exemple pour Janvier ( 28/01/07) En B des valeurs numériques. Comment par macro rechercher la valeur (en colonne B)qui correspond au dernier jour du mois? Suis assez clair?
Merci d'avance Jean Berti
jean berti
JF
J'ai trouvé pour l'année: Sub test() For i = [A65536].End(xlUp).Row To 1 Step -1 If Month(Cells(i, 1)) = Range("D1") Then If Year(Cells(i, 1)) = Range("E1") Then [G1] = Cells(i, 2) Exit For End If End If Next End Sub "jean berti" a écrit dans le message de news:
Bonjour JF Merci de ton aide L'idée n'est pas mal du tout, juste 1 détail: si je mets en Col D les N° des mois (D1:D12) comment obtenir la valeur en F1:F12? Et l'année ( depuis 1999?) Jean Berti "Jean-François Aubert" <à a écrit dans le message de news:
salut Jean,
une idée:
Je suppose les dates triées en ordre croissant. En D1 le numéro du mois à prendre en compte.
Sub test() For i = [A65536].End(xlUp).Row To 1 Step -1 If Month(Cells(i, 1)) = Range("D1") Then MsgBox Cells(i, 2) Exit For End If Next End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"jean berti" a écrit dans le message de news: OU0no$
Bonjour à tous
En colonne A des dates triées ( 01/01/07) sachant que la fin des mois n'est pas forcement le dernier jour du mois. Exemple pour Janvier ( 28/01/07) En B des valeurs numériques. Comment par macro rechercher la valeur (en colonne B)qui correspond au dernier jour du mois? Suis assez clair?
Merci d'avance Jean Berti
JF
J'ai trouvé pour l'année:
Sub test()
For i = [A65536].End(xlUp).Row To 1 Step -1
If Month(Cells(i, 1)) = Range("D1") Then
If Year(Cells(i, 1)) = Range("E1") Then
[G1] = Cells(i, 2)
Exit For
End If
End If
Next
End Sub
"jean berti" <jberti@free.fr> a écrit dans le message de news:
eJWmHifyHHA.1484@TK2MSFTNGP06.phx.gbl...
Bonjour JF
Merci de ton aide
L'idée n'est pas mal du tout, juste 1 détail:
si je mets en Col D les N° des mois (D1:D12) comment obtenir la valeur en
F1:F12?
Et l'année ( depuis 1999?)
Jean Berti
"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message
de news: OogSGQfyHHA.2224@TK2MSFTNGP02.phx.gbl...
salut Jean,
une idée:
Je suppose les dates triées en ordre croissant.
En D1 le numéro du mois à prendre en compte.
Sub test()
For i = [A65536].End(xlUp).Row To 1 Step -1
If Month(Cells(i, 1)) = Range("D1") Then
MsgBox Cells(i, 2)
Exit For
End If
Next
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"jean berti" <jberti@free.fr> a écrit dans le message de news:
OU0no$eyHHA.3564@TK2MSFTNGP04.phx.gbl...
Bonjour à tous
En colonne A des dates triées ( 01/01/07) sachant que la fin des mois
n'est pas forcement le dernier jour du mois.
Exemple pour Janvier ( 28/01/07)
En B des valeurs numériques.
Comment par macro rechercher la valeur (en colonne B)qui correspond au
dernier jour du mois?
Suis assez clair?
J'ai trouvé pour l'année: Sub test() For i = [A65536].End(xlUp).Row To 1 Step -1 If Month(Cells(i, 1)) = Range("D1") Then If Year(Cells(i, 1)) = Range("E1") Then [G1] = Cells(i, 2) Exit For End If End If Next End Sub "jean berti" a écrit dans le message de news:
Bonjour JF Merci de ton aide L'idée n'est pas mal du tout, juste 1 détail: si je mets en Col D les N° des mois (D1:D12) comment obtenir la valeur en F1:F12? Et l'année ( depuis 1999?) Jean Berti "Jean-François Aubert" <à a écrit dans le message de news:
salut Jean,
une idée:
Je suppose les dates triées en ordre croissant. En D1 le numéro du mois à prendre en compte.
Sub test() For i = [A65536].End(xlUp).Row To 1 Step -1 If Month(Cells(i, 1)) = Range("D1") Then MsgBox Cells(i, 2) Exit For End If Next End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"jean berti" a écrit dans le message de news: OU0no$
Bonjour à tous
En colonne A des dates triées ( 01/01/07) sachant que la fin des mois n'est pas forcement le dernier jour du mois. Exemple pour Janvier ( 28/01/07) En B des valeurs numériques. Comment par macro rechercher la valeur (en colonne B)qui correspond au dernier jour du mois? Suis assez clair?
Merci d'avance Jean Berti
JB
Bonsoir,
m = 1 v = Evaluate("=INDEX(Valeur,match(DATE(2007," & m & "+1,0),dates, 1))") MsgBox v
Noms de champ dates =VBA!$A$2:$A$15 Valeur =VBA!$B$2:$B$15
http://cjoint.com/?htuGlzckJ4
JB
On 19 juil, 12:30, "jean berti" wrote:
Bonjour à tous
En colonne A des dates triées ( 01/01/07) sachant que la fin des mois n 'est pas forcement le dernier jour du mois. Exemple pour Janvier ( 28/01/07) En B des valeurs numériques. Comment par macro rechercher la valeur (en colonne B)qui correspond au dernier jour du mois? Suis assez clair?
Merci d'avance Jean Berti
Bonsoir,
m = 1
v = Evaluate("=INDEX(Valeur,match(DATE(2007," & m & "+1,0),dates,
1))")
MsgBox v
Noms de champ
dates =VBA!$A$2:$A$15
Valeur =VBA!$B$2:$B$15
http://cjoint.com/?htuGlzckJ4
JB
On 19 juil, 12:30, "jean berti" <jbe...@free.fr> wrote:
Bonjour à tous
En colonne A des dates triées ( 01/01/07) sachant que la fin des mois n 'est
pas forcement le dernier jour du mois.
Exemple pour Janvier ( 28/01/07)
En B des valeurs numériques.
Comment par macro rechercher la valeur (en colonne B)qui correspond au
dernier jour du mois?
Suis assez clair?
m = 1 v = Evaluate("=INDEX(Valeur,match(DATE(2007," & m & "+1,0),dates, 1))") MsgBox v
Noms de champ dates =VBA!$A$2:$A$15 Valeur =VBA!$B$2:$B$15
http://cjoint.com/?htuGlzckJ4
JB
On 19 juil, 12:30, "jean berti" wrote:
Bonjour à tous
En colonne A des dates triées ( 01/01/07) sachant que la fin des mois n 'est pas forcement le dernier jour du mois. Exemple pour Janvier ( 28/01/07) En B des valeurs numériques. Comment par macro rechercher la valeur (en colonne B)qui correspond au dernier jour du mois? Suis assez clair?
Merci d'avance Jean Berti
jean berti
Bonsoir JB
Merci beaucoup
Jean Berti "JB" a écrit dans le message de news:
Bonsoir,
m = 1 v = Evaluate("=INDEX(Valeur,match(DATE(2007," & m & "+1,0),dates, 1))") MsgBox v
Noms de champ dates =VBA!$A$2:$A$15 Valeur =VBA!$B$2:$B$15
http://cjoint.com/?htuGlzckJ4
JB
On 19 juil, 12:30, "jean berti" wrote:
Bonjour à tous
En colonne A des dates triées ( 01/01/07) sachant que la fin des mois n'est pas forcement le dernier jour du mois. Exemple pour Janvier ( 28/01/07) En B des valeurs numériques. Comment par macro rechercher la valeur (en colonne B)qui correspond au dernier jour du mois? Suis assez clair?
Merci d'avance Jean Berti
Bonsoir JB
Merci beaucoup
Jean Berti
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1184869970.055011.251270@o61g2000hsh.googlegroups.com...
Bonsoir,
m = 1
v = Evaluate("=INDEX(Valeur,match(DATE(2007," & m & "+1,0),dates,
1))")
MsgBox v
Noms de champ
dates =VBA!$A$2:$A$15
Valeur =VBA!$B$2:$B$15
http://cjoint.com/?htuGlzckJ4
JB
On 19 juil, 12:30, "jean berti" <jbe...@free.fr> wrote:
Bonjour à tous
En colonne A des dates triées ( 01/01/07) sachant que la fin des mois
n'est
pas forcement le dernier jour du mois.
Exemple pour Janvier ( 28/01/07)
En B des valeurs numériques.
Comment par macro rechercher la valeur (en colonne B)qui correspond au
dernier jour du mois?
Suis assez clair?
m = 1 v = Evaluate("=INDEX(Valeur,match(DATE(2007," & m & "+1,0),dates, 1))") MsgBox v
Noms de champ dates =VBA!$A$2:$A$15 Valeur =VBA!$B$2:$B$15
http://cjoint.com/?htuGlzckJ4
JB
On 19 juil, 12:30, "jean berti" wrote:
Bonjour à tous
En colonne A des dates triées ( 01/01/07) sachant que la fin des mois n'est pas forcement le dernier jour du mois. Exemple pour Janvier ( 28/01/07) En B des valeurs numériques. Comment par macro rechercher la valeur (en colonne B)qui correspond au dernier jour du mois? Suis assez clair?
