Couleurs cellulles selon plusieurs conditions

[DST]

Bonjour,

je souhaiterai mettre en couleur les cellules selon plusieurs conditions sur la même ligne.
J'ai besoin de votre aide.
merci d'avance
DST

 

[DST]

Re : Couleurs cellulles selon plusieurs conditions

En déplacement , je fais cela à mon retour en fin de journée
Merci d'avance
DST

 

[DST]

Re : Couleurs cellulles selon plusieurs conditions

Bonsoir,
Voici la modification (mot de passe supprimé).
Bonne soirée
DST

 

[gilbert_RGI]

Re : Couleurs cellulles selon plusieurs conditions

Bonsoir,
Voici la modification (mot de passe supprimé).
Bonne soirée
DST

Avez vous regardé ce post
https://www.excel-downloads.com/threads/couleurs-cellulles-selon-plusieurs-conditions.175412/

dans ce code il suffit simplement de changer ActiveCell.Interior.Color par la cellule a coloriser

 

[DST]

Re : Couleurs cellulles selon plusieurs conditions

Bonsoir Gilbert_RGI,

Cela bloque donc je te propose de reprendre le classeur futur tableur et de mettre les sénarios en fonctions si tu as le temps et la patience ( étant novice).
Merci d'avance
DST
PS: merci de me tenir informé si tu peux le faire.
Toi qui connais bien le forum, il y a t'il une possibilité de rentrer en contact par mail ou par téléphone?

 

[gilbert_RGI]

Re : Couleurs cellulles selon plusieurs conditions

Vraiment pas de temps désolé

il y a t'il une possibilité de rentrer en contact par mail ou par téléphone?

sur le forum il y a le MP (message privé)

 

[DST]

Re : Couleurs cellulles selon plusieurs conditions

Bonjour ,
Merci quand même , bonne fin d'année .
Il y a peut être quelqu'un qui peut prendre le relais sur ce sujet.
Merci d'avance à tous
DST

 

[Staple1600]

Re : Couleurs cellulles selon plusieurs conditions

Bonjour


Voir du coté de Select Case
Ci-dessous un exemple sommaire
(a mettre dans le code de la feuille -> Clic-droit -> Visualiser le code)
Pour tester:
Dans une cellule de la colonne J, saisir 1 ou 2
Tu verras alors la couleur changer

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [J:J]) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Select Case Target.Value
Case 1
Target.Interior.ColorIndex = 33
Case 2
Target.Interior.ColorIndex = 45
End Select
End If
End Sub

PS: Ceci n'est qu'un exemple, il te faudra donc l'adapter/compléter à ta problématique.

 

[DST]

Re : Couleurs cellulles selon plusieurs conditions

Merci tout de même.
Cela ne correspond pas spécialement avec ma demande.
Enfin !!!
DST

 

[Fo_rum]

Re : Couleurs cellulles selon plusieurs conditions

Bonsoir,

Voir du coté de Select Case
...
Ceci n'est qu'un exemple, il te faudra donc l'adapter/compléter à ta problématique.

M'enfin ! J'y avais aussi pensé d'où l'adaptation (clic sur la date, bien sûr quand les autres données ont été saisies).
DST, à toi d’enquêter sur les années bissextiles et de changer le type d'appel de la macro éventuellement !