Bonjour le Forum,
Débutant sur le VBA, je rencontre un problème.
Alors j'ai un petit souci sur une macro qui doit vérifier des données avant de valider l'enregistrement du classeur.
J'ai l'erreur Incompatibilité de type (13) dans le IF.
Voici le code :
La ligne posant problème est :
Le #N/A est le retour d'une formule dans la cellule Mx qui prend en paramètre la cellule Jx.
EDIT: La colonne M est déjà remplie de #N/A par défaut car la colonne J est vide. L'utilisateur complète la colonne J.
Je vous remercie par avance.
Cordialement,
Débutant sur le VBA, je rencontre un problème.
Alors j'ai un petit souci sur une macro qui doit vérifier des données avant de valider l'enregistrement du classeur.
J'ai l'erreur Incompatibilité de type (13) dans le IF.
Voici le code :
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call ErreurDepart
End Sub
Sub ErreurDepart()
Dim NumLigne As Integer
Dim m As Integer
For NumLigne = 9 To Range("J65536").End(xlUp).Row
For m = 9 To Range("J65536").End(xlUp).Row
If Range("J" & NumLigne).Value <> 0 And Range("M" & m).Value = "#N/A" Then
MsgBox ("Il y a une erreur dans l'heure de départ dans la cellule J" & NumLigne)
Else: ThisWorkbook.Save
End If
Next m
Next NumLigne
Exit Sub
End Sub
La ligne posant problème est :
Code:
If Range("J" & NumLigne).Value <> 0 And Range("M" & m).Value = "#N/A" Then
Le #N/A est le retour d'une formule dans la cellule Mx qui prend en paramètre la cellule Jx.
EDIT: La colonne M est déjà remplie de #N/A par défaut car la colonne J est vide. L'utilisateur complète la colonne J.
Je vous remercie par avance.
Cordialement,