Somme feuil1 vers feuil2

Bonjour,

bonjour tout le monde

je suis sur un code que je croix avoir presque terminé mais je bute sur un point

voici mon code:

Sub spreadDeCredit()
Dim k As Long
Dim spot_1 As Double
Dim spot_2 As Double
Dim somme As Single
Dim diff As Double
k = Worksheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row

For i = 0 To k
    If Worksheets("Feuil1").Cells(i, 16).Value Like "*AAA*" Then
       spot_1 = Worksheets("Feuil1").Cells(i, 10).Value
       spot_2 = Worksheets("Feuil1").Cells(i, 11).Value
       diff = Abs(spot_1 - spot_2)
       somme = 0
       somme = somme + diff
    End If
    Cells(6, 8).Value = somme
End Sub

dans ce code je cherche a parcourir "Feuil1" avec la condition que j'ai imposé et mettre le resultat dans feuil2

ma boucle parcours la feuille ("feuil1") daja a ce nivo j'aimerai savoir ci c'est correct mon ecriture ?

ensuite je voudrais faire la somme de toutes les differences Abs(spot_1 - spot_2) ...

est ce correct la aussi

somme = somme + diff

?

enfin mon soucis majeur est que ma cellule H6 DOIT CONTENIR : H6=somme/(nombre de fois qu'on a rencontré le caractere AAA dans feuil1) en d'autres termes c'est le nombre de fois qu'on a fait la difference entre spot_1 et spot_2

sof que j'ignore comment le definir dans mon code

merci de votre aide

Bonjour

Sub spreadDeCredit()
Dim k As Long
Dim spot_1 As Double
Dim spot_2 As Double
Dim somme As Single
Dim diff As Double
Dim Occurence as integer
k = Worksheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row

For i = 0 To k
    If Worksheets("Feuil1").Cells(i, 16).Value Like "*AAA*" Then
       Occurence = Occurence + 1
       spot_1 = Worksheets("Feuil1").Cells(i, 10).Value
       spot_2 = Worksheets("Feuil1").Cells(i, 11).Value
       diff = Abs(spot_1 - spot_2)
       somme = somme + diff
    End If
    Cells(6, 8).Value = somme/Occurence
End Sub

enleve la ligne ou tu mets la somme à 0 ( à chaque cellule ta somme redevient 0 ) . Je n'ai pas testé le code, alors dis-moi si ça fonctionne.

j'ai essayé le code sof que j'ai une erreur d'execution

'' depassement de capacité ''

a la ligne ci-dessous:

Cells(6, 8).Value = somme/Occurence

merci bien

peux-tu poster un petit exemple du résultat, je pense que je t'ai mal compris

voici un exemple de resultat:

supossons que AAA se trouve a la ligne 6,9,15 et 56 on suppose que k >56

je fait les differences suivantes:

diff1= Abs(Worksheets("Feuil1").Cells(6, 10).Value- Worksheets("Feuil1").Cells(6, 11).Value
)

 diif2=Abs(Worksheets("Feuil1").Cells(9, 10).Value- Worksheets("Feuil1").Cells(9, 11).Value
)

 diff3=Abs(Worksheets("Feuil1").Cells(15, 10).Value- Worksheets("Feuil1").Cells(15, 11).Value
)

 diff4=Abs(Worksheets("Feuil1").Cells(56, 10).Value- Worksheets("Feuil1").Cells(56, 11).Value
)

et finalement ma somme est :

somme=(diff1+diff2+diff3+diff4)/4

on divise par 4 car on a rencontrer le caractere AAA quatre fois quand i parcours les cellules jusqu'a k..

merci d'avance

premièrement, une erreur que j'avais fait, sort la somme final de la boucle

Sub spreadDeCredit()
Dim k As Long
Dim spot_1 As Double
Dim spot_2 As Double
Dim somme As Single
Dim diff As Double
Dim Occurence as integer
k = Worksheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row

For i = 0 To k
    If Worksheets("Feuil1").Cells(i, 16).Value Like "*AAA*" Then
       Occurence = Occurence + 1
       spot_1 = Worksheets("Feuil1").Cells(i, 10).Value
       spot_2 = Worksheets("Feuil1").Cells(i, 11).Value
       diff = Abs(spot_1 - spot_2)
       somme = somme + diff
    End If
Next
    Cells(6, 8).Value = somme/Occurence
End Sub 

ensuite pour ton erreur, peut-être que tes valeurs sont trop grande pour les variables, essaie avec deux ou trois petite valeur.

merci bien pour votre aide

ça marche enfin