Erreur de Déclaration

Bonjour,

le code ci-dessous bug au niveau de la ligne: Range("K" & i) = WorksheetFunction.StDev("D" & j, "D" & i)

je pense qu'il s'agit d'un problème de déclaration, mais j'ai bien besoin d'un coup de pouce.

Merci d'avance

Dim i As Long, j As Long, X As Long, f As Long

i = 2

j = 2

X = Range("A65536").End(xlUp).Row

For f = 2 To X

Do While Range("I" & i) = 0

i = i + 1

Loop

Range("K" & i) = WorksheetFunction.StDev("D" & j, "D" & i)

j = i

i = i + 1

Next

Bonjour,

Lorsque tu places un code, veille à le mettre entre les balises en sélectionnant ton code puis en cliquant sur le bouton "Code".

Pour ton souci, sans fichier ce n'est pas facile de voir le pourquoi du bug. Mais une chose, est-ce normal que j vaut toujours 2 ??

A te relire

edit Dan : sinon essaie comme ceci -->

Range("K" & i) = WorksheetFunction.StDev(Range("D" & j), Range("D" & i))

Bonjour,

merci Dan pour ta réponse. Malheureusement ton code ne marche pas non plus, et j vaut 2 tant que la macro bug a cet endroit mais l'idée est qu'il augmente par la suite.

Cordialement

mat

re,

En fait tu as deux soucis.

le premier que je t'ai donné et le suivant qui vient de la boucle do while qui continue à l'infini.

Essaie comme ceci :

Sub test()
Dim i As Long, j As Long, f As Long
i = 2
j = 2
For f = 2 To Range("A65536").End(xlUp).Row
Do While Range("I" & i) = 0
i = i + 1
Loop
Range("K" & i) = WorksheetFunction.StDev(Range("D" & j), Range("D" & i))
j = i
f = i
i = i + 1
Next
End Sub

Amicalement

Merci Dan,

tu as totalement raison concernant ma boucle, je l'ai déjà modifiée grâce à d'autres conseils et à présent ça marche

Cordialement.

re,

Ok. N'oublie pas de cloturer le fil en cliquant sur le V vert.

Merci de ta participation

Amicalement