Premiere Macro et besoin d'une info.

a3lain

XLDnaute Junior
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é

XLDnaute Barbatruc
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
   
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
 
A

a3lain

Guest
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

XLDnaute Barbatruc
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('D14:D70')
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
 

Discussions similaires

Réponses
12
Affichages
326

Statistiques des forums

Discussions
312 836
Messages
2 092 656
Membres
105 481
dernier inscrit
JBBR974