Discussion :

[will Igetit]

bonjour, je dois corriger un code de mon collegue ,qu 'il a plante en voulant le modifier.
le comble c'est que je l'ai ecrit et ne m'en souviens plus.
il reste une petite erreur autour de cette boucle if, mais je ne souviens plus de la synthaxe, quelqu'un pourrait- me donner un coup de main que je passe a autre de chose.
merci d'avance ;-)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i As Integer
Dim j As Integer
 
For i = 1 To DerCel
 
If Cells(i, 5).Value < 0 Then
For j = 1 To Rows(i).Columns(j).Interior.Color = RGB(250, 0, 0)
ElseIf Cells(i, 6).Value < 0 Then
For j = 1 To Rows(i).Columns(j).Interior.Color = RGB(200, 100, 100)
ElseIf Cells(i, 7).Value < 0 Then
For j = 1 To Rows(i).Columns(j).Interior.Color = RGB(0, 250, 250)
End If
 
Next i

[le_dilem]

Next j ?? non

[ouskel'n'or]

Ton code est incompréhensible si tu ne nous dis pas ce qu'il est censé faire...
Peux-tu préciser ce qu'il devrait réaliser ?

[Godzestla]

Bonjour,

il reste une petite erreur autour de cette boucle if

Ca existe une boucle if ? On me l'avait bien caché.

Autrechose ,
merci de m'expliquer ce qu'est censé faire ce code, car cela me parait complètement dément ce = dans le to d'une boucle sur un integer.
Doit manquer quelquechose quelquepart.

Code :

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

1
2
 
For j = 1 To Rows(i).Columns(j).Interior.Color = RGB(250, 0, 0)

[will Igetit]

alors voila le code a labase que jai fini par reconstituer. ce que mon collegue desirait faire c'eteit suprimer les ligne sans couleur

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
33
34
35
36
37
Private Sub CommandButton1_Click()
 
Rows(1).Delete
Dim DerCel As Long
DerCel = Worksheets("Sheet1").Range("B65536").End(xlUp).Row
 
 
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
 
For i = 1 To DerCel
 
If Cells(i, 5).Value < 0 Then
For j = 1 To 9
Cells(i, j).Interior.Color = RGB(250, 0, 0)
Next j
ElseIf Cells(i, 6).Value < 0 Then
For k = 1 To 9
Rows(i).Columns(k).Interior.Color = RGB(200, 100, 100)
Next k
ElseIf Cells(i, 7).Value < 0 Then
For l = 1 To 9
Rows(i).Columns(l).Interior.Color = RGB(0, 250, 250)
Next l
ElseIf Cells(i, 8).Value < 0 Then
For l = 1 To 9
Rows(i).Columns(l).Interior.Color = RGB(120, 120, 120)
Next l
 
End If
 
Next i
 
 
End Sub

ce quil a fait c est rows(i).delete ce qui ne marche pas mais je ne trouve pas de solution

[le_dilem]

il manquait les Next

[will Igetit]

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
33
34
35
36
37
38
39
40
Private Sub CommandButton1_Click()
 
Rows(1).Delete
Dim DerCel As Long
DerCel = Worksheets("Sheet1").Range("B65536").End(xlUp).Row
 
 
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
 
For i = 1 To DerCel
 
If Cells(i, 5).Value < 0 Then
For j = 1 To 9
Cells(i, j).Interior.Color = RGB(250, 0, 0)
Next j
ElseIf Cells(i, 6).Value < 0 Then
For k = 1 To 9
Rows(i).Columns(k).Interior.Color = RGB(200, 100, 100)
Next k
ElseIf Cells(i, 7).Value < 0 Then
For l = 1 To 9
Rows(i).Columns(l).Interior.Color = RGB(0, 250, 250)
Next l
ElseIf Cells(i, 8).Value < 0 Then
For l = 1 To 9
Rows(i).Columns(l).Interior.Color = RGB(120, 120, 120)
Next l
 
 
Else:
 
End If
 
Next i
 
 
End Sub

ca ne tourne toujours pas bien.. en fait il faudrit que je puis sauvegarder les lignes nin colorier quelquepart et que je les supprime toutes d'un coup hors de la boucle... une idee?

[Godzestla]

il manquait les Next

et une clause TO valide pour le FOR.

[Godzestla]

alors voila le code a labase que jai fini par reconstituer. ce que mon collegue desirait faire c'eteit suprimer les ligne sans couleur

Il n'y a rien dans ton code qui supprime des lignes, ni d'ailleurs de test sur la couleur. Seule la valeur de la cellule est testée.

[will Igetit]

ja i vu jai editer le message

[ouskel'n'or]

Je réponds à ça

ce quil a fait c est rows(i).delete ce qui ne marche pas mais je ne trouve pas de solution

La syntaxe est

Code :

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

rows(i).EntireRow.delete

Bonne journée

[will Igetit]

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
33
34
35
36
37
38
Private Sub CommandButton1_Click()
 
Rows(1).Delete
Dim DerCel As Long
DerCel = Worksheets("Sheet1").Range("B65536").End(xlUp).Row
Rows(DerCel + 1).Interior.Color = RGB(0, 0, 0)
 
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
 
For i = 1 To DerCel
 
If Cells(i, 5).Value < 0 Then
For j = 1 To 9
Cells(i, j).Interior.Color = RGB(250, 0, 0)
Next j
ElseIf Cells(i, 6).Value < 0 Then
For k = 1 To 9
Rows(i).Columns(k).Interior.Color = RGB(200, 100, 100)
Next k
ElseIf Cells(i, 7).Value < 0 Then
For l = 1 To 9
Rows(i).Columns(l).Interior.Color = RGB(0, 250, 250)
Next l
ElseIf Cells(i, 8).Value < 0 Then
For l = 1 To 9
Rows(i).Columns(l).Interior.Color = RGB(120, 120, 120)
Next l
ElseIf Rows(i).Interior.Color = RGB(0, 0, 0) Then Exit Sub
Else: Rows(i).EntireRow.Delete
i = i - 1
DerCel = DerCel - 1
 
End If
 
Next i