Recherche avec VBA

Le
jean berti
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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jean-François Aubert
Le #4626841
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" 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
Le #4626811
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" 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" 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
Le #4626791
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"
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" 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" 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
Le #4623821
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"
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
Le #4623651
Bonsoir JB

Merci beaucoup

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"
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


Publicité
Poster une réponse
Anonyme