recherche de date

17 réponses

fred

26/11/2004 à 19:13

bonsoir,

je dois faire une macro pour rechercher dans un tableau des valeurs
(plusieurs colonnes) en fonction de dates.
en clair: rechercher en fonction de la date du jour des lignes dans un
tableau comportant plusieurs colonnes
j'ai beaucoup beaucoup de mal et c'est rien de le dire

je vais détailler:
1er colonne : la date puis des donnees alpha et numériques dans en tout 6
colonnes
sur une seule feuille.

je voudrais afficher les données sur une autre feuille du classeur sous la
forme du meme nombre de colonnes mais que les lignes concernees par la date
recherchée.
j'espere avoir fait avancer le probleme

merci

7 réponses

1 2

27/11/2004 à 14:38

C'est pas le bon lien

http://cjoint.com/?lBot27gpQo

AV

Jacky

27/11/2004 à 15:15

ok voila
http://cjoint.com/data/lBoLxM31UY.htm
JJ

"AV" a écrit dans le message de
news:

Je ne fais pas ce constat
Exemple (simplifié) de copie de plage dates là :

http://cjoint.com/?lBonTfmIh0

AV

Jacky

27/11/2004 à 15:24

J'ai la même erreur avec ton exemple cible= date US
Voici le mien [XL97]

<http://cjoint.com/data/lBoLxM31UY.htm>
Salutations
JJ

"AV" a écrit dans le message de
news:%

C'est pas le bon lien

http://cjoint.com/?lBot27gpQo

AV

Jacky

27/11/2004 à 15:31

Tu peux d'ailleurs constater que le msgbox renvoie en ligne A1 renvoie la
bonne date

JJ

"AV" a écrit dans le message de
news:%

C'est pas le bon lien

http://cjoint.com/?lBot27gpQo

AV

27/11/2004 à 15:43

Ok c'est un bug XL97 !

Pour contourner :
Avec la plage cible préalablement formatée "dates"

Sub zzz()
With [Source]
.NumberFormat = Standard
[Cible].Value = [Source].Value
.NumberFormat = "dd/mm/yy"
End With
End Sub

AV

Jacky

27/11/2004 à 16:00

Ah, je préfère, j'ai déjà eu ce problème avec d'autre fichier ou j'ai du
formater les dates, mais je n'avais pas cherché plus loin.
Cela me rassure, je commençais à douter.....
Merci
Bonne journée
JJ

"AV" a écrit dans le message de
news:

Ok c'est un bug XL97 !

Pour contourner :
Avec la plage cible préalablement formatée "dates"

Sub zzz()
With [Source]
.NumberFormat = Standard
[Cible].Value = [Source].Value
.NumberFormat = "dd/mm/yy"
End With
End Sub

AV

Philippe.R

27/11/2004 à 16:25

Bonjour Fred,
Cette réponse, apportée dans le fil initial, ne convient pas ?

Sub export_jour()
'MPFE le 27/11/2004
'copie les lignes de la Feuil1 vers la Feuil2
'lorsque la date figurant en colonne A est identique
'celle du jour
Dim deRLig As Long, liGsRce As Long, ligDest As Long
Sheets("Feuil1").Activate
deRLig = Range("a65536").End(xlUp).Row
'on suppose une ligne de titre en 1 et on balaye jusqu'à
'la dernière ligne de la colonne A
For liGsRce = 2 To deRLig
If ligDest < 2 Then ligDest = 2
If Cells(liGsRce, 1).Value = Date Then
Range("A" & liGsRce & ":F" & liGsRce).Copy
Sheets("Feuil2").Select
Range("A" & ligDest).Select
ActiveSheet.Paste
ligDest = ligDest + 1
Sheets("Feuil1").Select
Application.CutCopyMode = False
End If
Next liGsRce
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"fred" a écrit dans le message de news: co7rje$pho$

bonsoir,

je dois faire une macro pour rechercher dans un tableau des valeurs
(plusieurs colonnes) en fonction de dates.
en clair: rechercher en fonction de la date du jour des lignes dans un
tableau comportant plusieurs colonnes
j'ai beaucoup beaucoup de mal et c'est rien de le dire

je vais détailler:
1er colonne : la date puis des donnees alpha et numériques dans en tout 6
colonnes
sur une seule feuille.

je voudrais afficher les données sur une autre feuille du classeur sous la
forme du meme nombre de colonnes mais que les lignes concernees par la date
recherchée.
j'espere avoir fait avancer le probleme

merci

1 2

recherche de date

7 réponses

Veuillez sélectionner un problème