VBA - Itération qui ne marche pas

Version imprimable

Bonjour à toutes et à tous,

Je fais mes premier pas dans le monde du VBA.
J'ai un petit problème sur les commandes que écrites, mon itération ne marche pas pourriez vous m'aider ?

Je vous décrit ce que je veux faire :

Dans ma feuille (accueil) j'ai défini un paramètre variable (au choix de l'utilisateur du fichier) , cette variable est ma valeur souhaiter pour mes calculs.
Dans ma feuille "outil de calcul" se trouve une valeur issue d'un calcul antérieur.

Mon but est de multiplier la valeur dans "Outil de calcul" par un coefficient jusqu’à atteindre ma valeur souhaité ( la variable de la feuille "Accueil")
Si cette condition n'est pas atteinte , le calcul continue.

Voici mes lignes de code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Sub Boucles() Dim Capa As Integer Dim Pas As Double Dim x As Double Dim li As Integer Dim li1 As Integer Dim col As Integer Dim col1 As Integer Dim DoDM As Integer Pas = 0.01 li = 66 'li,col" la valeur ici d'un calcul , cette valeur est a multiplier par un coéfficient pour obtenir ma valeur souhaité dans la feuille (Acceuil) col = 3 li1 = 61 col1 = 3 DoDM = Sheets("Accueil").Range("g41") ' ma valeur souhaité dans la feuille "Accueil" For x = 0.6 To 0.7 'Pas If (Sheets("Outil de calcul").Range("d60") <> DoDM) Then ' Condition sur la valeur de DoD moyen souhaité par rapport à la Capa de base (tant que la cellule d60 est différente de la variable entrée dans la feuille "Accueil" , selectionne la cellule c66 dans "Outil de calcul" et la multiplie par le pas jusqu'à atteindre la valeur souhaitée dans "Acceuil" Sheets("Outil de calcul").Select Sheets("Outil de calcul").Range("C66").Value = Cells(li1, col1) * (x + Pas) ' Multiplie la cellule C61 (capa bat centralisée par le pas) Else End If Next Sheets("Outil de calcul").Select Range("C62").Select ThisWorkbook.RefreshAll ThisWorkbook.RefreshAll ThisWorkbook.RefreshAll Sheets("Outil de calcul").Select End Sub
Pourriez vous m'aider s'il vous plait ?
Merci d'avance

11/02/2019, 10h46
comme de bien entendu

Bonjour,
Si tu souhaites avoir une réponse rapide et efficace, il est souhaitable que tu utilises les balises de code qui s'utilisent dans les forums.
Autrement dit quand tu copies du code tu utilises le bouton # pour disposer des balises ""CODE"" autour de ton code. ( et la balise bulle pour tes commentaires)
Exemple :

Citation:

ceci est du commentaire et en dessous je mets mon code

Code:

for i =1 to 10

En ce qui concerne ton code a priori il faut que tu mettes utilises le mot clef STEP pour définir le pas de ta boucle.
Comme ceci

Code:

for i=1 to 10 step 0.1

Essayes voir ce que cela donne et renvoie nous le résultat.
Bon courage.

Problème d'itération - encore

comme de bien entendu, Merci pour ta réponse

