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

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais ajouter une condition à l'ouverture d'une USF.
La zone dans laquelle l'USF doit s'ouvrir est D12:NE31
Quelle commande faut-il ajouter ?

Sub afficheform()

UserForm3.Show
End Sub

Merci pour votre aide.
Bien amicalement,
Christian

 

[DoubleZero]

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

Bonjour, Christian0258, le Forum,

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

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

 

[Christian0258]

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

 

[DoubleZero]

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

Re-bonjour,

Comme ceci, peut-être...

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

 

[Papou-net]

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:

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

 

[Christian0258]

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

Re, le forum, DoubleZero,

Merci beaucoup, DoubleZero, ça fonctionne parfaitement.

Bien à toi,
Christian

 

[DoubleZero]

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

Re-bonjour, bonjour + bises, Papu-net,

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

A bientôt