VBA - Macro - Colorer cellule SI

Modeste

XLDnaute Barbatruc

• 2 Décembre 2014

• #2

Re : VBA - Macro - Colorer cellule SI

Bonsoir Krine35,

J'ai deux questions:
- Pourquoi ne pas utiliser les "Mises en Forme Conditionnelles" (surtout si tu dis avoir des lacunes en VBA) ?
- Tu veux des couleurs différentes, en fonction du terme qui apparaît ... ou une seule couleur (les colonnes concernées étant les seuls éléments qui varient) ?

 

Vote positif 0 Vote négatif

K

Krine35

XLDnaute Nouveau

• 2 Décembre 2014

• #3

Re : VBA - Macro - Colorer cellule SI

Bonsoir Modeste,

Je souhaite utiliser VBA pour pouvoir m'améliorer dans ce domaine et découvrir d'avantage cet outil.

Je souhaite obtenir la même couleur, verte de préférence. 🙂

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 2 Décembre 2014

• #4

Re : VBA - Macro - Colorer cellule SI

Krine35 à dit:

Je souhaite utiliser VBA pour pouvoir m'améliorer dans ce domaine et découvrir d'avantage cet outil.

Cliquez pour agrandir...

Ma foi, personne ne te jettera la pierre ... garde tout de même en tête que tu ne gagneras pas grand chose à programmer ... quelque chose qui existe déjà 😀

Voici une (parmi sans doute quelques autres) façon de faire:

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Select Case Target
    Case "mot1"
        Cells(Target.Row, 3).Resize(1, 2).Interior.ColorIndex = 4
    Case "mot2"
        Cells(Target.Row, 5).Resize(1, 2).Interior.ColorIndex = 4
    Case "mot3"
        Cells(Target.Row, 3).Interior.ColorIndex = 4
        Cells(Target.Row, 7).Interior.ColorIndex = 4
    Case "mot4"
        Cells(Target.Row, 4).Resize(1, 3).Interior.ColorIndex = 4
    Case Else
        Cells(Target.Row, 1).Resize(1, 7).Interior.ColorIndex = xlNone
End Select
End Sub

 

Vote positif 0 Vote négatif

K

Krine35

XLDnaute Nouveau

• 2 Décembre 2014

• #5

Re : VBA - Macro - Colorer cellule SI

Merci beaucoup. 🙂

Le programme marche. Mais par contre, si l'utilisateur souhaite changer la donnée et mettre "mot1" à la place de "mot2" par exemple, les cases vertes s'accumulent et ne correspondent plus.

Est-il possible de solutionner ce problème?

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 2 Décembre 2014

• #6

Re : VBA - Macro - Colorer cellule SI

Re,

Je te dirais bien que c'était pour voir si tu étais attentive ... mais j'ai l'impression que personne ne me croira 🙁

Copie cette ligne Cells(Target.Row, 1).Resize(1, 7).Interior.ColorIndex = xlNone juste avant le Select Case

Supprime ensuite cette même ligne en fin de code, ainsi que le Case Else de la ligne qui la précède. En fait, comme tu as une validation, on ne risque pas de pouvoir encoder autre chose que tes "mots"

Teste et ... redis-nous 🙂

 

Vote positif 0 Vote négatif

K

Krine35

XLDnaute Nouveau

• 3 Décembre 2014

• #7

Re : VBA - Macro - Colorer cellule SI

Oui ça marche parfaitement bien. Merci beaucoup.

Si j'ai d'autres questions, je te recontacterais. 🙂

 

Vote positif 0 Vote négatif

K

Krine35

XLDnaute Nouveau

• 4 Décembre 2014

• #8

Re : VBA - Macro - Colorer cellule SI

Bonjour Modeste,

Je vais encore t'embêter un peu. Si à la place de "mot1" je souhaite mettre "mot 1" avec un espace. Le code change-t-il?

Merci. 🙂

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 4 Décembre 2014

• #9

Re : VBA - Macro - Colorer cellule SI

Bonjour Krine35, le forum,

Krine35 à dit:

Si à la place de "mot1" je souhaite mettre "mot 1" avec un espace. Le code change-t-il?

Cliquez pour agrandir...

Ben oui, quand même: il faut au moins remplacer "mot1" par "mot 1" (dans le code proposé au message #4, là où le texte apparaît en rouge et entre guillemets) ... mais ça je suppose que tu l'auras deviné ... donc, peut-être que ta question est différente et que je ne l'ai pas comprise 😕

 

Vote positif 0 Vote négatif