Eric C
XLDnaute Barbatruc
Bonsoir, je redécouvre le Vba et je souhaiterai qu'une action s'exécute après double clic dans une des cellules d'une plage et ce sur X feuilles de mon classeur sauf sur les 2 dernières qui ont une plage de sélection différente. Mon problème est que je ne souhaite pas coller le code dans chacune des feuilles... Existe t'il une adaptation pour cela à partir du WorkBook ou autre???
Mon code consiste à faire apparaître un USF contenant un Cbo pour saisir une valeur et l'appliquer dans la cellule qui a été "double cliquée" :
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Plage As Range
Cancel = True
Set Plage = Union(Range("L10:L11"), Range("L13:L14")) '---- Les 2 dernières feuilles ont pour plages M20:M21 & M23:M24
If Not Intersect(Target, Plage) Is Nothing Then UserForm1.Show
End Sub
Je vous remercie de l'attention que vous voudrez bien porter à mon sujet qui est d'adapter un code unique à plusieurs feuilles.
Mon code consiste à faire apparaître un USF contenant un Cbo pour saisir une valeur et l'appliquer dans la cellule qui a été "double cliquée" :
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Plage As Range
Cancel = True
Set Plage = Union(Range("L10:L11"), Range("L13:L14")) '---- Les 2 dernières feuilles ont pour plages M20:M21 & M23:M24
If Not Intersect(Target, Plage) Is Nothing Then UserForm1.Show
End Sub
Je vous remercie de l'attention que vous voudrez bien porter à mon sujet qui est d'adapter un code unique à plusieurs feuilles.