Salut James007, et le forum
Bon j'essai déjà d'importer une feuille excel de cotation de bourse sur deux dates différentes, (le 05/09/2014 et le 08/09/2014), jusque là je ne le fais pas en VBA, mais manuellement.
Puis je met sur un même classeur ces 2 tableaux, dans le but de comparer leur dernière colonne : si le chiffre est plus grand en 08/09/2014 que en 05/09/2014, je le colorie en vert (afin de voir si il y a eu une hausse des volumes de trasactions (juste pour essayer)
Donc je fais une boucle afin de compter les lignes et les comparer selon une condition, enfin bref,voila ce que j'ai écris, mais sans succès :
Sub essai()
debut = 1
fin = Sheets("Cotations20140905").Rows.Count + 1
While debut < fin
If Sheets("Cotations20140908").Range("G1" & debut).Value > Sheets("Cotations20140908").Range("G1" & debut).Value Then
Sheets("Cotations20140908").Range("G1" & debut).Interior.Color = 5296274
debut = debut + 1
Wend
End Sub
Ca me met : Wend sans While... Pourquoi?
une correction à apporter?
Merci bien (et désolé pour les multiples autres erreurs que je ne vois pas pour le moment...)
Oups, erreur sur la ligne
If Sheets("Cotations20140908").Range("G1" & debut).Value > Sheets("Cotations20140908").Range("G1" & debut).Value Then
qui est en fait :
If Sheets("Cotations20140908").Range("G1" & debut).Value > Sheets("Cotations20140905").Range("G1" & debut).Value Then
j'avais mit le même nom de fichier