Workbook SheetSelection Change

Version imprimable

Bonjour,

Je débute en vba et suis actuellement en stage... J'ai besoin d'un peu d'aide.
Dans mon classeur, l'utilisateur à la possibilité de sélectionner un traitement dans la cellule E4. En fonction du traitement affiché cela me rajoute ou non des colonnes à chaque changement de sélection.

Cependant mon code de cette manière là fais que à chaque fois que en code je fais une sélection ça m'execute pour rien Workbook_SheetSelectionChange. J'aimerai savoir comment remédier à ça... :
En regardant sur les forums j'ai fait plusieurs tests, j'ai notamment essayé avec If Not Intersect("E4",Target) Is Nothing Then mais je n'arrive pas à comprendre et donc à faire fonctionner 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 Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 
 
    If Range("E4").Value = "Recyclage" Then                     'Si traitement = recyclage alors il faut :
           Range("N34").Value = "Lab Recyclage"                    'Remplir l'en tête de N34, O34 et P34
           Range("O34").Value = "Spec Recyclage"
           Range("P34").Value = "Ind Recyclage Product"
           ActiveWorkbook.Save                                     'Sauvegarde du classeur
    Else
           If Range("E4").Value = "Valorisation" Then
               Range("N34").Value = "Lab Valorisation"             'Remplir l'en tête de N34, O34 et P34
               Range("O34").Value = "Spec Valorisation"
               Range("P34").Value = "Ind Valorisation Product"
               ActiveWorkbook.Save                                 'Sauvegarde du classeur
            Else
                Range("N34").Value = ""
                Range("O34").Value = ""
                Range("P34").Value = ""
                End If
    End If
 
End Sub

Merci d'avance pour votre aide...

06/09/2010, 17h06
thugelife

Bonjour,
c'est quoi (n34,p34...)?tu veux rajouter des colonnes ou modifier les entête?

Bonjour juju1988,

Je pense que tu n'es pas loin de la solution. Essaie avec ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 
  If Not Intersect(Target, Range("E4")) Is Nothing Then
    If Range("E4").Value = "Recyclage" Then                     'Si traitement = recyclage alors il faut :
           Range("N34").Value = "Lab Recyclage"                    'Remplir l'en tête de N34, O34 et P34
           Range("O34").Value = "Spec Recyclage"
           Range("P34").Value = "Ind Recyclage Product"
           ActiveWorkbook.Save                                     'Sauvegarde du classeur
    Else
           If Range("E4").Value = "Valorisation" Then
               Range("N34").Value = "Lab Valorisation"             'Remplir l'en tête de N34, O34 et P34
               Range("O34").Value = "Spec Valorisation"
               Range("P34").Value = "Ind Valorisation Product"
               ActiveWorkbook.Save                                 'Sauvegarde du classeur
            Else
                Range("N34").Value = ""
                Range("O34").Value = ""
                Range("P34").Value = ""
                End If
    End If
  End If
End Sub

J'ai volontairement repris tel quel ton code en y ajoutant le traitement demandé, sans chercher à l'optimiser.

C'est pas l'évènement SlectionChange qu'il faudrait, mais seulement le change
si tu as le code à affecter à une seule feuille, utilise l'évènement Change de la feuille en question
ce qui donne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$4" Then
    Application.EnableEvents = False
    If Target.Value = "" Then
        Range("N34:P34").ClearContents
    Else
        Range("N34").Value = "Lab " & Target.Value
        Range("O34").Value = "Spec" & Target.Value
        Range("P34").Value = "Ind " & Target.Value & " Product"
    End If
    Application.EnableEvents = True
End If
End Sub

06/09/2010, 17h16
juju1988

thugelife : je modifie mes entêtes de colonne ...

Yoyo57 : J'ai essayé comme tu m'as dit mais du coup mes en têtes ne se modifient pas à chaque changement de sélection dans ma cellule E4

Citation:
Envoyé par mercatog
C'est pas l'évènement SlectionChange qu'il faudrait, mais seulement le change
si tu as le code à affecter à une seule feuille, utilise l'évènement Change de la feuille en question
ce qui donne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$4" Then Application.EnableEvents = False If Target.Value = "" Then Range("N34:P34").ClearContents Else Range("N34").Value = "Lab " & Target.Value Range("O34").Value = "Spec" & Target.Value Range("P34").Value = "Ind " & Target.Value & " Product" End If Application.EnableEvents = True End If End Sub
J'ai essayé ton code ... Cependant pareil cela ne me change pas mes en têtes à chaque sélection d'un traitement dans E4 ...

06/09/2010, 17h27
mercatog

Où tu as mis le code? sur le module de la feuille en question?
la valeur de E4 est changée par l'utilisateur ou par formule?
06/09/2010, 17h29
juju1988

ex : valorisation, recyclage, react ...
Si il sélectionne valorisation et recyclage cela ajoute des colonnes dans un tableau de la feuille comme vous avez pu le voir dans mon code
06/09/2010, 17h36
mercatog

As tu lis ce que j'écrivais ou hâtivement vers le copier coller?

Citation:

C'est pas l'évènement SlectionChange qu'il faudrait, mais seulement le Change
si tu as le code à affecter à une seule feuille, utilise l'évènement Change de la feuille en question

Donc à mettre dans le module de la feuille en question

Alors j'ai essayé de copier coller dans le module (désolée j'avais pas vu cette ligne) cependant cela ne fonctionnait pas car cela ne me modifiait pas les intitulés des colonnes selon la sélection.
J'ai donc testé de mettre le code dans la feuille directement et cela fonctionne de cette manière j'ai juste inversé les boucles :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$4" Then Application.EnableEvents = False If Target.Value = "Recyclage" Or Target.Value = "Valorisation" Then Range("N34").Value = "Lab " & Target.Value Range("O34").Value = "Spec" & Target.Value Range("P34").Value = "Ind " & Target.Value & " Product" Else Range("N34:P34").ClearContents End If Application.EnableEvents = True End If End Sub
Merci bien pour votre aide en tout cas