Erreur de compilation instruction incorrecte

BONJOUR
J'ai tenté de construire une macro pour appliquer cette formule dans un tableau (avec l'aide du site)
cette formule est la suivante

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Essai() Dim x As Integer x = 1 For Each Cell In Range("E1:E95") 'pour une plage de E1 à E95 If Cell.Font.ColorIndex = 3 Then Cell(x, 2).Value = 0 Else Cell(x, 2).Value = Cell(x, 1).Value End If Next Cell End Sub

---

mais lorsque je souhaite appliquer cette macro j'ai un message

Citation:

---

erreur de compilation instruction incorrecte à l'intérieur d’une procédure

---

et dans le pavé blanc j'ai la phrase suivante

Code:

---

Sheets.Adds After:=Worksheets.count

---

qu'est-ce que cela veut dire?

c'est pour faire cela que je souhaite faire une macro

si la valeur de la cellule E1 est en rouge alors la valeur de la cellule F1 est égale à 0.00€,
si la valeur de la cellule E2 est en rouge alors la valeur de la cellule F2 est égale à 0.00€
et ainsi de suite jusqu'à la fin du tableau

Merci pour une réponse ;):roll::(

Bonjour,

Essayez ceci:

Code:

---

Sheets.Add After:=Sheets(Sheets.Count)

---

Cdlt

Les deux formulations Cell(x, 2).Value = 0 et Cell(x, 2).Value = Cell(x, 1).Value puisque Cell est une variable non indicée.
Mais il faudrait que tu expliques ce que tu veux faire exactement dans ces lignes de code pour te donner la syntaxe correcte.

Il y a un autre problème dans ton code (mais ce n'est pas ce qui cause le bug) : visiblement, la variable x sert à changer de ligne de destination mais elle n'est jamais incrémentée, ce qui veut dire qu'elle restera à 1 pendant toute l'exécution.

Bonjour,

Peut-être :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Essai() Dim x As Integer x = 1 For Each Cell In Range("E1:E95") 'pour une plage de E1 à E95 If Cell.Font.ColorIndex = 3 Then Cell.Offset(0, 1).Value = 0 Else Cell.Offset(0, 1).Value = Cell.Value End If Next Cell End Sub

---

Voilà ce que voudrai obtenir en macro
par exemple si 19.81 est débité alors je met la valeur de la cellule en rouge et au crédit je mets 0.00
et ainsi de suite ainsi pour toute somme débitée je met la valeur en rouge et au crédit je met 0.00 à chaque fois
j espère que c'est plus clair comme explication
;):roll:

Colonne D	Colonne E	Colonne F
POSTE	DEBIT	CREDIT
d	- 19.81 €	- 19.81 €
C	-46,39 €	-46,39 €
F	-700,00 €	-700,00 €
D	-4,99 €	-4,99 €
D	-2,09 €	-2,09 €
D	-33,87 €	-33,87 €
D	-9,65 €	-9,65 €

Bonjour,

Dans ton exemple, toute la colonne E étant remplie, cela doit vouloir dire que toute la colonne F doit être à 0.
C'est cela?
En clair, si une cellule de la colonne E est remplie, on met la cellule correspondante colonne F à 0.
Si une cellule de la colonne E est vide, on ne fait rien.

Ce code fait cela :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Essai() Dim C As Range   For Each C In Range("E1:E95") 'pour une plage de E1 à E95 If C.Value <> vbNullString Then 'Si la cellule en E n'est pas vide C.Font.ColorIndex = 3 'on met la couleur de police en rouge C.Offset(0, 1).Value = 0 'La cellule en F = 0 End If 'FIN SI Next C 'Boucle End Sub

---