Discussion :

[Nanou84]

Bonjour,
Je viens enfin de finir la réalisation d'un code VBA (chose que je n'avais jamais fait) pour colorier une ligne selon le remplissage d'une cellule.
Mon code fonctionne, si je rempli les cases maintenant. Mais mon fichier est déjà rempli et la coloration ne s'effectue pas sauf si je retape ce qu'il y a dans la cellule.

Est-ce mon code qui n'est pas bon ou tout simplement est-ce qu'un code VBA n'est pas applicable sur de l'existant

Je vous remercie par avance de votre aide

Voici mon 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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig As Byte, plage As Range
 
If Intersect(Target, Range("B21:C5000")) Is Nothing Then: Exit Sub
 
lig = Target.Row
Set plage = Range(Cells(lig, 1), Cells(lig, 8))
 
Select Case Target
    Case Is = "D"
        plage.Interior.ColorIndex = 15
    Case Is = "NA"
        plage.Interior.ColorIndex = 16
    Case Is = "C"
        plage.Interior.ColorIndex = 10
    Case Is = "NC"
        plage.Interior.ColorIndex = 3
    Case Is = "AV"
        plage.Interior.ColorIndex = 42
    Case Else
        plage.Interior.ColorIndex = -4142
End Select
End Sub

[Philippe Tulliez]

Bonjour,
C'est tout à fait normal, tu as mis ce code dans la procédure événementielle d'une feuille qui ne s'enclenche que si et seulemnt si l'on fait un changement d'une valeur dans une cellule de cette feuille.
Il n'y a pas de miracle.
Je n'ai pas vu avec quelle version tu travaillais mais tu sais que tu peux avoir le même résultat avec mise en forme immédiate et ce même si les données sont déjà encodées avec la mise en forme conditionnelle.

[Nanou84]

Merci Corona pour ta réponse.
Je travail avec Excel 2007 (je me suis rendu compte après avoir posté que j'avais oublié de le mettre, j'ai fait un edit mais ca n'a pas l'air d'avoir fonctionné)
Par contre où dois-je mettre mon code ou que dois-je modifier pour que cela fonctionne stp ?

[Philippe Tulliez]

Bonjour,
Si tu es en version 2007, pas besoin de VBA pour cela tu appliques la mise en forme conditionnelle (la version 2003 étant limitée à 3 conditions).
Onglet [Accueil], groupe Style, clic sur Mise en forme conditionnelle et tu appliques autant de règles qu'il n'y a de conditions en choisissant Utiliser une formule pour déterminer pour quelles cellules le forma sera appliqué

[Nanou84]

En fait j'utilisais de la mise en forme conditionnelle avant.
Sauf que c'est un fichier pro qui me sert de base pour alimenter des fichiers clients et dès que je fait un copier/coller sur le fichier de mes clients ca rajoute une nouvelle fois des mises en forme conditionnelle sur le fichier du client juste pour la ligne que j'ai copié.
Je voulais donc insérer ce code sur les fichiers de mes clients une seule fois et comme ca je ne suis plus embêter pour mes copier/coller.

[Philippe Tulliez]

Bonjour,
Le Copier/Collage Spécial Valeur ne convient pas pour cas là ?