Hasan
XLDnaute Nouveau
Bonjour à tous,
J'ai un fichier, beaucoup plus compliqué que celui que je vous met en exemple, dans lequel des macros sont utilisées. Ces macros ont pour but, pour faire simple, de mettre des cellules à 0 lorsque certaines cellules sont mises à 0, il faut également que la cellule devienne grisée, non modifiable etc...
Le problème est que lorsque la macro est exécutée, après modification d'une cellule, le bouton "annuler" du programme Excel, en haut à gauche, se grise, et l'utilisateur ne peux plus annuler ce qu'il à fait. Or il est très important que l'utilisateur puisse annuler ces modifications en cas d'erreur.
De manière plus générale, dès qu'une macro modifie la valeur d'une cellule, le bouton "annuler" semble se griser. Est-ce bien le cas? Et si oui voyez-vous une solution pour contourner ce problème?
Voici le code que j'utilise :
Vous trouverez également un fichier simplifié en pièce jointe qui reproduit le problème.
J'utilise Excel 2007 sur XP.
Cordialement,
Hasan.
J'ai un fichier, beaucoup plus compliqué que celui que je vous met en exemple, dans lequel des macros sont utilisées. Ces macros ont pour but, pour faire simple, de mettre des cellules à 0 lorsque certaines cellules sont mises à 0, il faut également que la cellule devienne grisée, non modifiable etc...
Le problème est que lorsque la macro est exécutée, après modification d'une cellule, le bouton "annuler" du programme Excel, en haut à gauche, se grise, et l'utilisateur ne peux plus annuler ce qu'il à fait. Or il est très important que l'utilisateur puisse annuler ces modifications en cas d'erreur.
De manière plus générale, dès qu'une macro modifie la valeur d'une cellule, le bouton "annuler" semble se griser. Est-ce bien le cas? Et si oui voyez-vous une solution pour contourner ce problème?
Voici le code que j'utilise :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
If cell.Row = 1 Then
If cell.Value = "" Or cell.Value = 0 Then
Cells(cell.Row + 1, cell.Column).Value = 0
End If
End If
Next cell
End SubVous trouverez également un fichier simplifié en pièce jointe qui reproduit le problème.
J'utilise Excel 2007 sur XP.
Cordialement,
Hasan.