VBA 2 conditions pour i lignes
Ali
-
ALS35 Messages postés 1033 Date d'inscription Statut Membre Dernière intervention -
ALS35 Messages postés 1033 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Alors j'ai un fichier avec plusieurs executions sur le marché boursier. Le fichier contient le nom des valeurs, la quantité éxécuté, ainsi que le cours auquel les transactions ont été executés. J'ai essayé de faire un code VBA sous la forme suivante : Si Nom de la valeur i = nom de la valeur =i+1 et cours de la valeur i = cours de la valeur i+1, faire la somme des deux quantités.
Le code se traduit comme suit :
Sauf que ce dernier ne marche pas. Une idée les amis ?
Alors j'ai un fichier avec plusieurs executions sur le marché boursier. Le fichier contient le nom des valeurs, la quantité éxécuté, ainsi que le cours auquel les transactions ont été executés. J'ai essayé de faire un code VBA sous la forme suivante : Si Nom de la valeur i = nom de la valeur =i+1 et cours de la valeur i = cours de la valeur i+1, faire la somme des deux quantités.
Le code se traduit comme suit :
[/contents/446-fichier-sub Sub] cours() For i = 1 To n n = 1000 If Données.Cells(F, i) = Données.Cells(F, i + 1) And Données.Cells(h, i) = Données.Cells(h, i + 1) Then Données.Cells(n, i) = Données.Cells(g, i) + Données.Cells(g, i + 1) End If Next End Sub
Sauf que ce dernier ne marche pas. Une idée les amis ?
A voir également:
- VBA 2 conditions pour i lignes
- Supercopier 2 - Télécharger - Gestion de fichiers
- 2 ecran pc - Guide
- I love pdf avis ✓ - Forum PDF
- I ou o pour allumer ✓ - Forum Matériel & Système
- Ou i ou a a ✓ - Forum Musique / Radio / Clip
My bad, ca fait quelques années que je n'ai pas pratiqué et la j'essaie de reprendre car j'en ai besoin dans mon boulot.
Bon je me suis trompé, j'ai remplacé les F, G, H par des chiffres relatifs aux colonnes (5 pour E, 6 pour F)
Sub cours()
For i = 1 To n
n = 1000
If Données.Cells(6, i) = Données.Cells(6, i + 1) And Données.Cells(8, i) = Données.Cells(8, i + 1) Then
Données.Cells(14, i) = Données.Cells(7, i) + Données.Cells(7, i + 1)
End If
Next
End Sub
Alors dans mon fichier Excel, j'ai la colonne F (que j'ai remplacé par 6) pour le nom des valeurs, G pour la quantité et H pour le cours. Concernant N (14) c'est la colonne ou je veux que les résultats apparaissent. Merci beaucoup, je suis sur que je fais n'importe quoi.. mais j'ai besoin de m'y mettre très serieusement
Je crois que tu fais l'inverse !
Sub cours()
Mais toujours rien, je pense qu'il faut repenser le programme en soit. Ca ne va pas marcher comme ça