Bonsoir,
Est il possible de désactiver temporairement un usf?
je m'explique
Quand la cellule B2 de ma page principale est active un usf s'ouvre automatiquement, jusque la tout va bien, je remplis celle ci et à la fin du mois, je dois cloturer et fermer celle ci pour qu'une nouvelle page soit générée. Pour la fermeture, j'ai douze boutons 1 pour chaque mois de l'année, quand je clique sur un bouton cela déclenche une macro qui va sélectioner la plage de cellule de la page principale à imprimer et bien sur la cellule B2 ce qui occasione l'ouverture du userform en question et me bloque le programme car je ne peut pas fermer l'usf.
Voici le code pour la fermeture et l'impression du mois
Sub Bouton1_QuandClic()
'Janvier 01
Application.ScreenUpdating = False
Static va, v1, v1a, v2, v3, v4, v5, v6, v7, v8, v9, v11, v13
va = "c52" 'dernière ligne 1ère page, copie reajuatement des taxes
v1 = "c93" 'dernière ligne 2ème page
v1a = "c134" 'dernière ligne 3ème page
v2 = "p95" 'Case ou copier le réajustement des taxes dans le tableau page Etat
v3 = "a13:db176" 'sélection des données à geler sans formule
v4 = "a13" 'cellule ou copier la sélection à geler
v5 = "a176" 'inscription Mois fermé
v6 = 1 'première page à imprimer
v7 = Range("G.L.!cz176") 'nombre de pages à ajouter à v6 pour imprimer
v8 = "b2:m10" 'sélection du rapport de remise des taxes page Remise
v9 = "a11" 'emplacement du curseur rapport de remise page Remise
v11 = "a177" 'cellule ou copier les formules dans le nouveau mois
v13 = "c175" 'dernière ligne 4 ème page
If Range("G.L.!a1994") <> 0 Then Exit Sub
'If Range("Paramètre!c21") <> "2.9" Then Call hyperlien: Exit Sub
ActiveSheet.Unprotect
ActiveSheet.Shapes("Button 1").Select
If Selection.Characters.Text = "Fermé" Then
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("G.L.").Select
Range("b12").Formula = "=b1982"
Call impressionmois(v6, v7, v8, v9, v13)
Sheets("Impression").Select
GoTo a:
Else
Msg = "Désirez vous fermer le mois en cours?"
Style = vbYesNo + 32
Title = "Fermeture du mois"
response = MsgBox(Msg, Style, Title)
If response = vbNo Then ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True: Exit Sub
Call corrtaxe(va, v1a, v1, v13, v2)
Call fermeturemois(v3, v4, v5, v11)
v7 = Range("G.L.!cz176") 'nombre de pages à ajouter à v6 pour imprimer
Call impressionmois(v6, v7, v8, v9, v13)
Call Backup
a:
End If
End Sub
Peut on faire en sorte que l'usf ne s'ouvre pas.
Merci de vos réponse
Rose45
Est il possible de désactiver temporairement un usf?
je m'explique
Quand la cellule B2 de ma page principale est active un usf s'ouvre automatiquement, jusque la tout va bien, je remplis celle ci et à la fin du mois, je dois cloturer et fermer celle ci pour qu'une nouvelle page soit générée. Pour la fermeture, j'ai douze boutons 1 pour chaque mois de l'année, quand je clique sur un bouton cela déclenche une macro qui va sélectioner la plage de cellule de la page principale à imprimer et bien sur la cellule B2 ce qui occasione l'ouverture du userform en question et me bloque le programme car je ne peut pas fermer l'usf.
Voici le code pour la fermeture et l'impression du mois
Sub Bouton1_QuandClic()
'Janvier 01
Application.ScreenUpdating = False
Static va, v1, v1a, v2, v3, v4, v5, v6, v7, v8, v9, v11, v13
va = "c52" 'dernière ligne 1ère page, copie reajuatement des taxes
v1 = "c93" 'dernière ligne 2ème page
v1a = "c134" 'dernière ligne 3ème page
v2 = "p95" 'Case ou copier le réajustement des taxes dans le tableau page Etat
v3 = "a13:db176" 'sélection des données à geler sans formule
v4 = "a13" 'cellule ou copier la sélection à geler
v5 = "a176" 'inscription Mois fermé
v6 = 1 'première page à imprimer
v7 = Range("G.L.!cz176") 'nombre de pages à ajouter à v6 pour imprimer
v8 = "b2:m10" 'sélection du rapport de remise des taxes page Remise
v9 = "a11" 'emplacement du curseur rapport de remise page Remise
v11 = "a177" 'cellule ou copier les formules dans le nouveau mois
v13 = "c175" 'dernière ligne 4 ème page
If Range("G.L.!a1994") <> 0 Then Exit Sub
'If Range("Paramètre!c21") <> "2.9" Then Call hyperlien: Exit Sub
ActiveSheet.Unprotect
ActiveSheet.Shapes("Button 1").Select
If Selection.Characters.Text = "Fermé" Then
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("G.L.").Select
Range("b12").Formula = "=b1982"
Call impressionmois(v6, v7, v8, v9, v13)
Sheets("Impression").Select
GoTo a:
Else
Msg = "Désirez vous fermer le mois en cours?"
Style = vbYesNo + 32
Title = "Fermeture du mois"
response = MsgBox(Msg, Style, Title)
If response = vbNo Then ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True: Exit Sub
Call corrtaxe(va, v1a, v1, v13, v2)
Call fermeturemois(v3, v4, v5, v11)
v7 = Range("G.L.!cz176") 'nombre de pages à ajouter à v6 pour imprimer
Call impressionmois(v6, v7, v8, v9, v13)
Call Backup
a:
End If
End Sub
Peut on faire en sorte que l'usf ne s'ouvre pas.
Merci de vos réponse
Rose45
