Discussion :

[jbggg]

bonjour à tous,

je rencontre un petit problème pour une de mes macros.
voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub deltaz()
    Dim point As Integer
        point = Range("C11").Value
    Dim i As Integer
    Dim x As Integer
        x = 19
    Dim y As Integer
        y = 17
 
    Dim p As Single
        p = WorksheetFunction.pi 'permet d'utiliser le nombre pi
 
    For i = 1 To point + 2
        Cells(x, 11) = (Cells(x, 7) / Tan(Cells(x, 6) * (p / 200))) + Cells(y, 9) - Cells(y, 10)
        x = x + 1
        y = y + 2
 
    Next i
 
End Sub

le problème est que :

Code :

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

1
2
3
4
5
Cells(19,11) = (Cells(19, 7) / Tan(Cells(19, 6) * (p / 200))) + Cells(17, 9) - Cells(17, 10)
 
Cells(20,11) = (Cells(20, 7) / Tan(Cells(20, 6) * (p / 200))) + Cells(19, 9) - Cells(19, 10)
 
Cells(21,11) = (Cells(21, 7) / Tan(Cells(21, 6) * (p / 200))) + Cells(19, 9) - Cells(19, 10)

pour les cellules (20,11), et (21,11) je dois utiliser la même valeur de cellule.

[Invité]

Bonjour,

Je suppose que la règle n'est pas valable uniquement pour les lignes 20 et 21 mais qu'elle se répète.

Autrement dit par série de 3 :

-1er passage : x = x + 1

y = y + 2

-2ème passage : idem

-3ème passage : x = x + 1 (uniquement)

Si c'est le cas on peut envisager :

Code :

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

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
Sub deltaz()
 
    Dim point As Integer
        point = Range("C11").Value
    Dim i As Integer
    Dim x As Integer
        x = 19
    Dim y As Integer
        y = 17
    Dim cpt as Byte
        cpt = 0
 
 
 
    Dim p As Single
        p = WorksheetFunction.pi 'permet d'utiliser le nombre pi
 
    For i = 1 To point + 2
        cpt = cpt + 1
          if cpt < 3
          x = x + 1
          y = y + 2
          else
          cpt = 0
          x = x + 1
          end if
 
   Cells(x, 11) = (Cells(x, 7) / Tan(Cells(x, 6) * (p / 200))) + Cells(y, 9) - Cells(y, 10)
 
    Next i
 
End Sub

A tester en pas-à-pas pour vérifier que l'incrémentation et la réinitialisation de la variable "cpt" est bien placée.