Problèmes avec la Worksheet_Change

Version imprimable

30/11/2015, 15h09
rouliooo

1 pièce(s) jointe(s)

Problèmes avec la Worksheet_Change

Bonjour à tous,

Je suis nouveau ici et dans le monde du vba. Je n'ai jamais travaillé en vba avant ces dernières semaines mais vos réponses aux différentes questions d'autres personnes ainsi que mes cours de programmation en C++ datant de l'école d'ingénieur m'ont permis de sortir un bout de code qui fonctionne pas mal...

Je souhaite vous solliciter car mon problème dépasse largement la compréhension que j'ai du bout de mon code qui fait planter ma procédure automatique.

Je travaille sur un tableau de gestion de projet dans lequel sont regroupés plusieurs informations. Une interface de gestion me permet de gérer les nouvelles entrées ainsi que le tri. Jusque-là pas de soucis. Chaque projet peut en être à 5 phases différentes qui sont Ao, Projet, Négo, Commande et Perdu. Lorsque je créé un nouveau projet par le biais de ma macro de gestion, la ligne entière prend une couleur définie en fonction de la valeur de la case "Etat du projet". Jusque-là, tout fonctionne aussi.

Là où cela se corse, c'est que je souhaite lorsque je change manuellement la valeur de la case "Etat" que la couleur change aussi. J'ai réussi à le faire et cela fonctionne pas mal si ce n'est que ma première erreur (Erreur 13) apparaît dès lors que je copie colle des lignes venant d'un autre tableau. Cette erreur, je peux à la limite m'en accommoder car elle n'apparaîtra qu'à la mise en service du tableau.

Ensuite, pour aller plus loin, j'ai crée deux autres feuilles qui sont censées recevoir par un couper coller les lignes pour lesquelles je change la valeur d'état du projet en commande ou perdu sur la feuille 1. J'espère être assez clair jusque-là.

Si je fais cette procédure sur la dernière ligne remplie du tableau, pas de soucis, la ligne se transfère bien vers l'autre tableau. Par contre si je fais cela sur une ligne en plein milieu du tableau, elle se transfère bien mais j'obtiens une erreur 13 dès lors qu'elle est coupée du tableau de la feuille 1.

Je lance le débogage et j'obtiens une erreur sur : "" If Target.Value = "Commande" Then ""

Je pense comprendre l'erreur mais je suis incapable de la résoudre : Ma macro automatique compare la valeur de la case sélectionnée et agit en conséquence mais celle-ci étant coupée collée avec la ligne, la valeur de la cellule active change et fait planter la macro automatique. Je pense que ma première erreur est liée à la seconde car lors du copier coller, la valeur de la case active change aussi.

Pourriez-vous me venir en aide ?

Par avance merci de votre soutien !

Cordialement.

Bonjour,

J'ai pas vraiment testé mais je verrai plus le code comme ceci :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Private Sub Worksheet_change(ByVal Target As Range)
 
    Dim rng As Range
 
    Const l As Integer = 40 'Projet
    Const m As Integer = 17 'AO
    Const n As Integer = 27 'Nego
    Const o As Integer = 10 'Commande
    Const p As Integer = 30 'Perdue
 
    If Target.Count > 1 Then Exit Sub
 
    If Target.Column = 10 Then 'sur colonne J car à priori c'est elle qui reçoit la valeur !
 
        With Target.Offset(1)
 
            .Value = Date
            .Font.Name = "Calibri"
            .Font.Size = 10
            .HorizontalAlignment = xlCenter
 
        End With
 
        With Range(Cells(Target.Row, 1), Cells(Target.Row, 13)).Interior
 
            Select Case Target.Value
 
                Case "Commande": .ColorIndex = o
                    Rows(Target.Row).Copy Sheets("Commandes").Cells(Rows.Count, 1).End(xlUp).Offset(1)
                    Rows(Target.Row).Delete Shift:=xlUp
 
                Case "Perdue": .ColorIndex = p
                Case "Projet": .ColorIndex = l
                Case "Nego": .ColorIndex = n
                Case "Ao": .ColorIndex = m
 
            End Select
 
        End With
 
    End If
 
End Sub

Pour le reste, je n'ai pas regardé car tu parles que de cette proc !

30/11/2015, 16h34
rouliooo
Bonjour,

Merci pour cette réponse si rapide !

Je viens de tester et effectivement je n'ai plus l'erreur...mais j'en ai une nouvelle qui apparaît : toutes les lignes en dessous de celle que je modifie appliquent dans la case Etat la date du jour.

Je pense que cela vient de la partie du code suivante :
Code:

1 2 3 4 5 6 7 With Target.Offset(1) .Value = Date .Font.Name = "Calibri" .Font.Size = 10 .HorizontalAlignment = xlCenter
Ce que je souhaiterai c'est qu'en plus de la partie du code qui traite les couleurs (qui pour le coup fonctionne à merveille maintenant !!!), la date du jour s'incrémente dans la colonne M lorsque l'on modifie n'importe quelle case de la ligne sauf la colonne M elle même.

Je pense que la partie du code précédent est la cause de mon soucis. Je vais aussi chercher une solution à ce problème vu que j'ai une base de code propre maintenant.

Merci d'avance

EDIT : PS, pas de soucis avec le reste des maccros, elles fonctionnent bien même si elles vous piquent sûrement les yeux :D

Bonjour,

J'ai résolu mon soucis de date qui se mettait sur toutes les lignes en dessous de celle qui était modifiée.

Je vous poste mon code final pour information (si jamais cela peut aider).

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
 
Private Sub Worksheet_change(ByVal Target As Range)
 
    Dim rng As Range
 
    Const l As Integer = 40 'Projet
    Const m As Integer = 17 'AO
    Const n As Integer = 27 'Nego
    Const o As Integer = 10 'Commande
    Const p As Integer = 30 'Perdue
 
    If Target.Count > 1 Then Exit Sub
 
        If Target.Column <> 13 Then
 
            With Cells(Target.Row, 13)
              .Value = Date
              .Font.Name = "Calibri"
              .Font.Size = 10
               .HorizontalAlignment = xlCenter
            End With
 
 
         If Target.Column = 10 Then
 
             With Range(Cells(Target.Row, 1), Cells(Target.Row, 13)).Interior
 
             Select Case Target.Value
 
                Case "Commande": .ColorIndex = o
                    Rows(Target.Row).Copy Sheets("Commandes").Cells(Rows.Count, 1).End(xlUp).Offset(1)
                    Rows(Target.Row).Delete Shift:=xlUp
                Case "Perdue": .ColorIndex = p
                    Rows(Target.Row).Copy Sheets("Perdues").Cells(Rows.Count, 1).End(xlUp).Offset(1)
                    Rows(Target.Row).Delete Shift:=xlUp
                Case "Perdue": .ColorIndex = p
                Case "Projet": .ColorIndex = l
                Case "Nego": .ColorIndex = n
                Case "Ao": .ColorIndex = m
 
            End Select
 
            End With
 
        End If
 
    End If
 
End Sub

Merci beaucoup pour votre aide !!!

A bientôt.