problème de format

Bonjour à tous,

Je suis un débutant de VBA et j'ai un problème de format, je voulais changer les couleurs de cellules avec des conditions, mais il y a une erruer d'exécution 13 qui sort :

a = Cells(19, i).Value
b = Cells(19, j).Value

PS: les valeurs de cellules sont en format pourcentage.

merci d'avance vos aides

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test() Dim i As Integer, j As Integer Dim a As Double, b As Double Sheets("menu").Select For i = 4 To 15 j = 20 a = Cells(19, i).Value b = Cells(19, j).Value If a > b * 1.05 Then Cells(19, i).Interior.ColorIndex = 3 If a < b * 0.95 Then Cells(19, i).Interior.ColorIndex = 35 j = j + 1 Next i Range("a1").Select End Sub

---

Bonjour,

Déjà je ne comprend pas :

Code:

---

1 2 3

j = 20 ' ...... j = j + 1

---

Dans la même boucle. j reviendra donc toujours à 20 au début de la boucle... Et ce, même si tu l'incrémentes juste avant la fin de celle-ci.

merci de ta réponse, en fait, je voulais comparer les 24 valeurs en format pourcentage, les 24 valeurs sont en même ligne, mais pas en même colonne, tel que: Cells(19, 4) VS Cells(19, 20).......Cells(19, 15) VS Cells(19, 31)

Eh bien déjà, tu devrais mettre

Code:

---

1 2	j = 20 For i = 4 To 15

---

Au lieu de

Code:

---

1 2	For i = 4 To 15 j = 20

---

Parce qu'en l'état, j sera tout le temps égal à 20 sinon.

le problème est qu'il y a tjs une erreur d'exécution 13 dans a = Cells(19, i).Value...

J'ai bien compris, mais tant qu'à faire si je vois une incohérence je la signale..

As tu essayé en remplacant Cells par Range?

Code:

---

1 2	a = Range("S" & i).Value b = Range("S" & j).Value

---

Bonjour,
Si j'ai bien compris, tu veux comparer :
la cellule Cells(19, 4) avec Cells(19, 20)
la cellule Cells(19, 5) avec Cells(19, 21)
la cellule Cells(19, 6) avec Cells(19, 22)
............ etc ................... jusqu'à
la cellule Cells(19, 15) avec Cells(19, 31)

C'est bien cela?

Si oui, en me basant sur ton code essaie ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test() Dim i As Integer, j As Integer Dim a As Double, b As Double Sheets("menu").Select For i = 4 To 15 j = i + 16 'j est toujours égal à i + 16 quel que soit i a = Cells(19, i).Value b = Cells(19, j).Value If a > b * 1.05 Then Cells(19, i).Interior.ColorIndex = 3 If a < b * 0.95 Then Cells(19, i).Interior.ColorIndex = 35 Next i Range("a1").Select End Sub

---

EDIT :
L'erreur 13 due au type de variable peut être contournée en remplaçant :

Code:

---

1 2	a = Cells(19, i).Value b = Cells(19, j).Value

---

par :

Code:

---

1 2	a = CDbl(Cells(19, i).Value) b = CDbl(Cells(19, j).Value)

---

OK, c'est réglé, merci à vous