VBA 2 conditions pour i lignes

-
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 :
[/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 ?
Afficher la suite 

1 réponse

Messages postés
198
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
12 octobre 2019
6
0
Merci
Bonjour,

La syntaxe de la collection Cells est : Cells(n°ligne, n° colonne).

A quoi correspondent tes F, g, h ?

Cordialement
ALS35
Messages postés
198
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
12 octobre 2019
6 -
C'est quoi Données ?
ALS35
Messages postés
198
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
12 octobre 2019
6 -
Alors écrit plutôt ton code comme ceci :

Sub Cours()

Dim i As Integer, n As Integer
Dim Données As Worksheet

Set Données = Sheets("Données")

n = 1000
For i = 1 To n
    If Données.Cells(i, 6) = Données.Cells(i + 1, 6) And Données.Cells(i, 8) = Données.Cells(i + 1, 8) Then
        Données.Cells(i, 14) = Données.Cells(i, 7) + Données.Cells(i + 1, 7)
    End If
Next i

End Sub


Cordialement
On me sort un message d'erreur : L'indice n'appartient pas à la selection.

Je pense que je vais repenser le programme du début, en tout cas merci pour ton soutien j'essaierai de te montrer ce que le nouveau programme donne. Je pense que je m'y suis pris de la mauvaise façon
ALS35
Messages postés
198
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
12 octobre 2019
6 -
Chez moi ça marche !
Poste ton fichier, ou tout du moins juste ta feuille de données, en passant par cjoint.com ou mon-partage.fr si tu veux et colle le lien ici
Bon courage
Commenter la réponse de ALS35