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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
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