Bonjour à tous,
j'ai depuis longtemps, un fichier exel Euromillionaire, écrit par Yves Leparmentier.
il y a 2 ans, j'ai eu : erreur d'exécution 6.
en cliquant sur débogage, la macro affiche l'erreur avec un pointeur et en surlignant la ligne en jaune, et cette ligne est : N = N + 1
cette erreur est survenue à la ligne 253 sur 3229.
Quelqu'un possède t'il ce fichier, ou avez vous une idée de ce que peut-être cette erreur?
ci-joint, la partie concernant la macro.
Je vous remercie à l'avance si l'un d'entre vous à une solution.
Sheets("Données Officielles").Select
Dim Table As Range, Cell As Range, Plage As Range
Dim Lig As Integer, i As Integer, N As Byte
Application.ScreenUpdating = False
Range(Cells(3, 51), Cells(52, 52)).ClearContents
Lig = Range("D3231").End(xlUp).Row
Set Plage = Range("AX3:AY52")
For Lig = Lig To 2 Step -1
Set Table = Range("D" & Lig, "H" & Lig)
For Each Cell In Plage
If Application.CountIf(Table, Cell) > 0 Then
If Cell.Offset(0, 1) = "" Then
Cell.Offset(0, 1) = 0
End If
Else
If Cell.Offset(0, 1) = "" Then
Cell.Offset(0, 1) = 1
Else
If Cell.Offset(0, 1) > 0 And Cell.Offset(0, 1) = N Then
Cell.Offset(0, 1) = Cell.Offset(0, 1) + 1
End If
End If
End If
Next Cell
N = N + 1
Next Lig
Application.ScreenUpdating = True
j'ai depuis longtemps, un fichier exel Euromillionaire, écrit par Yves Leparmentier.
il y a 2 ans, j'ai eu : erreur d'exécution 6.
en cliquant sur débogage, la macro affiche l'erreur avec un pointeur et en surlignant la ligne en jaune, et cette ligne est : N = N + 1
cette erreur est survenue à la ligne 253 sur 3229.
Quelqu'un possède t'il ce fichier, ou avez vous une idée de ce que peut-être cette erreur?
ci-joint, la partie concernant la macro.
Je vous remercie à l'avance si l'un d'entre vous à une solution.
Sheets("Données Officielles").Select
Dim Table As Range, Cell As Range, Plage As Range
Dim Lig As Integer, i As Integer, N As Byte
Application.ScreenUpdating = False
Range(Cells(3, 51), Cells(52, 52)).ClearContents
Lig = Range("D3231").End(xlUp).Row
Set Plage = Range("AX3:AY52")
For Lig = Lig To 2 Step -1
Set Table = Range("D" & Lig, "H" & Lig)
For Each Cell In Plage
If Application.CountIf(Table, Cell) > 0 Then
If Cell.Offset(0, 1) = "" Then
Cell.Offset(0, 1) = 0
End If
Else
If Cell.Offset(0, 1) = "" Then
Cell.Offset(0, 1) = 1
Else
If Cell.Offset(0, 1) > 0 And Cell.Offset(0, 1) = N Then
Cell.Offset(0, 1) = Cell.Offset(0, 1) + 1
End If
End If
End If
Next Cell
N = N + 1
Next Lig
Application.ScreenUpdating = True