Sub Bouton1_Cliquer()
Dim Mois As Variant
Bis:
Mois = Month(Date)
Mois = InputBox("Entrée le n° du mois à imprimer", "Attente saisie", Mois) ' Peut être mis en commentaire aprés les tests
If Mois <> "" Then
If Not IsNumeric(Mois) Then MsgBox "Saisir le mois sous forme d'un nombre de 1 à 12": GoTo Bis
If CLng(Mois) <> Int(Mois) Then MsgBox "Saisir le mois sous forme d'un nombre de 1 à 12 sans décimal": GoTo Bis
If Mois < 1 Or Mois > 12 Then MsgBox "Saisir un nombre de 1 à 12 pour le numéro de mois": GoTo Bis
Mois = Mois - 1
If [D7].Offset(0, Mois + 1) & [D11].Offset(0, Mois + 1) & [D15].Offset(0, Mois + 1) & [D19].Offset(0, Mois + 1) & [D23].Offset(0, Mois + 1) <> "" Then
MsgBox "Le choix du mois est erronné"
GoTo Bis
End If
If [D7].Offset(0, Mois) = "" Or [D11].Offset(0, Mois) = "" Or [D15].Offset(0, Mois) = "" Or [D19].Offset(0, Mois) = "" Or [D23].Offset(0, Mois) = "" Then
MsgBox ("Une note n'a pas été remplie, relancer l'agent de maîtrise correspondant")
Exit Sub
End If
' Mois = Mois + 1 mise en commentaire pour prise en compte du mois précédents.
If [D7].Offset(0, Mois) <> "" And [D11].Offset(0, Mois) <> "" And [D15].Offset(0, Mois) <> "" And [D19].Offset(0, Mois) <> "" And [D23].Offset(0, Mois) <> "" Then
MsgBox "Le choix du mois est erronné"
GoTo Bis
End If
With Rows("38:93")
.Hidden = False
With ActiveSheet
.PageSetup.PrintArea = "$B$38:$N$93"
.PrintPreview
End With
.Hidden = True
End With
End If
End Sub
Sub MONTAGE_Boutontest_Cliquer()
Dim Mois As Variant
Bis:
Mois = Month(Date)
Mois = InputBox("Entrée le n° du mois à imprimer", "Attente saisie", Mois) ' Peut être mis en commentaire aprés les tests
If Mois <> "" Then
If Not IsNumeric(Mois) Then MsgBox "Saisir le mois sous forme d'un nombre de 1 à 12": GoTo Bis
If CLng(Mois) <> Int(Mois) Then MsgBox "Saisir le mois sous forme d'un nombre de 1 à 12 sans décimal": GoTo Bis
If Mois < 1 Or Mois > 12 Then MsgBox "Saisir un nombre de 1 à 12 pour le numéro de mois": GoTo Bis
Mois = Mois - 1
If [D7].Offset(0, Mois + 1) & [D11].Offset(0, Mois + 1) & [D15].Offset(0, Mois + 1) & [D19].Offset(0, Mois + 1) & [D23].Offset(0, Mois + 1) <> "" Then
MsgBox "Le choix du mois est erronné"
GoTo Bis
End If
Mois = Mois - 1
If [D7].Offset(0, Mois) = "" Or [D11].Offset(0, Mois) = "" Or [D15].Offset(0, Mois) = "" Or [D19].Offset(0, Mois) = "" Or [D23].Offset(0, Mois) = "" Then
MsgBox ("Une note n'a pas été remplie, relancer l'agent de maîtrise correspondant")
Exit Sub
End If
With Rows("38:93")
.Hidden = False
With ActiveSheet
.PageSetup.PrintArea = "$B$38:$N$93"
.PrintPreview
End With
.Hidden = True
End With
End If
End Sub
Sub MONTAGE_Boutontest_Cliquer()
Dim Mois As Variant
Bis:
Mois = Month(Date)
Mois = InputBox("Entrée le n° du mois à imprimer", "Attente saisie", Mois) ' Peut être mis en commentaire aprés les tests
If Mois <> "" Then
If Not IsNumeric(Mois) Then MsgBox "Saisir le mois sous forme d'un nombre de 1 à 12": GoTo Bis
If CLng(Mois) <> Int(Mois) Then MsgBox "Saisir le mois sous forme d'un nombre de 1 à 12 sans décimal": GoTo Bis
If Mois < 1 Or Mois > 12 Then MsgBox "Saisir un nombre de 1 à 12 pour le numéro de mois": GoTo Bis
Mois = Mois - 1
With Worksheets("MONTAGE 2").Activate
If [D7].Offset(0, Mois + 1) & [D11].Offset(0, Mois + 1) & [D15].Offset(0, Mois + 1) & [D19].Offset(0, Mois + 1) & [D23].Offset(0, Mois + 1) <> "" Then
MsgBox "Le choix du mois est erronné"
GoTo Bis
End If
End With
With Worksheets("MONTAGE").Activate
If [D7].Offset(0, Mois + 1) & [D11].Offset(0, Mois + 1) & [D15].Offset(0, Mois + 1) & [D19].Offset(0, Mois + 1) & [D23].Offset(0, Mois + 1) <> "" Then
MsgBox "Le choix du mois est erronné"
GoTo Bis
End If
End With
Mois = Mois - 1
With Worksheets("MONTAGE 2").Activate
If [D7].Offset(0, Mois) = "" Or [D11].Offset(0, Mois) = "" Or [D15].Offset(0, Mois) = "" Or [D19].Offset(0, Mois) = "" Or [D23].Offset(0, Mois) = "" Then
MsgBox ("Une note n'a pas été remplie, relancer l'agent de maîtrise correspondant")
Exit Sub
End If
End With
With Worksheets("MONTAGE").Activate
If [D7].Offset(0, Mois) = "" Or [D11].Offset(0, Mois) = "" Or [D15].Offset(0, Mois) = "" Or [D19].Offset(0, Mois) = "" Or [D23].Offset(0, Mois) = "" Then
MsgBox ("Une note n'a pas été remplie, relancer l'agent de maîtrise correspondant")
Exit Sub
End If
End With
With Rows("38:93")
.Hidden = False
With ActiveSheet
.PageSetup.PrintArea = "$B$38:$N$93"
.PrintPreview
End With
.Hidden = True
End With
End If
End Sub
Sub MONTAGE_Boutontest_Cliquer()
Dim Mois As Variant
Bis:
Mois = Month(Date)
Mois = InputBox("Entrée le n° du mois à imprimer", "Attente saisie", Mois) ' Peut être mis en commentaire aprés les tests
If Mois <> "" Then
If Not IsNumeric(Mois) Then MsgBox "Saisir le mois sous forme d'un nombre de 1 à 12": GoTo Bis
If CLng(Mois) <> Int(Mois) Then MsgBox "Saisir le mois sous forme d'un nombre de 1 à 12 sans décimal": GoTo Bis
If Mois < 1 Or Mois > 12 Then MsgBox "Saisir un nombre de 1 à 12 pour le numéro de mois": GoTo Bis
Mois = Mois - 1
If [D7].Offset(0, Mois + 1) & [D11].Offset(0, Mois + 1) & [D15].Offset(0, Mois + 1) & [D19].Offset(0, Mois + 1) & [D23].Offset(0, Mois + 1) <> "" Then
MsgBox "Le choix du mois est erronné"
GoTo Bis
End If
If Mois > 1 Then Mois = Mois - 1
If [D7].Offset(0, Mois) = "" Or [D11].Offset(0, Mois) = "" Or [D15].Offset(0, Mois) = "" Or [D19].Offset(0, Mois) = "" Or [D23].Offset(0, Mois) = "" Then
MsgBox ("Une note n'a pas été remplie, relancer l'agent de maîtrise correspondant")
Exit Sub
End If
With Rows("38:93")
.Hidden = False
With ActiveSheet
.PageSetup.PrintArea = "$B$38:$N$93"
.PrintPreview
End With
.Hidden = True
End With
End If
End Sub
Sub MONTAGE_Boutontest_Cliquer()
Gestion 38, 93
End Sub
Sub Gestion(LigneSup As Long, LigneInf As Long)
Dim Mois As Variant
Bis:
Mois = Month(Date)
Mois = InputBox("Entrée le n° du mois à imprimer", "Attente saisie", Mois) ' Peut être mis en commentaire aprés les tests
If Mois <> "" Then
If Not IsNumeric(Mois) Then MsgBox "Saisir le mois sous forme d'un nombre de 1 à 12": GoTo Bis
If CLng(Mois) <> Int(Mois) Then MsgBox "Saisir le mois sous forme d'un nombre de 1 à 12 sans décimal": GoTo Bis
If Mois < 1 Or Mois > 12 Then MsgBox "Saisir un nombre de 1 à 12 pour le numéro de mois": GoTo Bis
Mois = Mois - 1
If [D7].Offset(0, Mois + 1) & [D11].Offset(0, Mois + 1) & [D15].Offset(0, Mois + 1) & [D19].Offset(0, Mois + 1) & [D23].Offset(0, Mois + 1) <> "" Then
MsgBox "Le choix du mois est erronné"
GoTo Bis
End If
If Mois > 0 Then Mois = Mois - 1
If [D7].Offset(0, Mois) = "" Or [D11].Offset(0, Mois) = "" Or [D15].Offset(0, Mois) = "" Or [D19].Offset(0, Mois) = "" Or [D23].Offset(0, Mois) = "" Then
MsgBox ("Une note n'a pas été remplie, relancer l'agent de maîtrise correspondant")
Exit Sub
End If
With Rows(LigneSup & ":" & LigneInf)
.Hidden = False
With ActiveSheet
.PageSetup.PrintArea = "$B$" & LigneSup & ":$N$" & LigneInf
.PrintPreview
End With
.Hidden = True
End With
End If
End Sub