Discussion :

[ballad oil]

Hello tout le monde du forum

Je viens de faire la procedure SelectionChange sur une feuille ("sheet1") de mon classeur
Ensuite je créé une autre feuille ("sheet2) dans mon classeur qui copie les données venant de la ("sheet1") et j'aimerais importé cette même procedure dans ma nouvelle feuille au moment de sa création

Voici ma procédure :

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
24
25
26
27
28
29
 
 
 Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 If Target.Column = 2 Then
 With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$AU$1:$AU$4"
    End With
 End If
 
 If Target.Column = 5 Then
 With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$AS$1:$AS$3"
    End With
 End If
 
  If Target.Column = 22 Then
 With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$AW$1:$AW$2"
    End With
 End If
 
End Sub

Comment faire?

[fring]

Bonjour,

Et si tu metais ta procédure dans ThisWorkbook :

Code :

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

1
2
3
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'...procédure
End Sub

De cette façon elle sera valable pour toutes les feuilles mais cela ne convient peut-être pas ?

[ballad oil]

Non fait j'ai une feuille qui n'est dans le circuit donc ce serait embêtant!

[ouskel'n'or]

Quel intérêt de faire ça ? Tu peux placer ta procédure dans un module standard avec le paramètre Target et l'appeler de toutes tes feuilles.
Pour tester, dans le code de la feuille 1 tu mets ça :

Code :

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

1
2
3
4
5
Dim adres As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set adres = Target
LaMacro adres, ActiveSheet
End Sub

Dans un module standard, place ç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
23
24
25
26
27
Sub LaMacro(adres As Range, FL1 As Worksheet)
    MsgBox adres.Address 'pour tester, A EFFACER
 
If adres.Column = 2 Then
 With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$AU$1:$AU$4"
    End With
 End If
 
 If adres.Column = 5 Then
 With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$AS$1:$AS$3"
    End With
 End If
 
  If adres.Column = 22 Then
 With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$AW$1:$AW$2"
    End With
 End If
End Sub

Ensuite, je ne sais pas comment tu crées tes feuilles mais quand tu copies une feuille, la macro est copiée avec. tu peux tester :

Code :

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

    Sheets("Feuil1").Copy After:=Sheets(Sheets.count)

J'ai ajouté la feuille au cas où tu en aies besoin
A+

[ballad oil]

Salut,

Alors j'ai testé le code mais alors il marche à moitié que dans certaines des colonnes 2 et 5 et dans la colonne 22 il ne marche pas du tout

j'avais le même souci avant sans même copier la procédure....