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à ?

[Nanou84]

Non ca me prendrait trop de temps, le CTRL+V, CTRL+C étant tellement plus rapide.
Et puis je n'ai pas que des valeurs a copier, j'ai aussi de la mise en forme interne et des commentaires sur les cellules.
C'est pour ca que le code VBA me convenait bien.

[Philippe Tulliez]

Bonjour,

Non ca me prendrait trop de temps, le CTRL+V, CTRL+C étant tellement plus rapide.

Rien ne t'empêche de créer un code VBA qui fait ce Collage Spécial/Valeur associé à un raccourci clavier par exemple Ctrl+Shift+V

Et puis je n'ai pas que des valeurs a copier, j'ai aussi de la mise en forme interne et des commentaires sur les cellules.

La mise en forme du classeur de destination est conservée y compris la mise en forme conditionnelle si l'on fait un Copier/Collage Special Valeur et l'on peu aussi faire un Copier/Collage Special Commentaire a intégrer également dans le code VBA.

[Nanou84]

OK pour un code VBA pour un collage spécial. Ca veut dire qu'il va encore falloir que je passe une journée à trouver comment faire le code

Mais le code que j'avais créé il n'est pas possible de le "transformer" pour que ca fonctionne sur ce qui existe déjà et aussi sur ce qui sera fait par la suite ?

[Philippe Tulliez]

Bonsoir,

OK pour un code VBA pour un collage spécial. Ca veut dire qu'il va encore falloir que je passe une journée à trouver comment faire le code
Mais le code que j'avais créé il n'est pas possible de le "transformer" pour que ca fonctionne sur ce qui existe déjà et aussi sur ce qui sera fait par la suite ?

Une journée tout de même pas.
Voici un exemple d'un code Copy/PasteSpecial Valeur + Commentaire (A adapter bien sûr) qui ne m'a pas pris plus de 15 minutes, enregistreur de macro, adaptation, + test

Code :

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

1
2
3
4
5
6
7
8
Sub CopyPaste()
' CopyPaste par valeur + Commentaire
' Touche de raccourci du clavier: Ctrl+Shift+V
 With Selection
 .PasteSpecial Paste:=xlPasteValues
 .PasteSpecial Paste:=xlPasteComments
 End With
End Sub

Pour répondre à ta question

Mais le code que j'avais créé il n'est pas possible de le "transformer" pour que ca fonctionne sur ce qui existe déjà et aussi sur ce qui sera fait par la suite ?

Créer un code supplémentaire, à mon avis ajouter un For To ... Next ou un For Each In... Next pour vérifier si les conditions sont réunies par une boucle qui va parcourir chaque ligne de la base de données et vérifier si la ou les conditions sont remplies.

[HopPopPop]

Bonsoir,

Peut-être une solution qui pourrait vous satisfaire, mais qui ne remplie pas les recommandations de Corona.

A l'ouverture du fichier, un contrôle de la plage sera effectué et le "coloriage" si besoin.

Pour ce faire, créer une Sub dans ThisWorkbook ;
Pour ne pas surcharger le code, utiliser une partie commune située dans 1 Module ;
Ce qui nous donnerait, pour la Sub que vous avez écrite.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect(Target, Range("B21:C5000")) Is Nothing Then
    Ligne = Target.Row
    c = Target.Address
    Set Plage = Range(Cells(Ligne, 1), Cells(Ligne, 8))
 
    Colorier
End If
End Sub

Pour la partie commune mise dans 1 Module

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
Option Explicit
Public Ligne As Integer, Plage As Range
Public c As String
 
Public Sub Colorier()
 
Select Case Range(c)
    Case "D":   Plage.Interior.ColorIndex = 15
    Case "NA": Plage.Interior.ColorIndex = 16
    Case "C":   Plage.Interior.ColorIndex = 10
    Case "NC": Plage.Interior.ColorIndex = 3
    Case "AV": Plage.Interior.ColorIndex = 42
    Case Else: Plage.Interior.ColorIndex = -4142
