Premiere Macro et besoin d'une info.

[a3lain]

Bonjour,
Je viens de me lancer en VBA et je découvre. J'ai fait une premiee macro qui change simplement une cellule en couleur rouge si son contenu est negatif et vert autrement. Cela semble fonctionner à peu près.
Par contre, depuis que j'ai fait cette macro, je ne peux plus faire de coller d'une cellule dans une autre . Quand je fais un copy, puis que je veux coller dans une autre cellule, je n'ai plus acces au paste. Il faut que je change de feuille pour y coller mon contenu.

Où est ce que je fais une erreur?
Merci
Alain

 

[Hervé]

Bonjour a3lain, le forum

Pourrais tu nous joindre le détail de ta macro, car je n'arrive pas à reproduire ce souci avec ce type de macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric(Target) Or Target.Count > 1 Then Exit Sub

Select Case Target
&nbsp; &nbsp; Case Is < 0: Target.Interior.ColorIndex = 3
&nbsp; &nbsp; Case Is > 0: Target.Interior.ColorIndex = 4
End Select

End Sub

Dans l'attente de te lire, bon après midi

salut

 

[CBernardT]

Bonjour Alain et Hervé,


mets ton code sur le fil !

Peut-être n'as-tu pas arrêté l'enregistrement automatique ?

Cordialement

Bernard

Message édité par: CBernardT, à: 31/08/2005 13:04

 

[a3lain]

En fait, cela semble à peu près fonctionner maintenant mais je sais pas pourquoi j'avais un problème :

Private Sub Worksheet_Change(ByVal Target As Range)
For Each c In Range('d14:d70')
If c <> '' Then
If c < 0 Then
c.Interior.ColorIndex = 3
Else: c.Interior.ColorIndex = 4
End If
Else: c.Interior.ColorIndex = 0
End If
Next c
End Sub

 

[CBernardT]

Re,

Le code est bon !

Le code identique un peu différent :

Private Sub Worksheet_Change(ByVal Target As Range)

For Each c In Range('D1470')
If c = '' Then
c.Interior.ColorIndex = xlnone
else
If c < 0 Then
c.Interior.ColorIndex = 3
Else
c.Interior.ColorIndex = 4
End If
End If
Next c
End Sub

Cordialement

Bernard