Discussion :

[birghit]

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 :

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

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

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

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

Code :

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

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

[ARTURO83]

Bonjour,

Essayez ceci:

Code :

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

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

Cdlt

[Menhir]

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.

[pijaku]

Bonjour,

Peut-être :

Code :

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

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

[birghit]

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

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 €

[pijaku]

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 :

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

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