Déclarer une zone pour ouvrir un USF...

DoubleZero

XLDnaute Barbatruc

• 31 Mars 2016

• #2

Re : Déclarer une zone pour ouvrir un USF...

Bonjour, Christian0258, le Forum,

Peut-être avec ce code, dans le module de l'onglet.

Code:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal c As Range)
    If c.Row > 11 And c.Row < 32 And c.Column > 3 And c.Column < 370 Then UserForm3.Show
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 31 Mars 2016

• #3

Re : Déclarer une zone pour ouvrir un USF...

Re, le forum, DoubleZero,

Merci, DoubleZero, pour ton aide.

En fait c'est :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
UserForm3.Show
Cancel = True
End Sub

qui ouvre l'USF.

A vous lire.
Merci,
Christian

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 31 Mars 2016

• #4

Re : Déclarer une zone pour ouvrir un USF...

Re-bonjour,

Comme ceci, peut-être...

Code:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
    If c.Row > 11 And c.Row < 32 And c.Column > 3 And c.Column < 370 Then UserForm3.Show: Cancel = True
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 31 Mars 2016

• #5

Re : Déclarer une zone pour ouvrir un USF...

Bonsoir Christian,
Bises Chère petite Ânesse,

Un autre forme avec adresse de zone plus lisible:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("D12:NE31"), Target) Is Nothing Then UserForm3.Show:  Cancel = True
End Sub

A +

Cordialement

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 31 Mars 2016

• #6

Re : Déclarer une zone pour ouvrir un USF...

Re, le forum, DoubleZero,

Merci beaucoup, DoubleZero, ça fonctionne parfaitement.

Bien à toi,
Christian

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 31 Mars 2016

• #7

Re : Déclarer une zone pour ouvrir un USF...

Re-bonjour, bonjour + bises, Pap😀u-net,

Avez-vous pris connaissance de la suggestion de Papou-net ?

A bientôt 🙂

 

Vote positif 0 Vote négatif