(vba) shunter apparition calendrier ...

Le
j-pascal
Bonsoir,

Dans un module de Feuille, le code suivant fait apparaître un calendrier :
'-
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 17 Then
Userform1.Show
End If
End Sub
'-

Problème : quand je lance une macro (qui affiche l' "aperçu avant
impression" après avoir trié une plage), étant donné que la "Target.Column"
est comprise dans cette plage, je me retrouve systématiquement avec mon
calendrier !

En fait, il s'ouvre sur la "commande" :
'--
Private Sub UserForm_Initialize()
Me.Calendar1 = Date
End Sub
'--

J'ai essayé bien des choses pour "shunter" l'apparition du calendrier dans
ce cas précis, mais je sèche !

Merci d'avance pour vos lumières,

JP
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #5187511
Bonsoir,
dans le module contenant la macro, par exemple, déclare une variable
publique, disons "nyvapa" à laquelle tu affectes le type booléen
dans la macro qui lance l'aperçu, en tête, tu indiques

nyvapa = true
et en fin de macro
nyvapaúlse

ensuite, tu modifies ainsi le code de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 17 and nyvapaúlse Then
Userform1.Show
End If
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"j-pascal" news:O%
Bonsoir,

Dans un module de Feuille, le code suivant fait apparaître un calendrier
:
'----
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 17 Then
Userform1.Show
End If
End Sub
'----

Problème : quand je lance une macro (qui affiche l' "aperçu avant
impression" après avoir trié une plage), étant donné que la
"Target.Column" est comprise dans cette plage, je me retrouve
systématiquement avec mon calendrier !

En fait, il s'ouvre sur la "commande" :
'-----
Private Sub UserForm_Initialize()
Me.Calendar1 = Date
End Sub
'-----

J'ai essayé bien des choses pour "shunter" l'apparition du calendrier dans
ce cas précis, mais je sèche !

Merci d'avance pour vos lumières,

JP




j-pascal
Le #5187471
Bonsoir Philippe,

Et quand je pense au nombre de fois que j'ai utilisé ce type de
"commutateur" !
Je me suis laissé "abusé" par le "UserForm_Initialize()" ; mauvaise piste
;-(
Merci beaucoup ; c'est parfait !

JP

"Philippe.R"
Bonsoir,
dans le module contenant la macro, par exemple, déclare une variable
publique, disons "nyvapa" à laquelle tu affectes le type booléen
dans la macro qui lance l'aperçu, en tête, tu indiques

nyvapa = true
et en fin de macro
nyvapaúlse

ensuite, tu modifies ainsi le code de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 17 and nyvapaúlse Then
Userform1.Show
End If
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"j-pascal" news:O%
Bonsoir,

Dans un module de Feuille, le code suivant fait apparaître un calendrier
:
'----
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 17 Then
Userform1.Show
End If
End Sub
'----

Problème : quand je lance une macro (qui affiche l' "aperçu avant
impression" après avoir trié une plage), étant donné que la
"Target.Column" est comprise dans cette plage, je me retrouve
systématiquement avec mon calendrier !

En fait, il s'ouvre sur la "commande" :
'-----
Private Sub UserForm_Initialize()
Me.Calendar1 = Date
End Sub
'-----

J'ai essayé bien des choses pour "shunter" l'apparition du calendrier
dans ce cas précis, mais je sèche !

Merci d'avance pour vos lumières,

JP







Publicité
Poster une réponse
Anonyme