Erreur sur le Worksheet_change

Version imprimable

Bonjour à tous,

Je rencontre des difficultés avec l'évènement Worksheet_Change d'une des feuilles de mon classeur.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub Worksheet_Change(ByVal Target As Range) ligne = Target.row colonne = Target.Column Sheets(SHEET_GESTION_GW).Unprotect If Range("GW_TYPE_DEVIS").row = ligne And Range("GW_TYPE_DEVIS").Column = colonne Then If IsDevisSpecifique Then Range("GW_LISTE_DEMANDE").Value = "OUI" Sheets("Chiffrage Estimé").Range("A7").Value = Range("GW_TYPE_DEVIS").Value End If If GetTypeDevis = TYPE_DEVIS_EVOL Then Sheets("Chiffrage Estimé").Range("A7").Value = "SFD" End If End If Sheets(SHEET_GESTION_GW).Protect
"GW_TYPE_DEVIS" étant la cellule nommée de validation dont je souhaiterais intercepter les changements.
Le code est bien appelé (contrairement à ce qui se produit sur une autre liste de validation sur la même feuille !)

Par contre, les point d'arrêt de stoppent pas l'exécution du code...
Autre problème important : le tableau qui se trouve sur la page est dépourvu de bordure à la fin de l'exécution du traitement. Je dois "rafraichir" l'onglet (en scrollant ou sélectionnant les cellules ou en réduisant et agrandissant la fenêtre)
Le screenupdating n'y change rien
J'ai supprimé également tous les "Application.screenupdating=false" du code mais sans résultat

Avez vous une idée ?

Je suis convaincu que tout ça a fonctionné un jour mais les modifications on été nombreuses depuis et je ne suis pas le seul à y avoir travaillé et impossible de trouver la cause du disfonctionnement...

Merci pour votre aide

[/CODE]

Procédure change

Bonjour,

Ton code n'est pas très volumineuxmais il reste cependant des points que tu ne nous livres pas :
Les variables IsDevisSpecifique et GetTypeDevis sont elles bien déclarées et initialisées ?
La procédure Worksheet_Change est elle bien placé au bon endroit ?

Pour y répondre , modifie ta procédure avec des Flags de signalisation comme ci dessous

NC : une ligne m'intrigue ( je n'ai pas testé ) Sheets("Chiffrage Estimé").Range("A7").Value = Range

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
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
msgbox " on entre dans  Worksheet_Change " & chr (10) & "IsDevisSpecifique = " & IsDevisSpecifique & chr (10) & " GetTypeDevis = " & GetTypeDevis
ligne = Target.row
colonne = Target.Column
Sheets(SHEET_GESTION_GW).Unprotect
 
    If Range("GW_TYPE_DEVIS").row = ligne And Range("GW_TYPE_DEVIS").Column = colonne Then
        If IsDevisSpecifique Then
            Range("GW_LISTE_DEMANDE").Value = "OUI"
            Sheets("Chiffrage Estimé").Range("A7").Value = Range  ' syntaxe ligne à vérifier
    msgbox " on modifie A7"
("GW_TYPE_DEVIS").Value
        End If
 
        If GetTypeDevis = TYPE_DEVIS_EVOL Then
            Sheets("Chiffrage Estimé").Range("A7").Value = "SFD"
          msgbox " GetTypeDevis = TYPE_DEVIS_EVOL  , on modifié A7 =" &   Sheets("Chiffrage Estimé").Range("A7").Value 
 
 End If
 
    End If
Sheets(SHEET_GESTION_GW).Protect

25/03/2011, 14h56
Dinytro

Citation:

NC : une ligne m'intrigue ( je n'ai pas testé ) Sheets("Chiffrage Estimé").Range("A7").Value = Range

Je pense que tu n'as pas bien lu le code :

Il n'y a pas écrit:

Code:

Sheets("Chiffrage Estimé").Range("A7").Value = Range

mais

Code:

Sheets("Chiffrage Estimé").Range("A7").Value = Range("GW_TYPE_DEVIS").Value

Citation:

Les variables IsDevisSpecifique et GetTypeDevis sont elles bien déclarées et initialisées ?

ce ne sont pas des variables mais des fonctions qui fonctionnent très bien en dehors de cette méthode

Citation:

La procédure Worksheet_Change est elle bien placé au bon endroit ?

Oui

je précise, sans prétention aucune mais pour simplement éviter des échanges inutiles, que je ne suis pas novice en Excel (je pratique les macro et Excel en général depuis plus de 10 ans)

Le comportement très suspect d'Excel sur ce fichier me laisse très perplexe...

Bonsoir,

Et en gelant le gestionnaire d'évennement avant d'effectuer les modifs ?

Citation:

le tableau qui se trouve sur la page est dépourvu de bordure à la fin de l'exécution du traitement. Je dois "rafraichir" l'onglet (en scrollant ou sélectionnant les cellules ou en réduisant et agrandissant la fenêtre)
Le screenupdating n'y change rien

En bas du code tu verras 3 lignes qui oblige le rafraîchissement de la feuille, c'est pas top mais teste déjà pour voir :

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim Ligne As Long
 
    If Range("GW_TYPE_DEVIS").Address = Target.Address Then
 
        'il n'est pas nécessaire de déprotéger si pas
        'la bonne cellule
        Sheets(SHEET_GESTION_GW).Unprotect
 
        'désactive les évennements
        Application.EnableEvents = False
 
        If IsDevisSpecifique Then
            Range("GW_LISTE_DEMANDE").Value = "OUI"
            Sheets("Chiffrage Estimé").Range("A7").Value = Range("GW_TYPE_DEVIS").Value
        End If
 
        If GetTypeDevis = TYPE_DEVIS_EVOL Then
            Sheets("Chiffrage Estimé").Range("A7").Value = "SFD"
        End If
 
        'on réactive les évennements
        Application.EnableEvents = True
 
        Sheets(SHEET_GESTION_GW).Protect
 
        'ceci n'est vraiment pas top mais ça oblige
        'le rafraîchissement de la feuille
        Ligne = ActiveWindow.ScrollRow
        ActiveWindow.ScrollRow = 5000
        ActiveWindow.ScrollRow = Ligne
 
    End If
 
End Sub

Hervé.