Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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 :



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('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
 

Discussions similaires

Réponses
12
Affichages
452
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…