[VBA/Excel] Mise en forme selon valeur Résolu

Question

Bonjour, je suis débutant en VBA sous EXCEL et j'aimerais créer une macro qui effectue la manipulation suivante : 
Mettre en mise en forme spécifique à une rangée de cellule selon la valeur d'une cellule donnée. Concrètement : si la valeur en D2 est égale à x, alors faire telle mise en forme sur les cellules A2:C2, et ainsi de suite jusqu'à la ligne 30 par exemple.

Je veux que ça soit via une macro VBA afin d'avoir un bouton pour faire la mise en forme, je ne veux pas que ça se fasse automatiquement et en permanence avec l'outil "Mise en forme conditionnelle"

J'espère avoir été clair et je vous remercie d'avance.


Configuration: Windows XP / Firefox 3.6.12

michel_m · Answer

Bonjour, 

Quel format désires tu ?
par exemple cellules teintée en rouge

Option Explicit
Sub donner_format()
Dim lig As Byte
Range("A2:C30").Interior.ColorIndex = xlNone
For lig = 2 To 30
If UCase(Cells(lig, 4)) = "X" Then Range(Cells(lig, 1), Cells(lig, 3)).Interior.ColorIndex = 3
Next
End Sub 
Michel 
Vous programmez en VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...(P. Fauconnier/dvp)

fisico_6403 · Answer

Pour le format c'est pas vraiment un problème, ça je sais à peut près faire (merci l'enregistreur de macro !)

Mais pour l'exemple on a qu'a dire :
Si valeur en Dn = A -> An:Cn sur fond rouge
Si valeur en Dn = B -> An:Cn sur fond bleu
Si autre valeur en Dn -> An:Cn normal

fisico_6403 · Answer

Ça marche parfaitement, c'est exactement ce que je voulais.

Merci beaucoup :)

[VBA/Excel] Mise en forme selon valeur

3 réponses

Discussions similaires

Newsletters