| 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
| ‘’Calendrier_2x6’’ n’est pas exécutée)
*** Tu fais un test, si il y a égalité il va à zut ...Non ?
If Range("TEST").Value = Range("an").Value Then GoTo ZUT
*** En cours de procédure, si tu veux masquer le formulaire
utilise l'une de ces 2 commande après Userform1.hide
Userform1.repaint Or DoEvents
| 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
| ‘’Calendrier_2x6’’ n’est pas exécutée)
*** Tu fais un test, si il y a égalité il va à zut ...Non ?
If Range("TEST").Value = Range("an").Value Then GoTo ZUT
*** En cours de procédure, si tu veux masquer le formulaire
utilise l'une de ces 2 commande après Userform1.hide
Userform1.repaint Or DoEvents
| 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
| ‘’Calendrier_2x6’’ n’est pas exécutée)
*** Tu fais un test, si il y a égalité il va à zut ...Non ?
If Range("TEST").Value = Range("an").Value Then GoTo ZUT
*** En cours de procédure, si tu veux masquer le formulaire
utilise l'une de ces 2 commande après Userform1.hide
Userform1.repaint Or DoEvents
| 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
| ‘’Calendrier_2x6’’ n’est pas exécutée)
*** Tu fais un test, si il y a égalité il va à zut ...Non ?
If Range("TEST").Value = Range("an").Value Then GoTo ZUT
*** En cours de procédure, si tu veux masquer le formulaire
utilise l'une de ces 2 commande après Userform1.hide
Userform1.repaint Or DoEvents
| 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
| ‘’Calendrier_2x6’’ n’est pas exécutée)
*** Tu fais un test, si il y a égalité il va à zut ...Non ?
If Range("TEST").Value = Range("an").Value Then GoTo ZUT
*** En cours de procédure, si tu veux masquer le formulaire
utilise l'une de ces 2 commande après Userform1.hide
Userform1.repaint Or DoEvents
| 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
| ‘’Calendrier_2x6’’ n’est pas exécutée)
*** Tu fais un test, si il y a égalité il va à zut ...Non ?
If Range("TEST").Value = Range("an").Value Then GoTo ZUT
*** En cours de procédure, si tu veux masquer le formulaire
utilise l'une de ces 2 commande après Userform1.hide
Userform1.repaint Or DoEvents
Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
Tu veux de l'aide.... encore faut-il t'aider
"Jean-Paul V" a écrit dans le message de groupe de
discussion :
Bonjour Michdenis
J’ai fait les modif suivantes en vain :
Dim Désactiver As Boolean
Range("an").Value = SP_Annee.Value
Range("TITRE").Value = TextBox2.Value
UserForm1.Hide
UserForm1.Repaint
Feuil1.Range("A5").Select
If Range("TEST").Value = Range("an").Value Then GoTo ZUT
Call Calendrier_2x6
If OptionButton1.Value = True Then
UserForm2.Show
Else ....
....
End If
ZUT:
UserForm1.Hide
UserForm1.Repaint
If OptionButton1.Value = True Then
UserForm2.Show
ElseIf ....
...
End If
End Sub
J’ai les mêmes problèmes avec la macro suivante :
Private Sub ComboBox2_Change()
Dim b As String
Dim i As String
Dim Désactiver As Boolean
If Désactiver Then Exit Sub
' If ComboBox2.Value = "" Then Exit Sub
Désactiver = False
On Error Resume Next
Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
Range("CHOIXM").Value = ComboBox2.Value
ComboBox2.Visible = False
UserForm2.Hide
UserForm2.Repaint
b = ComboBox2.Value
Select Case b
Case "janvier"
Range("A4").NumberFormat = ";;;"
Call ImpressionMois
……..
Case Else
Exit Sub
End Select
Désactiver = True
ComboBox2.Value = ""
UserForm2.Hide
UserForm2.Repaint
End Sub
NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
Et tester la Macro avec Photo
A + j’espère
--
Jean-Paul V
"michdenis" wrote:
>
> | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> | ‘’Calendrier_2x6’’ n’est pas exécutée)
>
> *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> If Range("TEST").Value = Range("an").Value Then GoTo ZUT
>
> *** En cours de procédure, si tu veux masquer le formulaire
> utilise l'une de ces 2 commande après Userform1.hide
> Userform1.repaint Or DoEvents
>
>
>
Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
Tu veux de l'aide.... encore faut-il t'aider
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 8521426B-84D2-4207-AFB6-E7FE0AC137AF@microsoft.com...
Bonjour Michdenis
J’ai fait les modif suivantes en vain :
Dim Désactiver As Boolean
Range("an").Value = SP_Annee.Value
Range("TITRE").Value = TextBox2.Value
UserForm1.Hide
UserForm1.Repaint
Feuil1.Range("A5").Select
If Range("TEST").Value = Range("an").Value Then GoTo ZUT
Call Calendrier_2x6
If OptionButton1.Value = True Then
UserForm2.Show
Else ....
....
End If
ZUT:
UserForm1.Hide
UserForm1.Repaint
If OptionButton1.Value = True Then
UserForm2.Show
ElseIf ....
...
End If
End Sub
J’ai les mêmes problèmes avec la macro suivante :
Private Sub ComboBox2_Change()
Dim b As String
Dim i As String
Dim Désactiver As Boolean
If Désactiver Then Exit Sub
' If ComboBox2.Value = "" Then Exit Sub
Désactiver = False
On Error Resume Next
Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
Range("CHOIXM").Value = ComboBox2.Value
ComboBox2.Visible = False
UserForm2.Hide
UserForm2.Repaint
b = ComboBox2.Value
Select Case b
Case "janvier"
Range("A4").NumberFormat = ";;;"
Call ImpressionMois
……..
Case Else
Exit Sub
End Select
Désactiver = True
ComboBox2.Value = ""
UserForm2.Hide
UserForm2.Repaint
End Sub
NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
Et tester la Macro avec Photo
A + j’espère
--
Jean-Paul V
"michdenis" wrote:
>
> | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> | ‘’Calendrier_2x6’’ n’est pas exécutée)
>
> *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> If Range("TEST").Value = Range("an").Value Then GoTo ZUT
>
> *** En cours de procédure, si tu veux masquer le formulaire
> utilise l'une de ces 2 commande après Userform1.hide
> Userform1.repaint Or DoEvents
>
>
>
Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
Tu veux de l'aide.... encore faut-il t'aider
"Jean-Paul V" a écrit dans le message de groupe de
discussion :
Bonjour Michdenis
J’ai fait les modif suivantes en vain :
Dim Désactiver As Boolean
Range("an").Value = SP_Annee.Value
Range("TITRE").Value = TextBox2.Value
UserForm1.Hide
UserForm1.Repaint
Feuil1.Range("A5").Select
If Range("TEST").Value = Range("an").Value Then GoTo ZUT
Call Calendrier_2x6
If OptionButton1.Value = True Then
UserForm2.Show
Else ....
....
End If
ZUT:
UserForm1.Hide
UserForm1.Repaint
If OptionButton1.Value = True Then
UserForm2.Show
ElseIf ....
...
End If
End Sub
J’ai les mêmes problèmes avec la macro suivante :
Private Sub ComboBox2_Change()
Dim b As String
Dim i As String
Dim Désactiver As Boolean
If Désactiver Then Exit Sub
' If ComboBox2.Value = "" Then Exit Sub
Désactiver = False
On Error Resume Next
Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
Range("CHOIXM").Value = ComboBox2.Value
ComboBox2.Visible = False
UserForm2.Hide
UserForm2.Repaint
b = ComboBox2.Value
Select Case b
Case "janvier"
Range("A4").NumberFormat = ";;;"
Call ImpressionMois
……..
Case Else
Exit Sub
End Select
Désactiver = True
ComboBox2.Value = ""
UserForm2.Hide
UserForm2.Repaint
End Sub
NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
Et tester la Macro avec Photo
A + j’espère
--
Jean-Paul V
"michdenis" wrote:
>
> | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> | ‘’Calendrier_2x6’’ n’est pas exécutée)
>
> *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> If Range("TEST").Value = Range("an").Value Then GoTo ZUT
>
> *** En cours de procédure, si tu veux masquer le formulaire
> utilise l'une de ces 2 commande après Userform1.hide
> Userform1.repaint Or DoEvents
>
>
>
Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
Tu veux de l'aide.... encore faut-il t'aider
"Jean-Paul V" a écrit dans le message de groupe de
discussion :
Bonjour Michdenis
J’ai fait les modif suivantes en vain :
Dim Désactiver As Boolean
Range("an").Value = SP_Annee.Value
Range("TITRE").Value = TextBox2.Value
UserForm1.Hide
UserForm1.Repaint
Feuil1.Range("A5").Select
If Range("TEST").Value = Range("an").Value Then GoTo ZUT
Call Calendrier_2x6
If OptionButton1.Value = True Then
UserForm2.Show
Else ....
....
End If
ZUT:
UserForm1.Hide
UserForm1.Repaint
If OptionButton1.Value = True Then
UserForm2.Show
ElseIf ....
...
End If
End Sub
J’ai les mêmes problèmes avec la macro suivante :
Private Sub ComboBox2_Change()
Dim b As String
Dim i As String
Dim Désactiver As Boolean
If Désactiver Then Exit Sub
' If ComboBox2.Value = "" Then Exit Sub
Désactiver = False
On Error Resume Next
Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
Range("CHOIXM").Value = ComboBox2.Value
ComboBox2.Visible = False
UserForm2.Hide
UserForm2.Repaint
b = ComboBox2.Value
Select Case b
Case "janvier"
Range("A4").NumberFormat = ";;;"
Call ImpressionMois
……..
Case Else
Exit Sub
End Select
Désactiver = True
ComboBox2.Value = ""
UserForm2.Hide
UserForm2.Repaint
End Sub
NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
Et tester la Macro avec Photo
A + j’espère
--
Jean-Paul V
"michdenis" wrote:
>
> | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> | ‘’Calendrier_2x6’’ n’est pas exécutée)
>
> *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> If Range("TEST").Value = Range("an").Value Then GoTo ZUT
>
> *** En cours de procédure, si tu veux masquer le formulaire
> utilise l'une de ces 2 commande après Userform1.hide
> Userform1.repaint Or DoEvents
>
>
>
Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
Tu veux de l'aide.... encore faut-il t'aider
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 8521426B-84D2-4207-AFB6-E7FE0AC137AF@microsoft.com...
Bonjour Michdenis
J’ai fait les modif suivantes en vain :
Dim Désactiver As Boolean
Range("an").Value = SP_Annee.Value
Range("TITRE").Value = TextBox2.Value
UserForm1.Hide
UserForm1.Repaint
Feuil1.Range("A5").Select
If Range("TEST").Value = Range("an").Value Then GoTo ZUT
Call Calendrier_2x6
If OptionButton1.Value = True Then
UserForm2.Show
Else ....
....
End If
ZUT:
UserForm1.Hide
UserForm1.Repaint
If OptionButton1.Value = True Then
UserForm2.Show
ElseIf ....
...
End If
End Sub
J’ai les mêmes problèmes avec la macro suivante :
Private Sub ComboBox2_Change()
Dim b As String
Dim i As String
Dim Désactiver As Boolean
If Désactiver Then Exit Sub
' If ComboBox2.Value = "" Then Exit Sub
Désactiver = False
On Error Resume Next
Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
Range("CHOIXM").Value = ComboBox2.Value
ComboBox2.Visible = False
UserForm2.Hide
UserForm2.Repaint
b = ComboBox2.Value
Select Case b
Case "janvier"
Range("A4").NumberFormat = ";;;"
Call ImpressionMois
……..
Case Else
Exit Sub
End Select
Désactiver = True
ComboBox2.Value = ""
UserForm2.Hide
UserForm2.Repaint
End Sub
NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
Et tester la Macro avec Photo
A + j’espère
--
Jean-Paul V
"michdenis" wrote:
>
> | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> | ‘’Calendrier_2x6’’ n’est pas exécutée)
>
> *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> If Range("TEST").Value = Range("an").Value Then GoTo ZUT
>
> *** En cours de procédure, si tu veux masquer le formulaire
> utilise l'une de ces 2 commande après Userform1.hide
> Userform1.repaint Or DoEvents
>
>
>
Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
Tu veux de l'aide.... encore faut-il t'aider
"Jean-Paul V" a écrit dans le message de groupe de
discussion :
Bonjour Michdenis
J’ai fait les modif suivantes en vain :
Dim Désactiver As Boolean
Range("an").Value = SP_Annee.Value
Range("TITRE").Value = TextBox2.Value
UserForm1.Hide
UserForm1.Repaint
Feuil1.Range("A5").Select
If Range("TEST").Value = Range("an").Value Then GoTo ZUT
Call Calendrier_2x6
If OptionButton1.Value = True Then
UserForm2.Show
Else ....
....
End If
ZUT:
UserForm1.Hide
UserForm1.Repaint
If OptionButton1.Value = True Then
UserForm2.Show
ElseIf ....
...
End If
End Sub
J’ai les mêmes problèmes avec la macro suivante :
Private Sub ComboBox2_Change()
Dim b As String
Dim i As String
Dim Désactiver As Boolean
If Désactiver Then Exit Sub
' If ComboBox2.Value = "" Then Exit Sub
Désactiver = False
On Error Resume Next
Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
Range("CHOIXM").Value = ComboBox2.Value
ComboBox2.Visible = False
UserForm2.Hide
UserForm2.Repaint
b = ComboBox2.Value
Select Case b
Case "janvier"
Range("A4").NumberFormat = ";;;"
Call ImpressionMois
……..
Case Else
Exit Sub
End Select
Désactiver = True
ComboBox2.Value = ""
UserForm2.Hide
UserForm2.Repaint
End Sub
NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
Et tester la Macro avec Photo
A + j’espère
--
Jean-Paul V
"michdenis" wrote:
>
> | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> | ‘’Calendrier_2x6’’ n’est pas exécutée)
>
> *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> If Range("TEST").Value = Range("an").Value Then GoTo ZUT
>
> *** En cours de procédure, si tu veux masquer le formulaire
> utilise l'une de ces 2 commande après Userform1.hide
> Userform1.repaint Or DoEvents
>
>
>
http://cjoint.com/?cwvvyEaWkF
A ) Les événements Change des contrôles Textbox ou combobox
il faut oublier ça... à moins de savoir vraiment ce que tu fais et
d'être obligé de t'en servir ... cet événement n'est pas évident à
gérer.... je te suggère fortement l'utilisation de l'événement Clic.
J'ai modifié aussi la commande Userform2.show en une fenêtre
non modale -> Userform2.show 0 à 2 endroits
dans cette procédure : Private Sub CommandButton5_Click()
Dans la même procédure, j'ai ajouté
Application.ScreenUpdating = False 'Ajouter
Call Calendrier_2x6
Application.ScreenUpdating = True 'Ajouter
et supprimer la même commande dans l'événement de la feuille
ça devrait rouler
"Jean-Paul V" a écrit dans le message de groupe de
discussion :
Toutes mes excuses si je ne suis pas clair.
1) la Macro appelée lorsque l'on clic sur la zone de texte Avec Photo
s'appelle Menu
2) Cette macro ouvre le Userform1
3) Lorsque l'on fait le choix d'une impression Par mois la macro ( voir le
code du CommandButton5 OK) ferme le Userform1 et ouvre le Userform2 avec un
Combobox2 permettant de choisir quel mois on veut imprimer et c'est sur le
code du Combobox2 que nous avons le problème car une fois sur 2 le Userform2
ne souvre pas avec comme valeur du Combobox2 "" et dans ce cas après avoir
montré ce qui va s'imprimer le Userform2 une fois sur 2 ne se ferme pas .
Merci encore si vous pouvez m'aider.
NB : Les macros peuvent marcher sans photo y compris la macro Menu
--
Jean-Paul V
"michdenis" wrote:
> Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
>
> Tu veux de l'aide.... encore faut-il t'aider
>
>
>
>
> "Jean-Paul V" a écrit dans le message de groupe de
> discussion :
> Bonjour Michdenis
>
> J’ai fait les modif suivantes en vain :
>
> Dim Désactiver As Boolean
> Range("an").Value = SP_Annee.Value
> Range("TITRE").Value = TextBox2.Value
> UserForm1.Hide
> UserForm1.Repaint
> Feuil1.Range("A5").Select
> If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> Call Calendrier_2x6
> If OptionButton1.Value = True Then
> UserForm2.Show
> Else ....
> ....
> End If
> ZUT:
> UserForm1.Hide
> UserForm1.Repaint
> If OptionButton1.Value = True Then
> UserForm2.Show
> ElseIf ....
> ...
> End If
> End Sub
>
> J’ai les mêmes problèmes avec la macro suivante :
>
> Private Sub ComboBox2_Change()
> Dim b As String
> Dim i As String
> Dim Désactiver As Boolean
> If Désactiver Then Exit Sub
> ' If ComboBox2.Value = "" Then Exit Sub
> Désactiver = False
> On Error Resume Next
> Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
> Range("CHOIXM").Value = ComboBox2.Value
> ComboBox2.Visible = False
> UserForm2.Hide
> UserForm2.Repaint
> b = ComboBox2.Value
> Select Case b
> Case "janvier"
> Range("A4").NumberFormat = ";;;"
> Call ImpressionMois
> ……..
> Case Else
> Exit Sub
> End Select
>
> Désactiver = True
> ComboBox2.Value = ""
> UserForm2.Hide
> UserForm2.Repaint
>
> End Sub
>
> NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
> Et tester la Macro avec Photo
>
> A + j’espère
>
> --
> Jean-Paul V
>
>
> "michdenis" wrote:
>
> >
> > | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> > | ‘’Calendrier_2x6’’ n’est pas exécutée)
> >
> > *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> >
> > *** En cours de procédure, si tu veux masquer le formulaire
> > utilise l'une de ces 2 commande après Userform1.hide
> > Userform1.repaint Or DoEvents
> >
> >
> >
http://cjoint.com/?cwvvyEaWkF
A ) Les événements Change des contrôles Textbox ou combobox
il faut oublier ça... à moins de savoir vraiment ce que tu fais et
d'être obligé de t'en servir ... cet événement n'est pas évident à
gérer.... je te suggère fortement l'utilisation de l'événement Clic.
J'ai modifié aussi la commande Userform2.show en une fenêtre
non modale -> Userform2.show 0 à 2 endroits
dans cette procédure : Private Sub CommandButton5_Click()
Dans la même procédure, j'ai ajouté
Application.ScreenUpdating = False 'Ajouter
Call Calendrier_2x6
Application.ScreenUpdating = True 'Ajouter
et supprimer la même commande dans l'événement de la feuille
ça devrait rouler
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 2E529586-7E0C-4B8B-8757-3F2E61226E55@microsoft.com...
Toutes mes excuses si je ne suis pas clair.
1) la Macro appelée lorsque l'on clic sur la zone de texte Avec Photo
s'appelle Menu
2) Cette macro ouvre le Userform1
3) Lorsque l'on fait le choix d'une impression Par mois la macro ( voir le
code du CommandButton5 OK) ferme le Userform1 et ouvre le Userform2 avec un
Combobox2 permettant de choisir quel mois on veut imprimer et c'est sur le
code du Combobox2 que nous avons le problème car une fois sur 2 le Userform2
ne souvre pas avec comme valeur du Combobox2 "" et dans ce cas après avoir
montré ce qui va s'imprimer le Userform2 une fois sur 2 ne se ferme pas .
Merci encore si vous pouvez m'aider.
NB : Les macros peuvent marcher sans photo y compris la macro Menu
--
Jean-Paul V
"michdenis" wrote:
> Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
>
> Tu veux de l'aide.... encore faut-il t'aider
>
>
>
>
> "Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion : 8521426B-84D2-4207-AFB6-E7FE0AC137AF@microsoft.com...
> Bonjour Michdenis
>
> J’ai fait les modif suivantes en vain :
>
> Dim Désactiver As Boolean
> Range("an").Value = SP_Annee.Value
> Range("TITRE").Value = TextBox2.Value
> UserForm1.Hide
> UserForm1.Repaint
> Feuil1.Range("A5").Select
> If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> Call Calendrier_2x6
> If OptionButton1.Value = True Then
> UserForm2.Show
> Else ....
> ....
> End If
> ZUT:
> UserForm1.Hide
> UserForm1.Repaint
> If OptionButton1.Value = True Then
> UserForm2.Show
> ElseIf ....
> ...
> End If
> End Sub
>
> J’ai les mêmes problèmes avec la macro suivante :
>
> Private Sub ComboBox2_Change()
> Dim b As String
> Dim i As String
> Dim Désactiver As Boolean
> If Désactiver Then Exit Sub
> ' If ComboBox2.Value = "" Then Exit Sub
> Désactiver = False
> On Error Resume Next
> Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
> Range("CHOIXM").Value = ComboBox2.Value
> ComboBox2.Visible = False
> UserForm2.Hide
> UserForm2.Repaint
> b = ComboBox2.Value
> Select Case b
> Case "janvier"
> Range("A4").NumberFormat = ";;;"
> Call ImpressionMois
> ……..
> Case Else
> Exit Sub
> End Select
>
> Désactiver = True
> ComboBox2.Value = ""
> UserForm2.Hide
> UserForm2.Repaint
>
> End Sub
>
> NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
> Et tester la Macro avec Photo
>
> A + j’espère
>
> --
> Jean-Paul V
>
>
> "michdenis" wrote:
>
> >
> > | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> > | ‘’Calendrier_2x6’’ n’est pas exécutée)
> >
> > *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> >
> > *** En cours de procédure, si tu veux masquer le formulaire
> > utilise l'une de ces 2 commande après Userform1.hide
> > Userform1.repaint Or DoEvents
> >
> >
> >
http://cjoint.com/?cwvvyEaWkF
A ) Les événements Change des contrôles Textbox ou combobox
il faut oublier ça... à moins de savoir vraiment ce que tu fais et
d'être obligé de t'en servir ... cet événement n'est pas évident à
gérer.... je te suggère fortement l'utilisation de l'événement Clic.
J'ai modifié aussi la commande Userform2.show en une fenêtre
non modale -> Userform2.show 0 à 2 endroits
dans cette procédure : Private Sub CommandButton5_Click()
Dans la même procédure, j'ai ajouté
Application.ScreenUpdating = False 'Ajouter
Call Calendrier_2x6
Application.ScreenUpdating = True 'Ajouter
et supprimer la même commande dans l'événement de la feuille
ça devrait rouler
"Jean-Paul V" a écrit dans le message de groupe de
discussion :
Toutes mes excuses si je ne suis pas clair.
1) la Macro appelée lorsque l'on clic sur la zone de texte Avec Photo
s'appelle Menu
2) Cette macro ouvre le Userform1
3) Lorsque l'on fait le choix d'une impression Par mois la macro ( voir le
code du CommandButton5 OK) ferme le Userform1 et ouvre le Userform2 avec un
Combobox2 permettant de choisir quel mois on veut imprimer et c'est sur le
code du Combobox2 que nous avons le problème car une fois sur 2 le Userform2
ne souvre pas avec comme valeur du Combobox2 "" et dans ce cas après avoir
montré ce qui va s'imprimer le Userform2 une fois sur 2 ne se ferme pas .
Merci encore si vous pouvez m'aider.
NB : Les macros peuvent marcher sans photo y compris la macro Menu
--
Jean-Paul V
"michdenis" wrote:
> Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
>
> Tu veux de l'aide.... encore faut-il t'aider
>
>
>
>
> "Jean-Paul V" a écrit dans le message de groupe de
> discussion :
> Bonjour Michdenis
>
> J’ai fait les modif suivantes en vain :
>
> Dim Désactiver As Boolean
> Range("an").Value = SP_Annee.Value
> Range("TITRE").Value = TextBox2.Value
> UserForm1.Hide
> UserForm1.Repaint
> Feuil1.Range("A5").Select
> If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> Call Calendrier_2x6
> If OptionButton1.Value = True Then
> UserForm2.Show
> Else ....
> ....
> End If
> ZUT:
> UserForm1.Hide
> UserForm1.Repaint
> If OptionButton1.Value = True Then
> UserForm2.Show
> ElseIf ....
> ...
> End If
> End Sub
>
> J’ai les mêmes problèmes avec la macro suivante :
>
> Private Sub ComboBox2_Change()
> Dim b As String
> Dim i As String
> Dim Désactiver As Boolean
> If Désactiver Then Exit Sub
> ' If ComboBox2.Value = "" Then Exit Sub
> Désactiver = False
> On Error Resume Next
> Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
> Range("CHOIXM").Value = ComboBox2.Value
> ComboBox2.Visible = False
> UserForm2.Hide
> UserForm2.Repaint
> b = ComboBox2.Value
> Select Case b
> Case "janvier"
> Range("A4").NumberFormat = ";;;"
> Call ImpressionMois
> ……..
> Case Else
> Exit Sub
> End Select
>
> Désactiver = True
> ComboBox2.Value = ""
> UserForm2.Hide
> UserForm2.Repaint
>
> End Sub
>
> NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
> Et tester la Macro avec Photo
>
> A + j’espère
>
> --
> Jean-Paul V
>
>
> "michdenis" wrote:
>
> >
> > | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> > | ‘’Calendrier_2x6’’ n’est pas exécutée)
> >
> > *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> >
> > *** En cours de procédure, si tu veux masquer le formulaire
> > utilise l'une de ces 2 commande après Userform1.hide
> > Userform1.repaint Or DoEvents
> >
> >
> >
http://cjoint.com/?cwvvyEaWkF
A ) Les événements Change des contrôles Textbox ou combobox
il faut oublier ça... à moins de savoir vraiment ce que tu fais et
d'être obligé de t'en servir ... cet événement n'est pas évident à
gérer.... je te suggère fortement l'utilisation de l'événement Clic.
J'ai modifié aussi la commande Userform2.show en une fenêtre
non modale -> Userform2.show 0 à 2 endroits
dans cette procédure : Private Sub CommandButton5_Click()
Dans la même procédure, j'ai ajouté
Application.ScreenUpdating = False 'Ajouter
Call Calendrier_2x6
Application.ScreenUpdating = True 'Ajouter
et supprimer la même commande dans l'événement de la feuille
ça devrait rouler
"Jean-Paul V" a écrit dans le message de groupe de
discussion :
Toutes mes excuses si je ne suis pas clair.
1) la Macro appelée lorsque l'on clic sur la zone de texte Avec Photo
s'appelle Menu
2) Cette macro ouvre le Userform1
3) Lorsque l'on fait le choix d'une impression Par mois la macro ( voir le
code du CommandButton5 OK) ferme le Userform1 et ouvre le Userform2 avec un
Combobox2 permettant de choisir quel mois on veut imprimer et c'est sur le
code du Combobox2 que nous avons le problème car une fois sur 2 le Userform2
ne souvre pas avec comme valeur du Combobox2 "" et dans ce cas après avoir
montré ce qui va s'imprimer le Userform2 une fois sur 2 ne se ferme pas .
Merci encore si vous pouvez m'aider.
NB : Les macros peuvent marcher sans photo y compris la macro Menu
--
Jean-Paul V
"michdenis" wrote:
> Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
>
> Tu veux de l'aide.... encore faut-il t'aider
>
>
>
>
> "Jean-Paul V" a écrit dans le message de groupe
> de
> discussion :
> Bonjour Michdenis
>
> J’ai fait les modif suivantes en vain :
>
> Dim Désactiver As Boolean
> Range("an").Value = SP_Annee.Value
> Range("TITRE").Value = TextBox2.Value
> UserForm1.Hide
> UserForm1.Repaint
> Feuil1.Range("A5").Select
> If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> Call Calendrier_2x6
> If OptionButton1.Value = True Then
> UserForm2.Show
> Else ....
> ....
> End If
> ZUT:
> UserForm1.Hide
> UserForm1.Repaint
> If OptionButton1.Value = True Then
> UserForm2.Show
> ElseIf ....
> ...
> End If
> End Sub
>
> J’ai les mêmes problèmes avec la macro suivante :
>
> Private Sub ComboBox2_Change()
> Dim b As String
> Dim i As String
> Dim Désactiver As Boolean
> If Désactiver Then Exit Sub
> ' If ComboBox2.Value = "" Then Exit Sub
> Désactiver = False
> On Error Resume Next
> Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
> Range("CHOIXM").Value = ComboBox2.Value
> ComboBox2.Visible = False
> UserForm2.Hide
> UserForm2.Repaint
> b = ComboBox2.Value
> Select Case b
> Case "janvier"
> Range("A4").NumberFormat = ";;;"
> Call ImpressionMois
> ……..
> Case Else
> Exit Sub
> End Select
>
> Désactiver = True
> ComboBox2.Value = ""
> UserForm2.Hide
> UserForm2.Repaint
>
> End Sub
>
> NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
> Et tester la Macro avec Photo
>
> A + j’espère
>
> --
> Jean-Paul V
>
>
> "michdenis" wrote:
>
> >
> > | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> > | ‘’Calendrier_2x6’’ n’est pas exécutée)
> >
> > *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> >
> > *** En cours de procédure, si tu veux masquer le formulaire
> > utilise l'une de ces 2 commande après Userform1.hide
> > Userform1.repaint Or DoEvents
> >
> >
> >
http://cjoint.com/?cwvvyEaWkF
A ) Les événements Change des contrôles Textbox ou combobox
il faut oublier ça... à moins de savoir vraiment ce que tu fais et
d'être obligé de t'en servir ... cet événement n'est pas évident à
gérer.... je te suggère fortement l'utilisation de l'événement Clic.
J'ai modifié aussi la commande Userform2.show en une fenêtre
non modale -> Userform2.show 0 à 2 endroits
dans cette procédure : Private Sub CommandButton5_Click()
Dans la même procédure, j'ai ajouté
Application.ScreenUpdating = False 'Ajouter
Call Calendrier_2x6
Application.ScreenUpdating = True 'Ajouter
et supprimer la même commande dans l'événement de la feuille
ça devrait rouler
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 2E529586-7E0C-4B8B-8757-3F2E61226E55@microsoft.com...
Toutes mes excuses si je ne suis pas clair.
1) la Macro appelée lorsque l'on clic sur la zone de texte Avec Photo
s'appelle Menu
2) Cette macro ouvre le Userform1
3) Lorsque l'on fait le choix d'une impression Par mois la macro ( voir le
code du CommandButton5 OK) ferme le Userform1 et ouvre le Userform2 avec un
Combobox2 permettant de choisir quel mois on veut imprimer et c'est sur le
code du Combobox2 que nous avons le problème car une fois sur 2 le Userform2
ne souvre pas avec comme valeur du Combobox2 "" et dans ce cas après avoir
montré ce qui va s'imprimer le Userform2 une fois sur 2 ne se ferme pas .
Merci encore si vous pouvez m'aider.
NB : Les macros peuvent marcher sans photo y compris la macro Menu
--
Jean-Paul V
"michdenis" wrote:
> Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
>
> Tu veux de l'aide.... encore faut-il t'aider
>
>
>
>
> "Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de groupe
> de
> discussion : 8521426B-84D2-4207-AFB6-E7FE0AC137AF@microsoft.com...
> Bonjour Michdenis
>
> J’ai fait les modif suivantes en vain :
>
> Dim Désactiver As Boolean
> Range("an").Value = SP_Annee.Value
> Range("TITRE").Value = TextBox2.Value
> UserForm1.Hide
> UserForm1.Repaint
> Feuil1.Range("A5").Select
> If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> Call Calendrier_2x6
> If OptionButton1.Value = True Then
> UserForm2.Show
> Else ....
> ....
> End If
> ZUT:
> UserForm1.Hide
> UserForm1.Repaint
> If OptionButton1.Value = True Then
> UserForm2.Show
> ElseIf ....
> ...
> End If
> End Sub
>
> J’ai les mêmes problèmes avec la macro suivante :
>
> Private Sub ComboBox2_Change()
> Dim b As String
> Dim i As String
> Dim Désactiver As Boolean
> If Désactiver Then Exit Sub
> ' If ComboBox2.Value = "" Then Exit Sub
> Désactiver = False
> On Error Resume Next
> Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
> Range("CHOIXM").Value = ComboBox2.Value
> ComboBox2.Visible = False
> UserForm2.Hide
> UserForm2.Repaint
> b = ComboBox2.Value
> Select Case b
> Case "janvier"
> Range("A4").NumberFormat = ";;;"
> Call ImpressionMois
> ……..
> Case Else
> Exit Sub
> End Select
>
> Désactiver = True
> ComboBox2.Value = ""
> UserForm2.Hide
> UserForm2.Repaint
>
> End Sub
>
> NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
> Et tester la Macro avec Photo
>
> A + j’espère
>
> --
> Jean-Paul V
>
>
> "michdenis" wrote:
>
> >
> > | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> > | ‘’Calendrier_2x6’’ n’est pas exécutée)
> >
> > *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> >
> > *** En cours de procédure, si tu veux masquer le formulaire
> > utilise l'une de ces 2 commande après Userform1.hide
> > Userform1.repaint Or DoEvents
> >
> >
> >
http://cjoint.com/?cwvvyEaWkF
A ) Les événements Change des contrôles Textbox ou combobox
il faut oublier ça... à moins de savoir vraiment ce que tu fais et
d'être obligé de t'en servir ... cet événement n'est pas évident à
gérer.... je te suggère fortement l'utilisation de l'événement Clic.
J'ai modifié aussi la commande Userform2.show en une fenêtre
non modale -> Userform2.show 0 à 2 endroits
dans cette procédure : Private Sub CommandButton5_Click()
Dans la même procédure, j'ai ajouté
Application.ScreenUpdating = False 'Ajouter
Call Calendrier_2x6
Application.ScreenUpdating = True 'Ajouter
et supprimer la même commande dans l'événement de la feuille
ça devrait rouler
"Jean-Paul V" a écrit dans le message de groupe de
discussion :
Toutes mes excuses si je ne suis pas clair.
1) la Macro appelée lorsque l'on clic sur la zone de texte Avec Photo
s'appelle Menu
2) Cette macro ouvre le Userform1
3) Lorsque l'on fait le choix d'une impression Par mois la macro ( voir le
code du CommandButton5 OK) ferme le Userform1 et ouvre le Userform2 avec un
Combobox2 permettant de choisir quel mois on veut imprimer et c'est sur le
code du Combobox2 que nous avons le problème car une fois sur 2 le Userform2
ne souvre pas avec comme valeur du Combobox2 "" et dans ce cas après avoir
montré ce qui va s'imprimer le Userform2 une fois sur 2 ne se ferme pas .
Merci encore si vous pouvez m'aider.
NB : Les macros peuvent marcher sans photo y compris la macro Menu
--
Jean-Paul V
"michdenis" wrote:
> Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
>
> Tu veux de l'aide.... encore faut-il t'aider
>
>
>
>
> "Jean-Paul V" a écrit dans le message de groupe
> de
> discussion :
> Bonjour Michdenis
>
> J’ai fait les modif suivantes en vain :
>
> Dim Désactiver As Boolean
> Range("an").Value = SP_Annee.Value
> Range("TITRE").Value = TextBox2.Value
> UserForm1.Hide
> UserForm1.Repaint
> Feuil1.Range("A5").Select
> If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> Call Calendrier_2x6
> If OptionButton1.Value = True Then
> UserForm2.Show
> Else ....
> ....
> End If
> ZUT:
> UserForm1.Hide
> UserForm1.Repaint
> If OptionButton1.Value = True Then
> UserForm2.Show
> ElseIf ....
> ...
> End If
> End Sub
>
> J’ai les mêmes problèmes avec la macro suivante :
>
> Private Sub ComboBox2_Change()
> Dim b As String
> Dim i As String
> Dim Désactiver As Boolean
> If Désactiver Then Exit Sub
> ' If ComboBox2.Value = "" Then Exit Sub
> Désactiver = False
> On Error Resume Next
> Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
> Range("CHOIXM").Value = ComboBox2.Value
> ComboBox2.Visible = False
> UserForm2.Hide
> UserForm2.Repaint
> b = ComboBox2.Value
> Select Case b
> Case "janvier"
> Range("A4").NumberFormat = ";;;"
> Call ImpressionMois
> ……..
> Case Else
> Exit Sub
> End Select
>
> Désactiver = True
> ComboBox2.Value = ""
> UserForm2.Hide
> UserForm2.Repaint
>
> End Sub
>
> NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
> Et tester la Macro avec Photo
>
> A + j’espère
>
> --
> Jean-Paul V
>
>
> "michdenis" wrote:
>
> >
> > | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> > | ‘’Calendrier_2x6’’ n’est pas exécutée)
> >
> > *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> >
> > *** En cours de procédure, si tu veux masquer le formulaire
> > utilise l'une de ces 2 commande après Userform1.hide
> > Userform1.repaint Or DoEvents
> >
> >
> >
http://cjoint.com/?cxnlVM4Zsq
P.S - Il y a encore place à amélioration...!
Je ne me suis pas engagé à revoir et à tester tout le code de ton projet !
Ce n'était pas l'objet de ta question.
"Jean-Paul V" a écrit dans le message de groupe de
discussion :
Merci michdenis
C'est mieux mais ce n'est pas parfait, car si vous demadez un mois et que
tout ce passe bien, si vous demandez à nouveau un mois le Userform2 se ferme
bien mais pas le Combobox2 ce qui est facheux car ceci nous cache
partiellement la prévisualisation de l'impression.
--
Jean-Paul V
"michdenis" a écrit :
>
> http://cjoint.com/?cwvvyEaWkF
>
> A ) Les événements Change des contrôles Textbox ou combobox
> il faut oublier ça... à moins de savoir vraiment ce que tu fais et
> d'être obligé de t'en servir ... cet événement n'est pas évident à
> gérer.... je te suggère fortement l'utilisation de l'événement Clic.
>
> J'ai modifié aussi la commande Userform2.show en une fenêtre
> non modale -> Userform2.show 0 à 2 endroits
> dans cette procédure : Private Sub CommandButton5_Click()
>
> Dans la même procédure, j'ai ajouté
> Application.ScreenUpdating = False 'Ajouter
> Call Calendrier_2x6
> Application.ScreenUpdating = True 'Ajouter
> et supprimer la même commande dans l'événement de la feuille
>
> ça devrait rouler
>
>
> "Jean-Paul V" a écrit dans le message de groupe de
> discussion :
> Toutes mes excuses si je ne suis pas clair.
> 1) la Macro appelée lorsque l'on clic sur la zone de texte Avec Photo
> s'appelle Menu
> 2) Cette macro ouvre le Userform1
> 3) Lorsque l'on fait le choix d'une impression Par mois la macro ( voir le
> code du CommandButton5 OK) ferme le Userform1 et ouvre le Userform2 avec un
> Combobox2 permettant de choisir quel mois on veut imprimer et c'est sur le
> code du Combobox2 que nous avons le problème car une fois sur 2 le Userform2
> ne souvre pas avec comme valeur du Combobox2 "" et dans ce cas après avoir
> montré ce qui va s'imprimer le Userform2 une fois sur 2 ne se ferme pas .
> Merci encore si vous pouvez m'aider.
> NB : Les macros peuvent marcher sans photo y compris la macro Menu
>
>
> --
> Jean-Paul V
>
>
> "michdenis" wrote:
>
> > Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
> >
> > Tu veux de l'aide.... encore faut-il t'aider
> >
> >
> >
> >
> > "Jean-Paul V" a écrit dans le message de groupe
> > de
> > discussion :
> > Bonjour Michdenis
> >
> > J’ai fait les modif suivantes en vain :
> >
> > Dim Désactiver As Boolean
> > Range("an").Value = SP_Annee.Value
> > Range("TITRE").Value = TextBox2.Value
> > UserForm1.Hide
> > UserForm1.Repaint
> > Feuil1.Range("A5").Select
> > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> > Call Calendrier_2x6
> > If OptionButton1.Value = True Then
> > UserForm2.Show
> > Else ....
> > ....
> > End If
> > ZUT:
> > UserForm1.Hide
> > UserForm1.Repaint
> > If OptionButton1.Value = True Then
> > UserForm2.Show
> > ElseIf ....
> > ...
> > End If
> > End Sub
> >
> > J’ai les mêmes problèmes avec la macro suivante :
> >
> > Private Sub ComboBox2_Change()
> > Dim b As String
> > Dim i As String
> > Dim Désactiver As Boolean
> > If Désactiver Then Exit Sub
> > ' If ComboBox2.Value = "" Then Exit Sub
> > Désactiver = False
> > On Error Resume Next
> > Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
> > Range("CHOIXM").Value = ComboBox2.Value
> > ComboBox2.Visible = False
> > UserForm2.Hide
> > UserForm2.Repaint
> > b = ComboBox2.Value
> > Select Case b
> > Case "janvier"
> > Range("A4").NumberFormat = ";;;"
> > Call ImpressionMois
> > ……..
> > Case Else
> > Exit Sub
> > End Select
> >
> > Désactiver = True
> > ComboBox2.Value = ""
> > UserForm2.Hide
> > UserForm2.Repaint
> >
> > End Sub
> >
> > NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
> > Et tester la Macro avec Photo
> >
> > A + j’espère
> >
> > --
> > Jean-Paul V
> >
> >
> > "michdenis" wrote:
> >
> > >
> > > | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> > > | ‘’Calendrier_2x6’’ n’est pas exécutée)
> > >
> > > *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> > > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> > >
> > > *** En cours de procédure, si tu veux masquer le formulaire
> > > utilise l'une de ces 2 commande après Userform1.hide
> > > Userform1.repaint Or DoEvents
> > >
> > >
> > >
http://cjoint.com/?cxnlVM4Zsq
P.S - Il y a encore place à amélioration...!
Je ne me suis pas engagé à revoir et à tester tout le code de ton projet !
Ce n'était pas l'objet de ta question.
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : D82DD77E-4BFA-4484-ABC5-C3BE19E11EF9@microsoft.com...
Merci michdenis
C'est mieux mais ce n'est pas parfait, car si vous demadez un mois et que
tout ce passe bien, si vous demandez à nouveau un mois le Userform2 se ferme
bien mais pas le Combobox2 ce qui est facheux car ceci nous cache
partiellement la prévisualisation de l'impression.
--
Jean-Paul V
"michdenis" a écrit :
>
> http://cjoint.com/?cwvvyEaWkF
>
> A ) Les événements Change des contrôles Textbox ou combobox
> il faut oublier ça... à moins de savoir vraiment ce que tu fais et
> d'être obligé de t'en servir ... cet événement n'est pas évident à
> gérer.... je te suggère fortement l'utilisation de l'événement Clic.
>
> J'ai modifié aussi la commande Userform2.show en une fenêtre
> non modale -> Userform2.show 0 à 2 endroits
> dans cette procédure : Private Sub CommandButton5_Click()
>
> Dans la même procédure, j'ai ajouté
> Application.ScreenUpdating = False 'Ajouter
> Call Calendrier_2x6
> Application.ScreenUpdating = True 'Ajouter
> et supprimer la même commande dans l'événement de la feuille
>
> ça devrait rouler
>
>
> "Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion : 2E529586-7E0C-4B8B-8757-3F2E61226E55@microsoft.com...
> Toutes mes excuses si je ne suis pas clair.
> 1) la Macro appelée lorsque l'on clic sur la zone de texte Avec Photo
> s'appelle Menu
> 2) Cette macro ouvre le Userform1
> 3) Lorsque l'on fait le choix d'une impression Par mois la macro ( voir le
> code du CommandButton5 OK) ferme le Userform1 et ouvre le Userform2 avec un
> Combobox2 permettant de choisir quel mois on veut imprimer et c'est sur le
> code du Combobox2 que nous avons le problème car une fois sur 2 le Userform2
> ne souvre pas avec comme valeur du Combobox2 "" et dans ce cas après avoir
> montré ce qui va s'imprimer le Userform2 une fois sur 2 ne se ferme pas .
> Merci encore si vous pouvez m'aider.
> NB : Les macros peuvent marcher sans photo y compris la macro Menu
>
>
> --
> Jean-Paul V
>
>
> "michdenis" wrote:
>
> > Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
> >
> > Tu veux de l'aide.... encore faut-il t'aider
> >
> >
> >
> >
> > "Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de groupe
> > de
> > discussion : 8521426B-84D2-4207-AFB6-E7FE0AC137AF@microsoft.com...
> > Bonjour Michdenis
> >
> > J’ai fait les modif suivantes en vain :
> >
> > Dim Désactiver As Boolean
> > Range("an").Value = SP_Annee.Value
> > Range("TITRE").Value = TextBox2.Value
> > UserForm1.Hide
> > UserForm1.Repaint
> > Feuil1.Range("A5").Select
> > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> > Call Calendrier_2x6
> > If OptionButton1.Value = True Then
> > UserForm2.Show
> > Else ....
> > ....
> > End If
> > ZUT:
> > UserForm1.Hide
> > UserForm1.Repaint
> > If OptionButton1.Value = True Then
> > UserForm2.Show
> > ElseIf ....
> > ...
> > End If
> > End Sub
> >
> > J’ai les mêmes problèmes avec la macro suivante :
> >
> > Private Sub ComboBox2_Change()
> > Dim b As String
> > Dim i As String
> > Dim Désactiver As Boolean
> > If Désactiver Then Exit Sub
> > ' If ComboBox2.Value = "" Then Exit Sub
> > Désactiver = False
> > On Error Resume Next
> > Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
> > Range("CHOIXM").Value = ComboBox2.Value
> > ComboBox2.Visible = False
> > UserForm2.Hide
> > UserForm2.Repaint
> > b = ComboBox2.Value
> > Select Case b
> > Case "janvier"
> > Range("A4").NumberFormat = ";;;"
> > Call ImpressionMois
> > ……..
> > Case Else
> > Exit Sub
> > End Select
> >
> > Désactiver = True
> > ComboBox2.Value = ""
> > UserForm2.Hide
> > UserForm2.Repaint
> >
> > End Sub
> >
> > NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
> > Et tester la Macro avec Photo
> >
> > A + j’espère
> >
> > --
> > Jean-Paul V
> >
> >
> > "michdenis" wrote:
> >
> > >
> > > | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> > > | ‘’Calendrier_2x6’’ n’est pas exécutée)
> > >
> > > *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> > > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> > >
> > > *** En cours de procédure, si tu veux masquer le formulaire
> > > utilise l'une de ces 2 commande après Userform1.hide
> > > Userform1.repaint Or DoEvents
> > >
> > >
> > >
http://cjoint.com/?cxnlVM4Zsq
P.S - Il y a encore place à amélioration...!
Je ne me suis pas engagé à revoir et à tester tout le code de ton projet !
Ce n'était pas l'objet de ta question.
"Jean-Paul V" a écrit dans le message de groupe de
discussion :
Merci michdenis
C'est mieux mais ce n'est pas parfait, car si vous demadez un mois et que
tout ce passe bien, si vous demandez à nouveau un mois le Userform2 se ferme
bien mais pas le Combobox2 ce qui est facheux car ceci nous cache
partiellement la prévisualisation de l'impression.
--
Jean-Paul V
"michdenis" a écrit :
>
> http://cjoint.com/?cwvvyEaWkF
>
> A ) Les événements Change des contrôles Textbox ou combobox
> il faut oublier ça... à moins de savoir vraiment ce que tu fais et
> d'être obligé de t'en servir ... cet événement n'est pas évident à
> gérer.... je te suggère fortement l'utilisation de l'événement Clic.
>
> J'ai modifié aussi la commande Userform2.show en une fenêtre
> non modale -> Userform2.show 0 à 2 endroits
> dans cette procédure : Private Sub CommandButton5_Click()
>
> Dans la même procédure, j'ai ajouté
> Application.ScreenUpdating = False 'Ajouter
> Call Calendrier_2x6
> Application.ScreenUpdating = True 'Ajouter
> et supprimer la même commande dans l'événement de la feuille
>
> ça devrait rouler
>
>
> "Jean-Paul V" a écrit dans le message de groupe de
> discussion :
> Toutes mes excuses si je ne suis pas clair.
> 1) la Macro appelée lorsque l'on clic sur la zone de texte Avec Photo
> s'appelle Menu
> 2) Cette macro ouvre le Userform1
> 3) Lorsque l'on fait le choix d'une impression Par mois la macro ( voir le
> code du CommandButton5 OK) ferme le Userform1 et ouvre le Userform2 avec un
> Combobox2 permettant de choisir quel mois on veut imprimer et c'est sur le
> code du Combobox2 que nous avons le problème car une fois sur 2 le Userform2
> ne souvre pas avec comme valeur du Combobox2 "" et dans ce cas après avoir
> montré ce qui va s'imprimer le Userform2 une fois sur 2 ne se ferme pas .
> Merci encore si vous pouvez m'aider.
> NB : Les macros peuvent marcher sans photo y compris la macro Menu
>
>
> --
> Jean-Paul V
>
>
> "michdenis" wrote:
>
> > Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
> >
> > Tu veux de l'aide.... encore faut-il t'aider
> >
> >
> >
> >
> > "Jean-Paul V" a écrit dans le message de groupe
> > de
> > discussion :
> > Bonjour Michdenis
> >
> > J’ai fait les modif suivantes en vain :
> >
> > Dim Désactiver As Boolean
> > Range("an").Value = SP_Annee.Value
> > Range("TITRE").Value = TextBox2.Value
> > UserForm1.Hide
> > UserForm1.Repaint
> > Feuil1.Range("A5").Select
> > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> > Call Calendrier_2x6
> > If OptionButton1.Value = True Then
> > UserForm2.Show
> > Else ....
> > ....
> > End If
> > ZUT:
> > UserForm1.Hide
> > UserForm1.Repaint
> > If OptionButton1.Value = True Then
> > UserForm2.Show
> > ElseIf ....
> > ...
> > End If
> > End Sub
> >
> > J’ai les mêmes problèmes avec la macro suivante :
> >
> > Private Sub ComboBox2_Change()
> > Dim b As String
> > Dim i As String
> > Dim Désactiver As Boolean
> > If Désactiver Then Exit Sub
> > ' If ComboBox2.Value = "" Then Exit Sub
> > Désactiver = False
> > On Error Resume Next
> > Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
> > Range("CHOIXM").Value = ComboBox2.Value
> > ComboBox2.Visible = False
> > UserForm2.Hide
> > UserForm2.Repaint
> > b = ComboBox2.Value
> > Select Case b
> > Case "janvier"
> > Range("A4").NumberFormat = ";;;"
> > Call ImpressionMois
> > ……..
> > Case Else
> > Exit Sub
> > End Select
> >
> > Désactiver = True
> > ComboBox2.Value = ""
> > UserForm2.Hide
> > UserForm2.Repaint
> >
> > End Sub
> >
> > NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
> > Et tester la Macro avec Photo
> >
> > A + j’espère
> >
> > --
> > Jean-Paul V
> >
> >
> > "michdenis" wrote:
> >
> > >
> > > | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> > > | ‘’Calendrier_2x6’’ n’est pas exécutée)
> > >
> > > *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> > > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> > >
> > > *** En cours de procédure, si tu veux masquer le formulaire
> > > utilise l'une de ces 2 commande après Userform1.hide
> > > Userform1.repaint Or DoEvents
> > >
> > >
> > >
http://cjoint.com/?cxnlVM4Zsq
P.S - Il y a encore place à amélioration...!
Je ne me suis pas engagé à revoir et à tester tout le code de ton projet !
Ce n'était pas l'objet de ta question.
"Jean-Paul V" a écrit dans le message de groupe de
discussion :
Merci michdenis
C'est mieux mais ce n'est pas parfait, car si vous demadez un mois et que
tout ce passe bien, si vous demandez à nouveau un mois le Userform2 se ferme
bien mais pas le Combobox2 ce qui est facheux car ceci nous cache
partiellement la prévisualisation de l'impression.
--
Jean-Paul V
"michdenis" a écrit :
>
> http://cjoint.com/?cwvvyEaWkF
>
> A ) Les événements Change des contrôles Textbox ou combobox
> il faut oublier ça... à moins de savoir vraiment ce que tu fais et
> d'être obligé de t'en servir ... cet événement n'est pas évident à
> gérer.... je te suggère fortement l'utilisation de l'événement Clic.
>
> J'ai modifié aussi la commande Userform2.show en une fenêtre
> non modale -> Userform2.show 0 à 2 endroits
> dans cette procédure : Private Sub CommandButton5_Click()
>
> Dans la même procédure, j'ai ajouté
> Application.ScreenUpdating = False 'Ajouter
> Call Calendrier_2x6
> Application.ScreenUpdating = True 'Ajouter
> et supprimer la même commande dans l'événement de la feuille
>
> ça devrait rouler
>
>
> "Jean-Paul V" a écrit dans le message de groupe
> de
> discussion :
> Toutes mes excuses si je ne suis pas clair.
> 1) la Macro appelée lorsque l'on clic sur la zone de texte Avec Photo
> s'appelle Menu
> 2) Cette macro ouvre le Userform1
> 3) Lorsque l'on fait le choix d'une impression Par mois la macro ( voir le
> code du CommandButton5 OK) ferme le Userform1 et ouvre le Userform2 avec un
> Combobox2 permettant de choisir quel mois on veut imprimer et c'est sur le
> code du Combobox2 que nous avons le problème car une fois sur 2 le Userform2
> ne souvre pas avec comme valeur du Combobox2 "" et dans ce cas après avoir
> montré ce qui va s'imprimer le Userform2 une fois sur 2 ne se ferme pas .
> Merci encore si vous pouvez m'aider.
> NB : Les macros peuvent marcher sans photo y compris la macro Menu
>
>
> --
> Jean-Paul V
>
>
> "michdenis" wrote:
>
> > Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
> >
> > Tu veux de l'aide.... encore faut-il t'aider
> >
> >
> >
> >
> > "Jean-Paul V" a écrit dans le message de
> > groupe
> > de
> > discussion :
> > Bonjour Michdenis
> >
> > J’ai fait les modif suivantes en vain :
> >
> > Dim Désactiver As Boolean
> > Range("an").Value = SP_Annee.Value
> > Range("TITRE").Value = TextBox2.Value
> > UserForm1.Hide
> > UserForm1.Repaint
> > Feuil1.Range("A5").Select
> > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> > Call Calendrier_2x6
> > If OptionButton1.Value = True Then
> > UserForm2.Show
> > Else ....
> > ....
> > End If
> > ZUT:
> > UserForm1.Hide
> > UserForm1.Repaint
> > If OptionButton1.Value = True Then
> > UserForm2.Show
> > ElseIf ....
> > ...
> > End If
> > End Sub
> >
> > J’ai les mêmes problèmes avec la macro suivante :
> >
> > Private Sub ComboBox2_Change()
> > Dim b As String
> > Dim i As String
> > Dim Désactiver As Boolean
> > If Désactiver Then Exit Sub
> > ' If ComboBox2.Value = "" Then Exit Sub
> > Désactiver = False
> > On Error Resume Next
> > Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
> > Range("CHOIXM").Value = ComboBox2.Value
> > ComboBox2.Visible = False
> > UserForm2.Hide
> > UserForm2.Repaint
> > b = ComboBox2.Value
> > Select Case b
> > Case "janvier"
> > Range("A4").NumberFormat = ";;;"
> > Call ImpressionMois
> > ……..
> > Case Else
> > Exit Sub
> > End Select
> >
> > Désactiver = True
> > ComboBox2.Value = ""
> > UserForm2.Hide
> > UserForm2.Repaint
> >
> > End Sub
> >
> > NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
> > Et tester la Macro avec Photo
> >
> > A + j’espère
> >
> > --
> > Jean-Paul V
> >
> >
> > "michdenis" wrote:
> >
> > >
> > > | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> > > | ‘’Calendrier_2x6’’ n’est pas exécutée)
> > >
> > > *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> > > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> > >
> > > *** En cours de procédure, si tu veux masquer le formulaire
> > > utilise l'une de ces 2 commande après Userform1.hide
> > > Userform1.repaint Or DoEvents
> > >
> > >
> > >
http://cjoint.com/?cxnlVM4Zsq
P.S - Il y a encore place à amélioration...!
Je ne me suis pas engagé à revoir et à tester tout le code de ton projet !
Ce n'était pas l'objet de ta question.
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : D82DD77E-4BFA-4484-ABC5-C3BE19E11EF9@microsoft.com...
Merci michdenis
C'est mieux mais ce n'est pas parfait, car si vous demadez un mois et que
tout ce passe bien, si vous demandez à nouveau un mois le Userform2 se ferme
bien mais pas le Combobox2 ce qui est facheux car ceci nous cache
partiellement la prévisualisation de l'impression.
--
Jean-Paul V
"michdenis" a écrit :
>
> http://cjoint.com/?cwvvyEaWkF
>
> A ) Les événements Change des contrôles Textbox ou combobox
> il faut oublier ça... à moins de savoir vraiment ce que tu fais et
> d'être obligé de t'en servir ... cet événement n'est pas évident à
> gérer.... je te suggère fortement l'utilisation de l'événement Clic.
>
> J'ai modifié aussi la commande Userform2.show en une fenêtre
> non modale -> Userform2.show 0 à 2 endroits
> dans cette procédure : Private Sub CommandButton5_Click()
>
> Dans la même procédure, j'ai ajouté
> Application.ScreenUpdating = False 'Ajouter
> Call Calendrier_2x6
> Application.ScreenUpdating = True 'Ajouter
> et supprimer la même commande dans l'événement de la feuille
>
> ça devrait rouler
>
>
> "Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de groupe
> de
> discussion : 2E529586-7E0C-4B8B-8757-3F2E61226E55@microsoft.com...
> Toutes mes excuses si je ne suis pas clair.
> 1) la Macro appelée lorsque l'on clic sur la zone de texte Avec Photo
> s'appelle Menu
> 2) Cette macro ouvre le Userform1
> 3) Lorsque l'on fait le choix d'une impression Par mois la macro ( voir le
> code du CommandButton5 OK) ferme le Userform1 et ouvre le Userform2 avec un
> Combobox2 permettant de choisir quel mois on veut imprimer et c'est sur le
> code du Combobox2 que nous avons le problème car une fois sur 2 le Userform2
> ne souvre pas avec comme valeur du Combobox2 "" et dans ce cas après avoir
> montré ce qui va s'imprimer le Userform2 une fois sur 2 ne se ferme pas .
> Merci encore si vous pouvez m'aider.
> NB : Les macros peuvent marcher sans photo y compris la macro Menu
>
>
> --
> Jean-Paul V
>
>
> "michdenis" wrote:
>
> > Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
> >
> > Tu veux de l'aide.... encore faut-il t'aider
> >
> >
> >
> >
> > "Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de
> > groupe
> > de
> > discussion : 8521426B-84D2-4207-AFB6-E7FE0AC137AF@microsoft.com...
> > Bonjour Michdenis
> >
> > J’ai fait les modif suivantes en vain :
> >
> > Dim Désactiver As Boolean
> > Range("an").Value = SP_Annee.Value
> > Range("TITRE").Value = TextBox2.Value
> > UserForm1.Hide
> > UserForm1.Repaint
> > Feuil1.Range("A5").Select
> > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> > Call Calendrier_2x6
> > If OptionButton1.Value = True Then
> > UserForm2.Show
> > Else ....
> > ....
> > End If
> > ZUT:
> > UserForm1.Hide
> > UserForm1.Repaint
> > If OptionButton1.Value = True Then
> > UserForm2.Show
> > ElseIf ....
> > ...
> > End If
> > End Sub
> >
> > J’ai les mêmes problèmes avec la macro suivante :
> >
> > Private Sub ComboBox2_Change()
> > Dim b As String
> > Dim i As String
> > Dim Désactiver As Boolean
> > If Désactiver Then Exit Sub
> > ' If ComboBox2.Value = "" Then Exit Sub
> > Désactiver = False
> > On Error Resume Next
> > Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
> > Range("CHOIXM").Value = ComboBox2.Value
> > ComboBox2.Visible = False
> > UserForm2.Hide
> > UserForm2.Repaint
> > b = ComboBox2.Value
> > Select Case b
> > Case "janvier"
> > Range("A4").NumberFormat = ";;;"
> > Call ImpressionMois
> > ……..
> > Case Else
> > Exit Sub
> > End Select
> >
> > Désactiver = True
> > ComboBox2.Value = ""
> > UserForm2.Hide
> > UserForm2.Repaint
> >
> > End Sub
> >
> > NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
> > Et tester la Macro avec Photo
> >
> > A + j’espère
> >
> > --
> > Jean-Paul V
> >
> >
> > "michdenis" wrote:
> >
> > >
> > > | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> > > | ‘’Calendrier_2x6’’ n’est pas exécutée)
> > >
> > > *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> > > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> > >
> > > *** En cours de procédure, si tu veux masquer le formulaire
> > > utilise l'une de ces 2 commande après Userform1.hide
> > > Userform1.repaint Or DoEvents
> > >
> > >
> > >
http://cjoint.com/?cxnlVM4Zsq
P.S - Il y a encore place à amélioration...!
Je ne me suis pas engagé à revoir et à tester tout le code de ton projet !
Ce n'était pas l'objet de ta question.
"Jean-Paul V" a écrit dans le message de groupe de
discussion :
Merci michdenis
C'est mieux mais ce n'est pas parfait, car si vous demadez un mois et que
tout ce passe bien, si vous demandez à nouveau un mois le Userform2 se ferme
bien mais pas le Combobox2 ce qui est facheux car ceci nous cache
partiellement la prévisualisation de l'impression.
--
Jean-Paul V
"michdenis" a écrit :
>
> http://cjoint.com/?cwvvyEaWkF
>
> A ) Les événements Change des contrôles Textbox ou combobox
> il faut oublier ça... à moins de savoir vraiment ce que tu fais et
> d'être obligé de t'en servir ... cet événement n'est pas évident à
> gérer.... je te suggère fortement l'utilisation de l'événement Clic.
>
> J'ai modifié aussi la commande Userform2.show en une fenêtre
> non modale -> Userform2.show 0 à 2 endroits
> dans cette procédure : Private Sub CommandButton5_Click()
>
> Dans la même procédure, j'ai ajouté
> Application.ScreenUpdating = False 'Ajouter
> Call Calendrier_2x6
> Application.ScreenUpdating = True 'Ajouter
> et supprimer la même commande dans l'événement de la feuille
>
> ça devrait rouler
>
>
> "Jean-Paul V" a écrit dans le message de groupe
> de
> discussion :
> Toutes mes excuses si je ne suis pas clair.
> 1) la Macro appelée lorsque l'on clic sur la zone de texte Avec Photo
> s'appelle Menu
> 2) Cette macro ouvre le Userform1
> 3) Lorsque l'on fait le choix d'une impression Par mois la macro ( voir le
> code du CommandButton5 OK) ferme le Userform1 et ouvre le Userform2 avec un
> Combobox2 permettant de choisir quel mois on veut imprimer et c'est sur le
> code du Combobox2 que nous avons le problème car une fois sur 2 le Userform2
> ne souvre pas avec comme valeur du Combobox2 "" et dans ce cas après avoir
> montré ce qui va s'imprimer le Userform2 une fois sur 2 ne se ferme pas .
> Merci encore si vous pouvez m'aider.
> NB : Les macros peuvent marcher sans photo y compris la macro Menu
>
>
> --
> Jean-Paul V
>
>
> "michdenis" wrote:
>
> > Écoute, je ne suis pas payé pour chercher quelle macro et où elle est !
> >
> > Tu veux de l'aide.... encore faut-il t'aider
> >
> >
> >
> >
> > "Jean-Paul V" a écrit dans le message de
> > groupe
> > de
> > discussion :
> > Bonjour Michdenis
> >
> > J’ai fait les modif suivantes en vain :
> >
> > Dim Désactiver As Boolean
> > Range("an").Value = SP_Annee.Value
> > Range("TITRE").Value = TextBox2.Value
> > UserForm1.Hide
> > UserForm1.Repaint
> > Feuil1.Range("A5").Select
> > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> > Call Calendrier_2x6
> > If OptionButton1.Value = True Then
> > UserForm2.Show
> > Else ....
> > ....
> > End If
> > ZUT:
> > UserForm1.Hide
> > UserForm1.Repaint
> > If OptionButton1.Value = True Then
> > UserForm2.Show
> > ElseIf ....
> > ...
> > End If
> > End Sub
> >
> > J’ai les mêmes problèmes avec la macro suivante :
> >
> > Private Sub ComboBox2_Change()
> > Dim b As String
> > Dim i As String
> > Dim Désactiver As Boolean
> > If Désactiver Then Exit Sub
> > ' If ComboBox2.Value = "" Then Exit Sub
> > Désactiver = False
> > On Error Resume Next
> > Range("TITRE").Value = TextBox2.Value ‘ne marche pas ?
> > Range("CHOIXM").Value = ComboBox2.Value
> > ComboBox2.Visible = False
> > UserForm2.Hide
> > UserForm2.Repaint
> > b = ComboBox2.Value
> > Select Case b
> > Case "janvier"
> > Range("A4").NumberFormat = ";;;"
> > Call ImpressionMois
> > ……..
> > Case Else
> > Exit Sub
> > End Select
> >
> > Désactiver = True
> > ComboBox2.Value = ""
> > UserForm2.Hide
> > UserForm2.Repaint
> >
> > End Sub
> >
> > NB : Voir fichier modifier dans Cjoint : http://cjoint.com/?cwsjvKeg2E
> > Et tester la Macro avec Photo
> >
> > A + j’espère
> >
> > --
> > Jean-Paul V
> >
> >
> > "michdenis" wrote:
> >
> > >
> > > | 1 ) Pourquoi lorsque l’on est dans le cas où l’année ne change pas, (donc
> > > | ‘’Calendrier_2x6’’ n’est pas exécutée)
> > >
> > > *** Tu fais un test, si il y a égalité il va à zut ...Non ?
> > > If Range("TEST").Value = Range("an").Value Then GoTo ZUT
> > >
> > > *** En cours de procédure, si tu veux masquer le formulaire
> > > utilise l'une de ces 2 commande après Userform1.hide
> > > Userform1.repaint Or DoEvents
> > >
> > >
> > >