Discussion :

[karmas93120]

Bonjour,

J'ai créé cette macro.

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
Sub Macro1()
'
' Macro1 Macro
'
I = 1
 
x = (I + 6)
 
 
While Cells(I, "a") <> ""
If Cells(I, "a") = "départ" Then
Cells(I, "c") = Cells(x, "b"): bloc = Cells(I, "c")
 
 
End If
 
If Cells(I, "c") = "" Then Cells(I, "c") = bloc
 
I = I + 1
Wend
 
'
End Sub

Tout fonctionne sauf arrivé à la ligne 25

Code :

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

1
2
3
4
5
If Cells(I, "a") = "départ" Then
Cells(I, "c") = Cells(x, "b"): bloc = Cells(I, "c")
 
IF cells(25,"a") ="départ" then
cells(25, "c") = cells(7, "b"): bloc = cells(25,"c")

Je ne comprends pas pourquoi x = 7 car pour moi x= 25 + 6 = 31
Quelqu'un pourrait m'aider?

Merci d'avance.
david

[Marc-L]

Ligne 25 ?‼ point III-E des règles du forum …

[SfJ5Rpw8]

Bonjour,

....
Je ne comprends pas pourquoi x = 7 car pour moi x= 25 + 6 = 31
...

il suffit de lire ton code la valeur de x est définit par ces lignes :

Code :

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

1
2
3
I = 1
 
x = (I + 6)

soit x = 1 + 6 (étant donné que I = 1 )

l'affectation de X ne doit pas être bien placée ...

[karmas93120]

Bonjour,




il suffit de lire ton code la valeur de x est définit par ces lignes :

Code :

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

1
2
3
I = 1
 
x = (I + 6)

soit x = 1 + 6 (étant donné que I = 1 )

l'affectation de X ne doit pas être bien placée ...

Bonjour,
J'ai bien vu que x n'était pas bien placé mais ou le mettre pour que x avance autant que i.

c'est bon j'ai réussi ^^

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
Sub Macro1()
'
' Macro1 Macro
'
I = 1
x = (I + 5)
 
 
 
While Cells(I, "a") <> ""
If Cells(I, "a") = "départ" Then
 
Cells(I, "c") = Cells(x, "b"): bloc = Cells(I, "c")
 
 
End If
 
If Cells(I, "c") = "" Then Cells(I, "c") = bloc
 
I = I + 1
x = I + 5
 
Wend
 
'
End Sub

[/CODE][/CODE][/CODE][/CODE]