End Select
End Sub

Enfin à l'ouverture du fichier, dans This Workbook

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Private Sub Workbook_Open()
 
For Each Plage In Range("B21:C5000")
    Ligne = Plage.Row
    c = Plage.Address
    Set Plage = Range(Cells(Ligne, 1), Cells(Ligne, 8))
 
    Colorier
Next
End Sub

Cordialement

[EDIT] un peu tard ...

[Nanou84]

Bonsoir,

Une journée tout de même pas.

Si si, une journée, je t'assure !!! Je n'y connais rien du tout en code donc google mon ami m'aide à trouver ce que je cherche et après quelques heures quand je ne trouve pas je me décide à poster sur un forum !!!
Du coup j'avoue ne pas savoir où mettre tes "For To ... Next ou un For Each In... Next"

Bonsoir,

Peut-être une solution qui pourrait vous satisfaire

Je viens d'essayer mais rien ne se passe.

J'ai environ 20 onglets, est-ce que ca pourrait être du à ca ?

[HopPopPop]

Bonjour,

Oui, en partie ... la mise à jour du "coloriage" ne se fait que sur l'onglet actif.

De plus, en regardant de près, si une valeur dans un Range Bxx attribuait une couleur, celle-ci s'effaçait si la Range Cxx correspondante était vide.

La correction est faite et fonctionne sur tous les onglets du classeur.

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
Private Sub Workbook_Open()
Dim Ligne As Integer, plage As Range
Dim c As String
Dim Compteur As Byte, Modif As Boolean
Dim Feuille As Byte
 
Application.ScreenUpdating = False
For Feuille = 1 To ThisWorkbook.Sheets.Count
    Compteur = 0: Modif = False
    With Sheets(Feuille)
        For Each plage In .Range("B21:C5000")
            Ligne = plage.Row
            c = plage.Address
            Set plage = .Range(.Cells(Ligne, 1), .Cells(Ligne, 8))
            Compteur = Compteur + 1
            If Compteur = 3 Then Compteur = 1: Modif = False
            If Not Modif Then
                Select Case Sheets(Feuille).Range(c)
                    Case "D":   plage.Interior.ColorIndex = 15: Modif = True
                    Case "NA":  plage.Interior.ColorIndex = 16: Modif = True
                    Case "C":   plage.Interior.ColorIndex = 10: Modif = True
                    Case "NC":  plage.Interior.ColorIndex = 3: Modif = True
                    Case "AV":  plage.Interior.ColorIndex = 42: Modif = True
                    Case Else:  plage.Interior.ColorIndex = -4142
                End Select
            End If
        Next
    End With
Next
Application.ScreenUpdating = True
End Sub

Ci-dessus est le code à mettre dans ThisWorkbook
Vos codes restants les-mêmes que dans votre 1er post, je n'y touche pas.

[Philippe Tulliez]

Bonjour,

Si si, une journée, je t'assure !!! Je n'y connais rien du tout en code donc google mon ami m'aide à trouver ce que je cherche et après quelques heures quand je ne trouve pas je me décide à poster sur un forum !!!
Du coup j'avoue ne pas savoir où mettre tes "For To ... Next ou un For Each In... Next"
Je viens d'essayer mais rien ne se passe.
J'ai environ 20 onglets, est-ce que ca pourrait être du à ca ?

Le code que je t'ai proposé ne fait que te permettre de faire un CollageSpecial, Valeur + Commentaire, que j'avais associé aux touches de raccourcis Ctrl+Shift+V.
Et comme je l'ai écrit, avec cette technique, cela conserve la mise en forme + la mise en forme conditionnelle des cellules de destination
C'est pour répondre à ton post d'hier à 15h47

Non ca me prendrait trop de temps, le CTRL+V, CTRL+C étant tellement plus rapide.
Et puis je n'ai pas que des valeurs a copier, j'ai aussi de la mise en forme interne et des commentaires sur les cellules.
C'est pour ca que le code VBA me convenait bien.