If cellule1=cellule 2 then next Ifnot Delete Résolu/Fermé

Question

Bonjour, 

Dans le fichier ci-joint j'ai une grande base de donnee avec plusieurs indices boursiers. Je souhaite prendre comme valeur de reference le cours de la once d'or XAU Currency. La quotation commence au 01/01/2005 et s'arrete au 23 aout 2016. Mon soucis c4est aue j'aimerais faire correspondre les quotations de XAU aux autre quotations. 

Je m'explique avec un exemple concret;

24/03/2005	425.47	24/03/2005	3026
25/03/2005	424.88	29/03/2005	3017
28/03/2005	426.1	30/03/2005	3027
29/03/2005	426.45	31/03/2005	3003

Les deux premiere colonne ( date + valeur) correspondent a XAU, les deux colonnes suivantes correspondent a VG1 index.

On peux voir que le decalage se fait apres le 24 Mars, il suffirait juste de supprimer le 25/03 et le 28/03 de la premiere colonne avec leur quotes correspondantes pour retrouver l'equilibre et donc arriver a ca :

24/03/2005	425.47	24/03/2005	3026 
29/03/2005	426.45    29/03/2005	3017
30/03/2005	427.95	30/03/2005	3027
31/03/2005	428.24    31/03/2005	3003

Et j'ai ce probleme sur des collonnes de 2800 cellules, et j'en ai un peu plus de 60 donc je ne peux pas le faire manuellement..


Auriez vous, dans l'ideal, un code VBA permettant de me mettre a niveau mes colonnes ? 


voici le fichier avec toute mes donnees:

 https://www.cjoint.com/c/FIcnfxQnhf7


D'avance merci

Configuration: Windows 7 / Mozilla 11.0

didmed · Answer

Salut.

Il est tout à fait possible de faire un "couper-coller" des 2 colonnes et ce, 70 fois > la preuve, je l'ai fait: cela m'a pris moins de 30 minutes !!!

Cela vous intéresse-t-il ??


@+

Ljonnier · Answer

J'ai essaye de faire le code suivant 


Sub test()
Dim cell As Range
Dim I As Long
For Each cell In Range("E1:E3000")
For I = 1 To 3000
If cell.Value = "OK" Then
Else
End If
If cell.Value = "NO" Then
Range("A" & I, "B" & I).Select
Selection.Delete Shift:=xlUp
End If
Range("E2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-4]=RC[-2],""OK"",""NO"")"
    Selection.AutoFill Destination:=Range("E2:E42"), Type:=xlFillDefault
    Range("E2:E3050").Select

Next I
Next cell

End Sub

Mais ca ne fonctionne pas je pense que je passe a cote d'un petit detail, je ne maitrise pas bien les loop mais peut etre qu'avec un Do While ca pourrait passer ?

Voici le fichier en piece jointe 

https://www.cjoint.com/c/FIjpxtkR0N7 

D'avance merci

michel_m · Answer

bonjour

si j'ai pigé ton pb
on a par ex dans ton classeur


tu voudrais à la place ?


alors à quoi correspond "OK" et "NO" ?

merci de répondre rapidement car tu sembles filer tes problèmes le vendredi pm pour qu'on bosse pour toi le WE ?

dans l'attente

michel_m · Answer

re,

ci joint proposition

durée pour 1 indice(auc et index)= env. 0,08 secondes

attention 
extraire le zip  et non l'ouvrir
http://www.cjoint.com/c/FImpPNSAGJR

code en position "essai" pour 1 indice à supprimer à la livrason
position "toutes la feuille" pr^te ' enlever les apostrohes

bonne soirée 
 
 Michel

If cellule1=cellule 2 then next Ifnot Delete

4 réponses

Discussions similaires