A
albert
Guest
bonjour à tous, bonjour forum,
dans la macro pièce jointe, le travail s'effectue ainsi :
En partant d’une date donnée pour le cours d’une action, « Find » recherche la valeur de l’indice à cette même date
For i = 2 To Range("P7").End(xlDown).Row
Date_Rech = Cells(i, 1).Value
With Worksheets("Indice").Range("P7110")
'à partir de P Find va chercher dans U pour envoyer dans V
Indice = .Find(What:=Date_Rech).Offset(0, 5).Value
End With
L’opération de recherche fonctionne bien et la colonne recherchée est recopiée ligne par ligne dans la feuille « bouygues »…
PROBLEMATIQUE
….cependant, la colonne devrait être recopiée en V7 et non en V2 dans "BOUYGUES"
… TOUTE LA COLONNE… en fait elle est recopiée en partie : il y a décalage à partir de V104 , qui ne correspond pas à Y 104
Si je modifie la boucle :
(bouton 2)
Sub Modèle2() Dim Feuille As Worksheet
For i = 7 To Range("P7").End(xlDown).Row
La colonne est recopiée en V7 mais les 5 premières lignes sont scalpées…
Que faire ??? j’ai essayé de résoudre , sans succès (je perds du poids, je déprime, je vais bientôt insulter mon computer… mais ça ne change rien)
Le bogue apparaît sur
Indice = .Find(What:=Date_Rech).Offset(0, 5).Value
J’ai donc fait varier Offset de –5 à + 5 c’est toujours en panne…
:-((
merci d'avance pour un coup de main
albert
dans la macro pièce jointe, le travail s'effectue ainsi :
En partant d’une date donnée pour le cours d’une action, « Find » recherche la valeur de l’indice à cette même date
For i = 2 To Range("P7").End(xlDown).Row
Date_Rech = Cells(i, 1).Value
With Worksheets("Indice").Range("P7110")
'à partir de P Find va chercher dans U pour envoyer dans V
Indice = .Find(What:=Date_Rech).Offset(0, 5).Value
End With
L’opération de recherche fonctionne bien et la colonne recherchée est recopiée ligne par ligne dans la feuille « bouygues »…
PROBLEMATIQUE
….cependant, la colonne devrait être recopiée en V7 et non en V2 dans "BOUYGUES"
… TOUTE LA COLONNE… en fait elle est recopiée en partie : il y a décalage à partir de V104 , qui ne correspond pas à Y 104
Si je modifie la boucle :
(bouton 2)
Sub Modèle2() Dim Feuille As Worksheet
For i = 7 To Range("P7").End(xlDown).Row
La colonne est recopiée en V7 mais les 5 premières lignes sont scalpées…
Que faire ??? j’ai essayé de résoudre , sans succès (je perds du poids, je déprime, je vais bientôt insulter mon computer… mais ça ne change rien)
Le bogue apparaît sur
Indice = .Find(What:=Date_Rech).Offset(0, 5).Value
J’ai donc fait varier Offset de –5 à + 5 c’est toujours en panne…
:-((
merci d'avance pour un coup de main
albert