Bonjour,
J'ai une macro qui s'execute a la fermeture d'excel qui me sort une erreur d'execution '1004': La methode 'Range de l'objet '_Global' a échoué. Si quelqu'un à deja rencontré ce souci je prend tout conseil.
Voici la macro en question:
Sub Macro1()
'
' Macro1 Macro
'
Dim MaValeur, nlig, i
MaValeur = 1
nlig = 3
i = 1
While MaValeur <> 0
nlig = nlig + 1
Range("F" & nlig).Select
MaValeur = ActiveCell.Value
Wend
For i = 1 To 7
'date
Selection.Offset(-(1), 0).Select
Range("A" & i + 3).Value = ActiveCell.Value
'heure
Range("B" & i + 3).Value = ActiveCell.Value
'Etat
Selection.End(xlToRight).Select
Range("E" & i + 3).Value = ActiveCell.Value
' Site
Selection.Offset(-(nlig - 2), 0).Select
Range("C" & i + 3).Value = ActiveCell.Value
'information
Selection.Offset(1, 0).Select
Range("D" & i + 3).Value = ActiveCell.Value
nlig = nlig - 1
Range("F" & nlig).Select
Next i
End Sub
J'ai une macro qui s'execute a la fermeture d'excel qui me sort une erreur d'execution '1004': La methode 'Range de l'objet '_Global' a échoué. Si quelqu'un à deja rencontré ce souci je prend tout conseil.
Voici la macro en question:
Sub Macro1()
'
' Macro1 Macro
'
Dim MaValeur, nlig, i
MaValeur = 1
nlig = 3
i = 1
While MaValeur <> 0
nlig = nlig + 1
Range("F" & nlig).Select
MaValeur = ActiveCell.Value
Wend
For i = 1 To 7
'date
Selection.Offset(-(1), 0).Select
Range("A" & i + 3).Value = ActiveCell.Value
'heure
Range("B" & i + 3).Value = ActiveCell.Value
'Etat
Selection.End(xlToRight).Select
Range("E" & i + 3).Value = ActiveCell.Value
' Site
Selection.Offset(-(nlig - 2), 0).Select
Range("C" & i + 3).Value = ActiveCell.Value
'information
Selection.Offset(1, 0).Select
Range("D" & i + 3).Value = ActiveCell.Value
nlig = nlig - 1
Range("F" & nlig).Select
Next i
End Sub