(VBA) excel 2003 erreur 1004

excel 2003 erreur 1004 (VBA) - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 30-10-2012 à 18:43:30   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed