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
Marsh Posté le 30-10-2012 à 18:43:30
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