Aide pour macro VBA : boucles

Version imprimable

01/08/2017, 13h39
Romhain

1 pièce(s) jointe(s)

Aide pour macro VBA : boucles

Bonjour à tous

Je souhaite obtenir de l'aide concernant une macro avec deux boucles.
Je vais vous joindre un fichier excel pour vous aider à bien comprendre car cela n'est pas facile d'expliquer ce que je souhaiterais.

Sur mon classeur, j'ai deux onglets : un nommé Feuille_entree et l'autre Feuil1.

Onglet Feuille_entree :
J'ai un tableau dont les données sont saisies (la dimension n'est pas connue) : temps en colonne A et volume en colonne B.

Onglet Feuil1 :
J'ai aussi un tableau avec des valeurs intermédiaires qui se remplit avec une macro.

Le principe est le suivant :

ligne 3 feuille_entree : temps 0 s et volume 35 m3
ligne 4 feuille_entree : temps 20 s et volume 32 m3

Je veux savoir ce qui se passe entre ces 2 points. Et une fois que c'est terminé, on passe à la ligne suivante : 40 s et 32 m3.

Le fichier joint est explicité avec ces 2 cas.
J'ai aussi fait une partie de la macro : je pense que mon code n'est pas très développé et pas du tout propre mais je compte sur votre aide et votre indulgence pour m'aider un peu. J'avais pensé à deux boucles for peut-être imbriquées...

Pièce jointe 299025

Merci
Cordialement,

Romhain

Bonjour,

Pour des raisons de sécurité, la plupart des membres de ce forum n'ouvrent pas les pièces jointes.
Si vous voulez obtenir de l'aide il est préférable de fournir une description des traitements que vous souhaitez appliquer à vos données et les bouts de code que vous utilisez actuellement.

D'après ce que j'ai compris de votre problème, il est probable que vous soyez amenés à utiliser une structure du type :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Public Sub TraiterLesDonnees() Dim LignE As Long, LignF As Long, t0 As Double, t1 As Double, tF As Double With ThisWorkbook.Sheets("Feuille_entree") LignE = 4 LignF = 3 t0 = .Cells(LignE - 1, 1).Value t1 = .Cells(LignE, 1).Value Do While t1 <> 0 With ThisWorkbook.Sheets("Feuil1") tF = .Cells(LignF, 1).Value Do While tF < t1 And tF <> 0 <traiter_la_donnée_intermédiaire> LignF = LignF + 1 tF = .Cells(LignF, 1).Value Loop LignF = LignF - 1 End With LignE = LignE + 1 t0 = t1 t1 = .Cells(LignE, 1).Value Loop End With End Sub
Il ne s'agit là que d'une proposition (très préliminaire). Le code qu'il vous faudra effectivement utiliser dépendra de l'organisation de vos données et des traitements que vous souhaitez mettre en œuvre.

Cordialement,

Merci de ta réponse.

Voilà le bout 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
40
41
42
43
44
45
46
47
Sub Module1()
 
Dim Dlig2 As Long
Dim nb_intervalles, dv, dt, i, l As Long
 
With Sheets("Feuille_entree")
    Dlig2 = .Range("R" & Rows.Count).End(xlUp).Row
End With
 
With Sheets("Feuil1")
    Dlig = .Range("A" & Rows.Count).End(xlUp).Row
End With
 
dt = (100 * Sheets("Feuil1").Range("AN3").Value) / 100
 
For l = 3 To Dlig2
 
If dt <> 0 Then
nb_intervalles = ((Sheets("Feuille_entree").Range("A" & l + 1).Value) - (Sheets("Feuille_entree").Range("A" & l).Value)) / dt
End If
 
If nb_intervalles <> 0 Then
dv = ((Sheets("Feuille_entree").Range("B" & l + 1).Value) - (Sheets("Feuille_entree").Range("B" & l).Value)) / nb_intervalles
End If
 
For i = Dlig + 1 To nb_intervalles + 3 'pour commencer à la bonne ligne
 
'volL(l) = volL(l+1) : constant
If (Sheets("Feuille_entree").Range("B" & l).Value) = (Sheets("Feuille_entree").Range("B" & l + 1).Value) Then
    Sheets("Feuil1").Range("B" & i).Value = Sheets("Feuil1").Range("B" & i - 1).Value
End If
 
