Bonjour,
Je cherche à réaliser une boucle de calcul sous VBA.
Le but est de faire évoluer ma formule selon les différentes valeurs de X proposées, celles -ci sont pré remplies dans une liste Excel.
Ensuite, une fois ces différents résultats calculés, je souhaite les afficher dans d'autres cases du même classeur.
> Il faut donc que j'aille chercher les valeurs correspondantes.
> Que je réalise une boucle qui va chercher successivement chaque valeur de chaque case. (Comment dire à ma boucle d'aller cherche les autres valeurs : "aller à la case en dessous jusqu'à un certain moment". Ce code ci dessous suffit - il?)
A0 = X
For X = 0 To 24
Range("X").Select
X = X + 1
Y = aX + b
Next
> Et, enfin, que dans ma boucle, j'intègre un code qui me permettra d'afficher le résultat de chaque variable correspondante. (Sauf que ce code n'est pas itératif, n'est possible qu'avec qu'un seul résultat)
Dim Ser As Range
For Each Ser In Range("O1:O25")
If Ser.Value = "" Then
Ser.Value = Y
End If
Next
End Sub
Auriez-vous des billes s'il vous plaît pour m'aider à avancer. Je n'ai que des notions pour l'instant... (Hélas, on n'est pas expert après 4 jours de code!...)
Merci !
Je cherche à réaliser une boucle de calcul sous VBA.
Le but est de faire évoluer ma formule selon les différentes valeurs de X proposées, celles -ci sont pré remplies dans une liste Excel.
Ensuite, une fois ces différents résultats calculés, je souhaite les afficher dans d'autres cases du même classeur.
> Il faut donc que j'aille chercher les valeurs correspondantes.
> Que je réalise une boucle qui va chercher successivement chaque valeur de chaque case. (Comment dire à ma boucle d'aller cherche les autres valeurs : "aller à la case en dessous jusqu'à un certain moment". Ce code ci dessous suffit - il?)
A0 = X
For X = 0 To 24
Range("X").Select
X = X + 1
Y = aX + b
Next
> Et, enfin, que dans ma boucle, j'intègre un code qui me permettra d'afficher le résultat de chaque variable correspondante. (Sauf que ce code n'est pas itératif, n'est possible qu'avec qu'un seul résultat)
Dim Ser As Range
For Each Ser In Range("O1:O25")
If Ser.Value = "" Then
Ser.Value = Y
End If
Next
End Sub
Auriez-vous des billes s'il vous plaît pour m'aider à avancer. Je n'ai que des notions pour l'instant... (Hélas, on n'est pas expert après 4 jours de code!...)
Merci !