Bonjour,
J'ai une erreur 1004 de "Range global qui échoue" sur ma macro qui ne revient pas toujours au niveau de la ligne en gras. J'imagine que c'est parcequ'il se mélange les pinceaux entre mes 2 feuilles Excel, mais je ne trouve pas trop la solution, je suis noob en VBA. Si vous pouvez m'aider, merci d'avance !
Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Instructions" Then
Cancel = False
End If
If ActiveSheet.Name = "Formulaire ST916" Then
If Range("B5" ) = "" Then
MsgBox "Vous devez spécifier le numéro du Groupe !"
Cancel = True
End If
If Range("B13;C13" ) = "" Then
MsgBox "Vous devez spécifier le type de clôture !"
Cancel = True
End If
If Range("B17;C17" ) = "" Then
Cancel = True
MsgBox "Vous devez notifier la raison du départ !"
End If
If Range("A20;C20" ) = "" Then
Cancel = True
MsgBox "Vous devez remplir au moins un n° de compte à vue !"
End If
If Range("A30" ) = "" And Range("C30" ) = "" Then
Cancel = True
MsgBox "Vous devez indiquer soit un RIB de repli soit l'option chèque de banque !"
End If
If Range("A30" ) = "" And Range("C30" ).Value = "Non" Then
Cancel = True
MsgBox "Vous devez indiquer un RIB de repli !"
End If
If Range("A36" ) = "" Or Range("A36" ).Value = "Non" Then
MsgBox "La clôture ne sera pas prise en compte à moins que vous procédiez à une opposition sans réclamation des moyens de paiement !"
End If
End If
End Sub