mise en forme conditionnelle

Re : mise en forme conditionnelle

Salut,

Il faut un début à tout !

Voici un bout de code qui devrait répondre à ta préoccupation :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Dim Couleur As Integer, I As Integer, R As Long
R = Target.Row
Select Case UCase(Target)
Case "A": Couleur = 4
Case "B": Couleur = 5
Case "C": Couleur = 6
Case "D": Couleur = 45
Case "E": Couleur = 3
Case "HS": Couleur = 2
Case Else: Couleur = 0
End Select
For I = 1 To 3
Cells(R, I).Interior.ColorIndex = Couleur
Next
End If
End Sub

Voici comment le mettre en place :
- Copie le code
- Ouvre Excel
- Tape Alt F11 pour activer VBA
- Double-clique sur Feuil1 si tes données sont là ou bien sur le nom de feuille qui va bien
- Colle le code dans la page blanche qui s'est ouverte
- Enfin, retourne vers Excel avec Alt F11 et saisis des données dans la colonne D.

La macro se met en route chaque fois qu'un changement intervient dans la colonne D.

A+
Horatio

Re : mise en forme conditionnelle

Salut à tous

Alors Horatio, on déserte ?

morodashi, si tu expliquais ton but, on pourrait te proposer d'autres solutions

A+

Re : mise en forme conditionnelle

Y'a rien d'extra ordinaire a dire.
j'ai des lignes de saisies et en bout j'attribut un code (A, B, C, D, E et HS)
Je veux simplement que ma plage de saisie change automatiquement de couleur en fonction de mon code, parce y'a beaucoup de ligne et que c'est mieux si ca se change tout seul voila!!!

sinon je viens de tester ce code marche tres bien.
je me suis amuser a tester les couleur de 0 à 56, apparement c'est le max.

merci à Horatio pour ta solution.
morodashi

Re : mise en forme conditionnelle

sinon par rapport au chiffre utiliser pour choisir la couleur, y'a une liste qui existe pour les retrouver plus facilement?

Merci

Morodashi

Re : mise en forme conditionnelle

Salut,

Cette macro, à placer dans un module de code, te fournira les 57 codes de couleurs de la palette Excel.

Sub Couleurs_Excel()
'Se placer sur une feuille vide
Dim I As Integer
For I = 0 To 56
ActiveSheet.Range("A" & I + 1) = I
ActiveSheet.Range("A" & I + 1).Interior.ColorIndex = I
Next
End Sub

A+
Horatio

Re : mise en forme conditionnelle

Bonsoir,




au détour d'un forum,

mais sans décorum

je salue ta présence

avec beaucoup d'aisance,

de joie,

avec un petit ruban de soie

bleu, pour souligner

ta venue sur XLD!!!


you're welcome sir Horatio!!!


😛

Re : mise en forme conditionnelle

Déjà les formules ou le code VBA
Tu sais que c'est pas si facile !
Mais, de plus, versifier comme Céléda
Je m'sens devenir si fragile !

Amitiés Céléda !

A+
Horatio