Adapter un code à plusieurs feuilles d'un classeur

Eric C · 10 Mai 2017

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.

DoubleZero · 10 Mai 2017

Bonjour, Eric C, le Forum,

Comme ceci ?

VB:

Option Explicit
Private Sub Workbook_SheetBeforeDoubleClick(ByVal o As Object, ByVal Target As Range, Cancel As Boolean)
    Dim Plage As Range
    Cancel = True
    If o.Name <> "a" And o.Name <> "b" Then    ' noms des onglets adapter
        Set Plage = Union(Range("L10:L11"), Range("L13:L14"))
        If Not Intersect(Target, Plage) Is Nothing Then UserForm1.Show
    End If
End Sub

A bientôt

Eric C · 10 Mai 2017

Bonsoir le forum
Bonsoir & Merki DoubleZero

Bah oui oublié les fondamentaux. Heureusement vous êtes là à bien nous aider et nous épauler.
Bonne continuation & encore merki.
Eric C

Adapter un code à plusieurs feuilles d'un classeur

Eric C

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

Discussions similaires