Bug in VBA Excel 2007?

Hello,

I'm trying to migrate a macro Excel 2003 to 2007 and I have the
following problem:

When running the code below, Err.Number is always 9 while in 2003
Err.Number is 0:

Public Sub Test ()
Dim i As Long
On Error Resume Next
With ActiveSheet
For i = 1 To 100
. Cells (i, "A"). Value = i
If Err.Number = 0 Then
. Cells (i, "B"). Value = "OK"
Else
. Cells (i, "B"). Value = "KB (" & Err.Number & "-" &
Err.Description & ")"
End If
Err.Clear
Next
End With
End Sub

Is this a BUG VBA 2007 or is it my code that Bugged (in this case why
it works well in 2003?).

Thank you for your help.

Hi Jo,

In Excel 2007, I get Err 0 - all cells in column B have 'OK'. Is you copy of Excel fully patched?

--
Cheers
macropod
[Microsoft MVP - Word]


"Jo" wrote in message ...
Hello,

I'm trying to migrate a macro Excel 2003 to 2007 and I have the
following problem:

When running the code below, Err.Number is always 9 while in 2003
Err.Number is 0:

Public Sub Test ()
Dim i As Long
On Error Resume Next
With ActiveSheet
For i = 1 To 100
. Cells (i, "A"). Value = i
If Err.Number = 0 Then
. Cells (i, "B"). Value = "OK"
Else
. Cells (i, "B"). Value = "KB (" & Err.Number & "-" &
Err.Description & ")"
End If
Err.Clear
Next
End With
End Sub

Is this a BUG VBA 2007 or is it my code that Bugged (in this case why
it works well in 2003?).

Thank you for your help.

On 13 fév, 07:44, "macropod" wrote:
Hi Jo,

In Excel 2007, I get Err 0 - all cells in column B have 'OK'. Is you copy of Excel fully patched?

--
Cheers
macropod
[Microsoft MVP - Word]

"Jo" wrote in ...
Hello,

I'm trying to migrate a macro Excel 2003 to 2007 and I have the
following problem:

When running *the code below, Err.Number is always 9 while in 2003
Err.Number is 0:

Public Sub Test ()
*Dim i As Long
*On Error Resume Next
*With ActiveSheet
* *For i = 1 To 100
* * *. Cells (i, "A"). Value = i
* * *If Err.Number = 0 Then
* * * *. Cells (i, "B"). Value = "OK"
* * *Else
* * * *. Cells (i, "B"). Value = "KB (" & Err.Number & "-" &
Err.Description & ")"
* * *End If
* * *Err.Clear
* *Next
*End With
End Sub

Is this a BUG VBA 2007 or is it my code that Bugged (in this case why
it works well in 2003?).

Thank you for your help.

Hi,

Thank's for your answer.

You can see on this link http://www.cijoint.fr/cjlink.php?fil...cij52nqbN0.pdf
some informations about version and updates of my computer.

Best regards

Hi Jo,

I am unable to tell from that link whether your version is fully updated - the minor numbers are different than mine, but that may
be because you are using: (a) a French-language installation; and (b) Office Standard (I have Office Professional - but the vba
components should be the same)

--
Cheers
macropod
[Microsoft MVP - Word]


"Jo" wrote in message ...
On 13 fév, 07:44, "macropod" wrote:
Hi Jo,

In Excel 2007, I get Err 0 - all cells in column B have 'OK'. Is you copy of Excel fully patched?

--
Cheers
macropod
[Microsoft MVP - Word]

"Jo" wrote in ...
Hello,

I'm trying to migrate a macro Excel 2003 to 2007 and I have the
following problem:

When running the code below, Err.Number is always 9 while in 2003
Err.Number is 0:

Public Sub Test ()
Dim i As Long
On Error Resume Next
With ActiveSheet
For i = 1 To 100
. Cells (i, "A"). Value = i
If Err.Number = 0 Then
. Cells (i, "B"). Value = "OK"
Else
. Cells (i, "B"). Value = "KB (" & Err.Number & "-" &
Err.Description & ")"
End If
Err.Clear
Next
End With
End Sub

Is this a BUG VBA 2007 or is it my code that Bugged (in this case why
it works well in 2003?).

Thank you for your help.

Hi,

Thank's for your answer.

You can see on this link http://www.cijoint.fr/cjlink.php?fil...cij52nqbN0.pdf
some informations about version and updates of my computer.

Best regards