Discussion :

[sharox]

Bonjour tous !

J'ai une énorme plage de cellule de A10 à A600 qui est sous forme de tableau donc en gros
de A10 à A110
de A115 à A215
de A 220 à A320
etc.. jusqu'à 600

et dans toute ces cellule il y a des 0
mais les différents utilisateurs risque de supprimer donc ce qui faussera mes calculs
et je voudrait que si ils suppriment, alors le vide se remplace par un 0

mais je ne sais pas trop comment faire

[Invité]

bonjour,
test ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 9 And Target.Row < 601 And Target.Column = 1 And Trim("" & Target) = "" Then Target = 0
End Sub

[sharox]

Bonjour a toi et merci pour ta réponse,
Effectivement ce que tu m'as donnée fonctionne, mais si l'utilisateur supprime une cellule par 1 cellule,
si il supprime plusieurs alors cela me met un message d'erreur

[eriiic]

Bonjour à tous,

En évitant une boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim pl As Range
    Application.EnableEvents = False
    Set pl = Intersect([A10:A601], Union(Cells.SpecialCells(xlCellTypeBlanks), Cells.SpecialCells(xlCellTypeConstants, 22)))
    'à ajouter dans Union pour traiter également les formules ne renvoyant pas de nombre : , Cells.SpecialCells(xlCellTypeFormulas, 22)
    If Not pl Is Nothing Then pl = 0: Beep
    Application.EnableEvents = True
End Sub

Si tu as des zones qui ne doivent pas avoir 0 dans A10:610 il faudra définir la plage en conséquence.

eric