Discussion :

[Vincent32]

Bonjour à tous,

Je souhaite réaliser un calcul itératif avec un pas log base 10 . Quelqu'un aurait une astuce ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim i as single
 
for i=0.001 to 1000 step log(10)
 
'code
next i

l'idée étant d'exécuter le code pour :

i=0.001
i=0.01
i=0.1
i=1
i=10
i=100
i=1000

Merci de votre aide

[unparia]

Bonjour
Depuis quand log(10) vaudrait -il le pas défini ici :

i=0.001
i=0.01
i=0.1
i=1
i=10
i=100
i=1000

C'est une plaisanterie ? Si oui : elle est de fort mauvais goût.

[pijaku]

Bonjour,

Beaucoup plus simple avec une boucle Do While :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub e()
Dim i#
i = 0.001
Do While i <= 1000
    Debug.Print i
    i = i * 10
    'code
Loop
End Sub

EDIT :
unparia.

[unparia]

Bien Franck

Quant à Vincent32 :
avant d'utiliser des gros-mots, commence donc par t'intéresser à leur sens. Ce que tu veux atteindre ne correspond en aucun cas à une progression "logarithmique".