Comment copier une procédure

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:

---

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?

Bonjour,

Et si tu metais ta procédure dans ThisWorkbook :

Code:

---

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 ?

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

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:

---

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:

---

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:

---

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

---

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

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