'volL(l)> volL(l+1) : baisse
If ((Sheets("Feuille_entree").Range("B" & l).Value) > (Sheets("Feuille_entree").Range("B" & l + 1).Value)) Then
    Sheets("Feuil1").Range("B" & i).FormulaLocal = "=B" & (i - 1) & "-" & dv & ")"
End If
 
'volL(l)< volL(l+1) : hausse
If ((Sheets("Feuille_entree").Range("B" & l).Value) < (Sheets("Feuille_entree").Range("B" & l + 1).Value)) Then
    Sheets("Feuil1").Range("B" & i).FormulaLocal = "=B" & (i - 1) & "+" & dv & ")"
End If
 
'temps
Sheets("Feuil1").Range("A" & i).FormulaLocal = "=A" & (i - 1) & "+" & dt & ")"
 
' Comment passer à la ligne suivante ?
End Sub

Merci d'avance.
Romhain

01/08/2017, 14h20
Ben_L

Pas d'utilisation des balises code ; code non indenté.
Je ne m'ennuie pas assez pour prendre le temps de déchiffrer tout cela alors que vous ne prenez pas le temps de mettre en forme vos messages :mrgreen:

Avis aux courageux !

Voilà pour le 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
 
Sub Module1()
     Dim Dlig2 As Long
     Dim nb_intervalles, dv, dt, i, l As Long
     With Sheets("Feuille_entree")
          Dlig2 = .Range("R" & Rows.Count).End(xlUp).Row
     End With
          With Sheets("Feuil1")
               Dlig = .Range("A" & Rows.Count).End(xlUp).Row
          End With
          dt = (100 * Sheets("Feuil1").Range("AN3").Value) / 100
          For l = 3 To Dlig2
               If dt <> 0 Then
                      nb_intervalles = ((Sheets("Feuille_entree").Range("A" & l + 1).Value) - (Sheets("Feuille_entree").Range("A" & l).Value)) / dt
               End If
               If nb_intervalles <> 0 Then
                      dv = ((Sheets("Feuille_entree").Range("B" & l + 1).Value) - (Sheets("Feuille_entree").Range("B" & l).Value)) / nb_intervalles
               End If
          For i = Dlig + 1 To nb_intervalles + 3 'pour commencer à la bonne ligne
          'volL(l) = volL(l+1) : constant
               If (Sheets("Feuille_entree").Range("B" & l).Value) = (Sheets("Feuille_entree").Range("B" & l + 1).Value) Then
                      Sheets("Feuil1").Range("B" & i).Value = Sheets("Feuil1").Range("B" & i - 1).Value
               End If
          'volL(l)> volL(l+1) : baisse
               If ((Sheets("Feuille_entree").Range("B" & l).Value) > (Sheets("Feuille_entree").Range("B" & l + 1).Value)) Then
                      Sheets("Feuil1").Range("B" & i).FormulaLocal = "=B" & (i - 1) & "-" & dv & ""
               End If
          'volL(l)< volL(l+1) : hausse
               If ((Sheets("Feuille_entree").Range("B" & l).Value) < (Sheets("Feuille_entree").Range("B" & l + 1).Value)) Then
                      Sheets("Feuil1").Range("B" & i).FormulaLocal = "=B" & (i - 1) & "+" & dv & ""
               End If  
          'temps
          Sheets("Feuil1").Range("A" & i).FormulaLocal = "=A" & (i - 1) & "+" & dt & ""
 
Next l
Next i
 
End Sub

Mon problème est que je voudrais qu'Excel lise la ligne 4 en Feuille_entree, exécute les formules jusqu'à ce qu'à nb_intervalles et les note en Feuil1 puis recommence à la ligne 5 etc
Merci d'avance de l'aide que vous pourrez m'apporter.

