Discussion :

[juju1988]

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 :

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

[thugelife]

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

[Yoyo57]

Bonjour juju1988,

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

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

[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

[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 :

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

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

[juju1988]

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 :

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

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

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

[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

[mercatog]

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

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