Effectivement
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 Sub Boucles() Dim Capa As Integer Dim Pas As Double Dim x As Double Dim li As Integer Dim li1 As Integer Dim col As Integer Dim col1 As Integer Dim DoDM As Integer Pas = 0.01 li = 66 li1 = 61 col = 3 col1 = 3 DoDM = Sheets("Accueil").Range("g41") 'Capa = Sheets("Outil de calcul").Range("C61").Value For x = 0.5 To 1 Step 0.01 'Pas If (Sheets("Outil de calcul").Range("d60") <> DoDM) Then ' Condition sur la valeur de DoD moyen souhaité par rapport à la Capa de base Sheets("Outil de calcul").Select Sheets("Outil de calcul").Range("C66").Value = Cells(li1, col1) * (x) ' Multiplie la cellule C61 (capa bat centralisée par le pas Else End If Next Sheets("Outil de calcul").Select Range("C62").Select ThisWorkbook.RefreshAll ThisWorkbook.RefreshAll ThisWorkbook.RefreshAll Sheets("Outil de calcul").Select End Sub
A l'air de marché

cependant elle ne s’arrête pas à ma valeur souhaité. Je m'explique :

Dans la feuille (Accueil) : J'ai fixé ma variable à 60% (mon DoDM dans mon code)

Citation:

c'est la valeur que je souhaite atteindre

Dans la feuille ("Outil de calcul") J'ai calculé un DoD via des formules ( valeur variable ex : 40%)

Dans cette même feuille, J'ai une valeur de ma Capa

Citation:

la ligne li1 et colonne col1

que je souhaiterai multiplier par un coéff

Citation:

ici For x = 0.5 To 1 Step 0.01

jusqu'à obtenir une valeur de ma capacité qui satisfasse un DoD de 60%

Citation:

valeur fixée dans la feuille "Acceuil"

.

Comment faire pour arrêter l'itération une fois la valeur de 60% atteinte ?

11/02/2019, 12h06
Trystan441
Bonjour,

Une fois que tu as atteint ta valeur cible, place un exit for dans ton else
Code:

1 2 3 4 5 if ... then ... 'ta boucle continue tant que ton if est satisfait ... else: 'Ta valeur cible est atteinte' exit for
Cela te permet de sortir de ta boucle,

Trystan441 , Merci pour ta réponse

Même avec le

Code:

Exit for

ma séquence continue toujours son itération.

En remplaçant le

Code:

If

Par un

Code:

While

pourrait marché ?

tel que :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub Boucles()

    Dim Capa As Integer
    Dim Pas As Double
    Dim x As Double
    Dim li As Integer
    Dim li1 As Integer
    Dim col As Integer
    Dim col1 As Integer
    Dim DoDM As Integer
    
   
    Pas = 0.01
    li = 66
    li1 = 61
    col = 3
    col1 = 3
    DoDM = Sheets("Accueil").Range("g41")
    
    'Capa = Sheets("Outil de calcul").Range("C61").Value
    For x = 0.1 To 1 Step 0.01  'Pas
        While (Sheets("Outil de calcul").Range("d60") <= DoDM) Then   ' Condition sur la valeur de DoD moyen souhaité par rapport à la Capa de base
            Sheets("Outil de calcul").Select
            Sheets("Outil de calcul").Range("C66").Value = Cells(li1, col1) * (x)  ' Multiplie la cellule C61 (capa bat centralisée par le pas
        
        
        End While
    
        End If

        
        
Next
    Sheets("Outil de calcul").Select
    Range("C62").Select
    ThisWorkbook.RefreshAll
    ThisWorkbook.RefreshAll
    ThisWorkbook.RefreshAll
    Sheets("Outil de calcul").Select
End Sub

cependant mon end while ne fonctionne pas

Citation:

message d'erreur

Comment faire ?

Merci d'avance

11/02/2019, 13h33
Algoplus

Bonjour à tous,

pas forcément tout compris ce qu'il y a en D60, mais quelque soit la boucle, le test suivant sera toujours vrai puisque D60 et DoDm ne sont pas modifiés et donc les instructions suivantes sont exécutées.(avec boucle infinie si utilisation de while..)

Code:

If (Sheets("Outil de calcul").Range("d60") <> DoDM) Then

le test devrait porter sur la valeur modifiée donc D66 (ou une variable qui sera écrite en D66 lorsque sa valeur sera correcte)

A+

edit : voir l'aide de While pour la syntaxe
11/02/2019, 14h04
ID_Fabio

3 pièce(s) jointe(s)

Algoplus, Merci pour ta réponse,

Mon vrai problème c'est que ma boucle continue de tourner, même en ayant atteint mon but.

Pièce jointe 449059 Pièce jointe 449060

La celulle c61 est celle qui est multiplié par un coéfficient.
Quand je multiplie cette cellule par un coéff ,

Citation:

qui donne la valeur de la cellule c66

la valeur de la cellule d65 varie également.

Dans la feuille "Accueil" je souhaite un DoDM de 70% ici.

Je veux que ma cellule c66 soit multiplier par un coeff jusqu'à ce que la valeur de la cellule d65

Citation:

qui varie en fonction de la valeur de c66

soit égale à la valeur du DoDM de 70% fixée dans la feuille (Accueil)

Désolé si je ne suis pas assez claire.
11/02/2019, 14h48
Algoplus
Citation:

Mon vrai problème c'est que ma boucle continue de tourner, même en ayant atteint mon but.

Ci dessous le schéma du code tel qu'il est rélisé
Code:

1 2 3 4 Pour chaque itération du coefficient si D60 <> G41 C66=C61*coeff fin itération
D60 et G41 ne sont pas modifiés , le test sera toujours vrai; on exécutera toujours l'instruction suivante sans pouvoir sortir de la boucle.

la condition d'arrêt devrait porter sur la valeur de C66:

Citation:

Mon but est de multiplier la valeur dans "Outil de calcul" par un coefficient jusqu’à atteindre ma valeur souhaité ( la variable de la feuille "Accueil")

ben oui ..... mais ...
apparemment il y a plusieurs valeurs dans "Outil de calcul" .Quelle est l'adresse de la cellule qu'il faut multiplier
même chose pour la cellule de la feuille "Accueil", quelle son adresse

Pour l'exemple j’appellerai la cellule de "Outil de calcul" : OC et la cellule de "Accueil" : A. Ca pourrait donner quelque chose comme:
Code:

1 2 3 4 5 6 7 8 For x = 0.1 To 1 Step 0.01 'Pas si OC * x <= A then MaVal= OC* x else exit for end if Next OC= MaVal
A+
11/02/2019, 15h03
ID_Fabio
Algoplus
Qu'entend tu par

Citation:

Quelle est l'adresse de la cellule qu'il faut multiplier
même chose pour la cellule de la feuille "Accueil", quelle est son adresse

?

En effet oui , le résonnement est juste !!!!
Code:

1 2 3 4 5 6 Pour chaque itération du coefficient si D60 <> G41 C66=C61*coeff fin itération
la valeur cellule D65 va varier en fonction de la valeur de la cellule D66 et non l'inverse.

Le but c'est d'atteindre la valeur fixée dans la cellule G41 de la feuille Accueil (un pourcentage) qui sera égale à la valeur de la cellule D65 (valeur qui dépende de la valeur de la cellule D66) qui sera obtenu grâce a cette itération.

Sauf que dans mon cas l'itération ne s’arrête pas quand j'ai atteint mon objectif. Soit D65 de la feuille Outil de calcul = G41 de la feuille Accueil.

Je suis désolé, je suis une quiche en VBA et je débute

J'ai finalement trouvé la solution. Encore merci à toutes et à tous

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Boucles()

    Dim Capa As Integer
    Dim Pas As Double
    Dim x As Double
    Dim li As Integer
    Dim li1 As Integer
    Dim col As Integer
    Dim col1 As Integer
    Dim DoDM As Double
    
   
    Pas = 0.01
    li = 66
    li1 = 61
    col = 3
    col1 = 3
    DoDM = Sheets("Accueil").Range("g41")
    
    
    Sheets("Outil de calcul").Range("C66").Value = 1

    For x = 0.1 To 1 Step 0.01  'Pas
        If (Sheets("Outil de calcul").Range("d65") >= DoDM) Then   ' Condition sur la valeur de DoD moyen souhaité par rapport à la Capa de base
            'Sheets("Outil de calcul").Select
            Sheets("Outil de calcul").Range("C66").Value = Sheets("Outil de calcul").Range("C61").Value * x   ' Multiplie la cellule C61 (capa bat centralisée par le pas
        Else
        
    End If
    
    
        
        
Next
    Sheets("Outil de calcul").Select
    'Range("C62").Select
    ThisWorkbook.RefreshAll
    ThisWorkbook.RefreshAll
    ThisWorkbook.RefreshAll

End Sub