klm1234
XLDnaute Nouveau
Bonjour tout le monde!
Problème d'ordre mystique! Je ne comprend pas du tout, j'ai fait des recherches et apparemment personne d'autre n'a eu ce genre de problème!
J'ai une macro avec une condition :
Si je met :
Sa ne marche plus!
L'erreur "380" me dit Invalid use of property... Pour un petit Not de rien du tout!
Des suggestions? N'est-ce pas sensé inversé la valeur? True=False et vice-versa? Vraiment... Je comprends pas!
Merci beaucoup!
Problème d'ordre mystique! Je ne comprend pas du tout, j'ai fait des recherches et apparemment personne d'autre n'a eu ce genre de problème!
J'ai une macro avec une condition :
Code:
'Check Spacing FBG 1 to 40
For i = 0 To 39
If Range(prAdd).Offset(0, 95 + i).Value = "" Or Range(prAdd).Offset(0, 54 + i).Value = "" Then
If (Range(prAdd).Offset(0, 95 + i).Value = "" And Range(prAdd).Offset(0, 54 + i).Value = "") Then
Range(prAdd).Offset(0, i + 1).Select
MsgBox "An error occured while verifying center FBG spacing list.", vbExclamation, "Error - Unvalid form"
ValidateForm = False
ValidationProgress.Hide
Exit Function
End If
End If
ValidationProgress.ProgressBar1.Value = ValidationProgress.ProgressBar1.Value + 1
Next
Si je met :
Code:
'Check Spacing FBG 1 to 40
For i = 0 To 39
If Range(prAdd).Offset(0, 95 + i).Value = "" Or Range(prAdd).Offset(0, 54 + i).Value = "" Then
If Not (Range(prAdd).Offset(0, 95 + i).Value = "" And Range(prAdd).Offset(0, 54 + i).Value = "") Then
Range(prAdd).Offset(0, i + 1).Select
MsgBox "An error occured while verifying center FBG spacing list.", vbExclamation, "Error - Unvalid form"
ValidateForm = False
ValidationProgress.Hide
Exit Function
End If
End If
ValidationProgress.ProgressBar1.Value = ValidationProgress.ProgressBar1.Value + 1
Next
Sa ne marche plus!
L'erreur "380" me dit Invalid use of property... Pour un petit Not de rien du tout!
Des suggestions? N'est-ce pas sensé inversé la valeur? True=False et vice-versa? Vraiment... Je comprends pas!
Merci beaucoup!