A
albert
Guest
bonjour à tous,
je patauge un peu...
J'ai un tableau d'une vingtaine de colonnes qui se succèdent : date - cours, date - cours, etc... Il y a des dates qui n'exitent pas parfois dans une colonne, ce qui décale les lignes par rapport aux autres lignes. Il faut alors trouver l'erreur et la rectifier en copiant la date et le cours de la veille...
par exemple : à la ligne 6 les dates ne correspondent pas. Il faut donc décaler03/02/03 de la colonne C, d'une ligne,
ecrire 04/02/03 en C6 et copier le cours de la veille de manière à rétablir les correspondances entre toutes les lignes
DATE CAC40 DATE ACCOR
10/02/03 2772.26 10/02/03 28,25
07/02/03 2796.66 07/02/03 28,63
06/02/03 2836.18 06/02/03 27,85
05/02/03 2884.62 05/02/03 27,51
04/02/03 2863.5 03/02/03 28,93 erreur
03/02/03 2957.79 31/01/03 28,62 erreur
31/01/03 2937.88 30/01/03 28,50 erreur
30/01/03 2914.13 29/01/03 26,66 erreur
29/01/03 2840.05 28/01/03 26,64 erreur
j'ai bricolé du code :
For i = 2 To Range("A2").End(xlDown).Row
Date_Cherche =Cells(i,1).Value
For j = 2 To Range("C2").End(xlDown).Row
Cells(i,4).Value
Date_ChercheR =Cells(j,1).Value
If Date_Cherche = Date_ChercheR Then Next i
Else
.... sans succès...
j'ai une idée avec Find(What:=Date...)....
merci d'avance à ceux qui pourront m'aider
albert
je patauge un peu...
J'ai un tableau d'une vingtaine de colonnes qui se succèdent : date - cours, date - cours, etc... Il y a des dates qui n'exitent pas parfois dans une colonne, ce qui décale les lignes par rapport aux autres lignes. Il faut alors trouver l'erreur et la rectifier en copiant la date et le cours de la veille...
par exemple : à la ligne 6 les dates ne correspondent pas. Il faut donc décaler03/02/03 de la colonne C, d'une ligne,
ecrire 04/02/03 en C6 et copier le cours de la veille de manière à rétablir les correspondances entre toutes les lignes
DATE CAC40 DATE ACCOR
10/02/03 2772.26 10/02/03 28,25
07/02/03 2796.66 07/02/03 28,63
06/02/03 2836.18 06/02/03 27,85
05/02/03 2884.62 05/02/03 27,51
04/02/03 2863.5 03/02/03 28,93 erreur
03/02/03 2957.79 31/01/03 28,62 erreur
31/01/03 2937.88 30/01/03 28,50 erreur
30/01/03 2914.13 29/01/03 26,66 erreur
29/01/03 2840.05 28/01/03 26,64 erreur
j'ai bricolé du code :
For i = 2 To Range("A2").End(xlDown).Row
Date_Cherche =Cells(i,1).Value
For j = 2 To Range("C2").End(xlDown).Row
Cells(i,4).Value
Date_ChercheR =Cells(j,1).Value
If Date_Cherche = Date_ChercheR Then Next i
Else
.... sans succès...
j'ai une idée avec Find(What:=Date...)....
merci d'avance à ceux qui pourront m'aider
albert