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.

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

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

[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

[juju1988]

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 :

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 = "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