Exécution code VBA sur fichier déja rempli

Version imprimable

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:

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

18/07/2012, 14h45
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.
18/07/2012, 14h52
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 ?
18/07/2012, 15h00
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é
18/07/2012, 15h15
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.
18/07/2012, 15h40
Philippe Tulliez

Bonjour,
Le Copier/Collage Spécial Valeur ne convient pas pour cas là ?
18/07/2012, 15h47
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.
18/07/2012, 15h58
Philippe Tulliez

Bonjour,

Citation:

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

Citation:

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.
18/07/2012, 20h58
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 :cry:

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 ?

Bonsoir,

Citation:

Envoyé par 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 :cry:
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:

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

Citation:

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.

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:

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:

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:

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 ...

19/07/2012, 09h43
Nanou84

Citation:

Envoyé par corona

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 !!!:oops::oops:
Du coup j'avoue ne pas savoir où mettre tes "For To ... Next ou un For Each In... Next"

Citation:

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 ?

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:

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.

19/07/2012, 14h15
Philippe Tulliez

Bonjour,

Citation:

Envoyé par Nanou84

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 !!!:oops::oops:
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

Citation:

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.