Discussion :

[fab83340]

bonjour
je souhaiterais créer un planning avec une ligne de 31 jours et d'une colonne de 10 noms dans ce planning je voudrais que AM (après midi) soit en jaune ,M (matin) en bleu, CA (congé) en jaune, RC (récupération) en orange et R (repos) en blanc.
je dispose Excel 2003 donc limité à trois conditions il faut donc passer par le VBA
MERCI d'avance pour vos réponses

[Menhir]

je dispose Excel 2003 donc limité à trois conditions il faut donc passer par le VBA
MERCI d'avance pour vos réponses

Dans ton texte, je ne vois pas de question...

[Quentin0908]

Bonjour fab83340,

Tu as plus simple que le VBA si j'ai bien compris ce que tu cherches à faire.

Tu sélectionnes ton tableau et tu appliques des mises en forme conditionnelle:

1. Si est égal à AM alors couleur jaune
2. Si est égal à M alors couleur bleu
3. etc...

La mise en forme conditionnelle comme son nom l'indique te permet de définir un format de cellule à partir d'une condition ce qui dans ton cas me parait être la solution la plus simple.

[fab83340]

Dans ton texte, je ne vois pas de question...

Dans Excel 2003 se trouve 3 conditions moi j'en ai 5 à faire voilà mon problème.
donc je dois utiliser le VBA

[fab83340]

Bonjour fab83340,

Tu as plus simple que le VBA si j'ai bien compris ce que tu cherches à faire.

Tu sélectionnes ton tableau et tu appliques des mises en forme conditionnelle:

1. Si est égal à AM alors couleur jaune
2. Si est égal à M alors couleur bleu
3. etc...

La mise en forme conditionnelle comme son nom l'indique te permet de définir un format de cellule à partir d'une condition ce qui dans ton cas me parait être la solution la plus simple.

le problème est que j'ai 5 conditions et Excel 2003 ne le permets pas.
merci

[Quentin0908]

fab83340,

N'essaye pas d'attribuer une seule mise en forme conditionnelle à ton tableau mais plutôt d'en faire une par condition en choisissant à chaque fois la mise en forme conditionnelle "est égale à".

[Menhir]

Dans Excel 2003 se trouve 3 conditions moi j'en ai 5 à faire voilà mon problème.
donc je dois utiliser le VBA

Je ne vois toujours pas de question ou de demande.
Est-ce que ce que tu demandes c'est comment déclencher une macro en fonction du contenu d'une cellule ?
Est-ce que tu demandes comment modifier la couleur d'une cellule en VBA ?
Est-ce que ta demande c'est "je n'y connais rien en VBA et je veux que vous me proposiez une solutions toute faite" ?

Prends la peine d'expliquer clairement ce que tu attends de ce forum.

[fab83340]

fab83340,

N'essaye pas d'attribuer une seule mise en forme conditionnelle à ton tableau mais plutôt d'en faire une par condition en choisissant à chaque fois la mise en forme conditionnelle "est égale à".

je ne peux pas avec Excel 2003 il comporte que 3 conditions contrairement à Excel 2007 qui est illimité donc je dois passer par vba

[fab83340]

Je ne vois toujours pas de question ou de demande.
Est-ce que ce que tu demandes c'est comment déclencher une macro en fonction du contenu d'une cellule ?
Est-ce que tu demandes comment modifier la couleur d'une cellule en VBA ?
Est-ce que ta demande c'est "je n'y connais rien en VBA et je veux que vous me proposiez une solutions toute faite" ?

Prends la peine d'expliquer clairement ce que tu attends de ce forum.

J'attends simplement une solution ou une explication, je dois faire un planning avec les jours (horizontalement) et des noms verticalement) dans les cases AM pour après midi en vert, M pour matin en bleu, CA pour congé en jaune, RC pour récupération en orange et enfin R en blanc pour repos, il me suffira simplement de rentrer les lettres et les couleurs apparaitrons selon la lettre
merci

[Menhir]

Tu peux utiliser l'évènement Change de ta Worksheet pour créer une macro évènementielle qui se déclenchera chaque fois qu'une nouvelle valeur sera saisie.
Comme cet évènement a pour paramètre la référence de la cellule modifiée, tu n'auras qu'à contrôler sa valeur dans un Select Case et à fixer la couleur de ta case en conséquence avec un Interior.ColorIndex mis à la couleur souhaitée appliquée à la cellule modifiée.

[Quentin0908]

Bonjour,

Tu peux utiliser ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub Worksheet_Change(ByVal Target As Range)
 
For y = 2 To 32
 
For i = 3 To 9
 
If Cells(i, y).Value = "AM" Then
 
'-------------------------------------------VERT
 
    Cells(i, y).Select
    Selection.Interior.Color = 5287936
 
Else
 
If Cells(i, y).Value = "M" Then
 
'-------------------------------------------Bleu
 
    Cells(i, y).Select
    Selection.Interior.Color = 15773696
 
Else
 
If Cells(i, y).Value = "CA" Then
 
'-------------------------------------------Jaune
 
    Cells(i, y).Select
    Selection.Interior.Color = 65535
 
Else
 
If Cells(i, y).Value = "R" Then
 
'-------------------------------------------Blanc
 
    Cells(i, y).Select
    Selection.Interior.Color = 16777215
 
Else
 
If Cells(i, y).Value = "RC" Then
 
'-------------------------------------------Orange
 
    Cells(i, y).Select
    Selection.Interior.Color = 49407
 
End If
End If
End If
End If
End If
 
Next i
 
Next y
 
End Sub

A placer dans le code de la Feuil1 de ton classeur.

Bonne journée

[Menhir]

Tu peux utiliser ce code :

Je ne comprends pas pourquoi tu utilises des "For to" alors que la cellule modifiée est connue (référencée par la variable Target).
Il serait plus propre de remplacer tes 4 If imbriqués par un Select Case.
Les Select / Selection sont inutiles.

Bref, le code peut se résumer à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
 
Select Case Target.Value
Case "AM" Then
   Target.Interior.Color = 5287936
Case "M" Then
   Target.Interior.Color = 15773696
Case "CA" Then
   Target.Interior.Color = 65535
Case "R" Then
   Target.Interior.Color = 16777215
Case "RC" Then
   Target.Interior.Color = 49407
End Select 
 
End Sub

[Philippe Tulliez]

Bonjour Menhir,
Sauf erreur de ma part le Select Case n'a pas d'instruction Then. Sûrement tapé de mémoire

[Menhir]

Sauf erreur de ma part le Select Case n'a pas d'instruction Then. Sûrement tapé de mémoire

Je dirais plutôt que c'est une erreur de copier/coller.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
 
Select Case Target.Value
Case "AM"
   Target.Interior.Color = 5287936
Case "M"
   Target.Interior.Color = 15773696
Case "CA"
   Target.Interior.Color = 65535
Case "R"
   Target.Interior.Color = 16777215
Case "RC"
   Target.Interior.Color = 49407
End Select 
 
End Sub

[/QUOTE]

[Quentin0908]

Menhir,

Pas l'habitude d'utiliser le "Select Case" qui est dit en passant bon à prendre

Ton code est en effet beaucoup plus adapté au besoin que le miens