Limiter apparition UF à une zone Résolu/Fermé

Question

Salut le forum, 

Je ne parviens pas à limiter l'apparition d'un UF à une colonne spécifique (en Worksheet_SelectionChange).

J'en suis là :
Option ExplicitPrivate Sub Worksheet_SelectionChange(ByVal sel As Range)    Dim LastMetro As Range        If Not LastMetro Is Nothing Then          MonUF.Show        End IfEnd Sub

Pouvez-vous m'indiquer comment faire pour :
1- Limiter l'apparition de MonUF à la plage nommée "LastMetro"
2- Limiter l'apparition de MonUF à la colonne F

Je vous remercie par avance pour l'aide apportée (c'est une question qui m'a souvent posé problème).

Configuration: Windows 7 / Excel 2010 / Firefox 43.0

Mike-31 · Answer

Bonsoir,

si j'ai bien compris ta demande, essaye comme cela

Option ExplicitPrivate Sub Worksheet_SelectionChange(ByVal sel As Range)    Dim LastMetro As RangeIf Not Application.Intersect(Selection, Range("LastMetro")) Is Nothing Then          MonUF.Show        End IfEnd Sub

touroul · Answer

Bonsoir Mike

Merci beaucoup, c'est ça, j'ai maintenant compris la syntaxe.
Juste pour ma culture, deux questions :

1- Si j'écris :
 Dim LastMetro As Range, NomClient As RangeIf Not Application.Intersect(Selection, Range("LastMetro,NomClient")) Is Nothing Then pour faire apparaître mon UF dans ces 2 zones nommées, la syntaxe est-elle correcte ?

2- Si j'écris :
 Dim LastMetro As Range, NomClient As RangeIf Not Application.Intersect(Selection, Columns"F") Is Nothing Then  pour limiter l'apparition de mon UF à la colonne F, la syntaxe est-elle correcte ?

Merci pour le SAV   :)

Mike-31 · Answer

Re,
Pour la première question afin d'activer l'userform à partir de deux plages 
Option ExplicitPrivate Sub Worksheet_SelectionChange(ByVal sel As Range)    Dim LastMetro As Range    If Not Application.Intersect(Selection, Union(Range("LastMetro"), Range("NomClient"))) Is Nothing Then    MonUF.Show    End IfEnd Sub 

à partir de la colonne F
Option ExplicitPrivate Sub Worksheet_SelectionChange(ByVal sel As Range)    Dim LastMetro As Range    If Not Application.Intersect(Selection, Range("F:F")) Is Nothing Then    MonUF.Show    End IfEnd Sub

Mike-31 · Answer

Re,

un petit complément d'information, si tu veux pouvoir te déplacer ou travailler sur ta feuille alors que l'userform est active, dans les propriétés de l'userform recherche ShowModal et sélectionne False
  
certainement à une prochaine fois 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Limiter apparition UF à une zone

4 réponses

Discussions similaires