Discussion :

[Dexor]

Je cherche à colorier une cellule dans ma feuille excel selon un test suivant:

ex:

Si ma cellule F7 = X alors G7 est rouge si elle n'est pas vide
sinon elle est verte. De mème avec H7 si F7=X...
Voici ce que j'ai indiqué dans mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 
For i = 7 To 10000
 
If Range("F" & i) = "X" Then Range("G" & i).Interior.ColorIndex = 3
If Range("F" & i) <> "X" Then Range(j & i).Interior.ColorIndex = 4
If Range("G" & i) = 0 Then Range(j & i).Interior.ColorIndex = 0
 
Next
 
End Sub

cela fonctionne pour les éléments de la colonne G mais j'ai pas réussi à le reproduire pour les colonnes H,I,J,... sauf à recopier les 3 lignes en changeant la lettre de la colonne, mais bon j'ai 100 colonnes...

Si quelqu'un peu m'aider merci par avance...

[SfJ5Rpw8]

un peu "lourdeau" comme code , avec ta boucle 1 à 10000 qui est exécutée à chaque changement de sélection dans feuille...
un Worksheet_Change devrai être suffisant...

sinon vu que ta pas fini tes phrases...je sais pas ce que tu ve faire .. pourquoi 100 et comment...

[AlainTech]

Une mise en forme conditionnelle devrait suffire.

[Dexor]

j'ai a peu près une centaine de colonne, chaque colonne correspond à un jour de la semaine pour les 6 mois à venir.

En fait je veux faire à tableau pour planifier des passages de commande en atelier.

Chaque ligne correspond à une commande, et le temps d'execution pour le passage est indiqué dans la colonne du jour programmé pour la réalisation.

ex: si la commande m'est 2h pour être effectuée et doit être réalisée le lundi de la semaine 40, je mets 2 dans la colonne correspondante, les autres restent alors vide.

Pour les couleurs, j'indique un X dans la colonne "F" pour indiquer que la colonne n'est pas déplacable à un autre jour.

Je veux donc que la cellule contenant le 2 devienne rouge, ou reste verte si le
X n'est pas indiqué.
Par défaut toutes les autres cellules restent blanche.

J'espère avoir été assez explicite.

Merci

[AlainTech]

Une mise en forme conditionnelle devrait suffire.

As-tu essayé avant de poster un nouveau message???

[marsupilami34]

Bonjour,
D'après ton code, je ne sais pas si ca peux veir de la, mais je ne vois pas de End if à la fin de tes conditions

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 
For i = 7 To 10000
 
If Range("F" & i) = "X" Then Range("G" & i).Interior.ColorIndex = 3
If Range("F" & i) <> "X" Then Range(j & i).Interior.ColorIndex = 4
If Range("G" & i) = 0 Then Range(j & i).Interior.ColorIndex = 0
 
Next
 
End Sub

[AlainTech]

Bonjour,
D'après ton code, je ne sais pas si ca peux veir de la, mais je ne vois pas de End if à la fin de tes conditions

Pas besoin de End If si l'instruction suit le Then sur la même ligne.

[Dexor]

Effectivement mon code était un peu (voire très) lourd.

Je l'ai changé en utilisant la cellule active et ca fonctionne du tonnère...

C'est pas sans mal mais du coup j'ai pondu ca :

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim numcol As Integer
Dim numlign As Integer
 
numcol = ActiveCell.Row
numlign = ActiveCell.Column
 
 
If numlign > 6 And Range("F" & numcol) = "X" Then ActiveCell.Interior.ColorIndex = 3
If numlign > 6 And Range("F" & numcol) <> "X" Then ActiveCell.Interior.ColorIndex = 4
If ActiveCell.Value = 0 Then ActiveCell.Interior.ColorIndex = 0
 
 
 
 
End Sub