Vous pourriez envisager quelque chose dans ce style :

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 Module1()
    Dim Dlig As Long, Dlig2 As Long, v0 As Double, v1 As Double, t0 As Double, t1 As Double
    Dim nb_intervalles As Long, dv As Double, dt As Double, i As Long, l As Long
    dt = (100 * Sheets("Feuil1").Range("AN3").Value) / 100
    Dlig = 3  'cela suppose que la première ligne intéressante dans 'Feuil1' est la 3ème
    With Sheets("Feuille_entree")
        Dlig2 = .Range("R" & Rows.Count).End(xlUp).Row
        For l = 3 To Dlig2 - 1
            t0 = .Range("A" & l).Value
            t1 = .Range("A" & l + 1).Value
            If dt <> 0 Then
                nb_intervalles = (t1 - t0) / dt
            Else
                nb_intervalles = 0
            End If
            v0 = .Range("B" & l).Value
            v1 = .Range("B" & l + 1).Value
            If nb_intervalles <> 0 Then _
                dv = (v1 - v0) / nb_intervalles
            For i = 1 To nb_intervalles
                'volL(l) = volL(l+1) : constant
                If v0 = v1 Then _
                    Sheets("Feuil1").Range("B" & Dlig + i).Value = Sheets("Feuil1").Range("B" & Dlig + i - 1).Value
                'volL(l)> volL(l+1) : baisse
                If v0 > v1 Then _
                    Sheets("Feuil1").Range("B" & Dlig + i).FormulaLocal = "=B" & (Dlig + i - 1) & "-" & dv
                'volL(l)< volL(l+1) : hausse
                If v0 < v1 Then _
                    Sheets("Feuil1").Range("B" & Dlig + i).FormulaLocal = "=B" & (Dlig + i - 1) & "+" & dv
                End If
                'temps
                Sheets("Feuil1").Range("A" & Dlig + i).FormulaLocal = "=A" & (Dlig + i - 1) & "+" & dt
                Dlig = Dlig + 1
            Next i
        Next l
    End With
End Sub

Cependant, ce code ne peut être utilisé en l'état. Seul vous connaissez les contraintes applicables à vos données et il est vraisemblable qu'une adaptation soit nécessaire.

02/08/2017, 09h43
Romhain

Merci de votre aide très précieuse ; je commence à voir le bout du tunnel !!!

Effectivement j'ai du adapter quelques petites choses mais j'ai un problème qui persiste.
Je voudrais en effet qu'à la fin de la première exécution (par exemple à la ligne 6), il continue à remplir les données à partir de la ligne 7 en feuille 1.
Or, il revient à chaque exécution au début du tableau et efface donc les données des étapes précédentes.

Pouvez-vous m'aider à ajuster le dernier code que j'ai ajouté?
Merci

Romhain
02/08/2017, 11h24
Romhain

J'ai réussi à faire ce que je voulais : commencer le tableau de données à partir de la dernière ligne remplie en Feuil1 après avoir lu les données d'entrée en Feuille_entree.

Dernier problème : le calcul du nb_intervalles donne : (temps en i+1 - temps en i)/dt.
Mais il peut arriver que temps en i = temps en i+1 et que volume en i = volume en i+1 (cas baisse).

Je voudrais que le nb_intervalles ne prenne pas en compte ces lignes là.

Merci
02/08/2017, 11h40
Ben_L

Le cas Tps(i)=Tps(i+1) est déjà pris en compte dans le code que j'ai proposé dans le post #6.

Pour le cas Vol(i)=Vol(i+1), il suffit a priori de rajouter un test similaire, mais sur dv, du type:

Code:

If dv = 0 Then nb_intervalles = 0
02/08/2017, 13h28
Romhain

Comptage de lignes

En fait le nb_intervalles est calculé sur les données saisies en Feuille_entree.
Exemple :
temps (s) volume (m3)
5 35
20 33
nb_intervalles = (20 - 5)/0.25 = 60 lignes nécessaires en Feuil1 pour aller de 5 à 20s.

Dans le cas de la baisse : volL(i) > volL(i+1), je peux avoir des cas où dans le remplissage automatique j'ai temps(i) = temps(i+1) et volL(i) = volL(i+1) en Feuil1. Je fais en effet une incrémentation sur le volume avec une formule qui dépend de booléens :

Exemple :

9,75 s 34.000 m3
10 s 33,975 m3
10 s 33,975 m3
10 s 33,975 m3
10 s 33,975 m3
10 s 33,975 m3
10.25 s 33.950 m3

Je voudrais juste que si cette condition a lieu, le nb_intervalles se réajuste car quand j'exécute actuellement, il prend en compte 4 lignes en trop alors que je veux uniquement garder la dernière.
Excel s'arrête au bout de la 60ème ligne et du coup, il s'arrêt avant le temps et le volume saisi.

Merci de ton aide bienveillante et très précieuse.

Romhain