Remplir des cellules en auto

[RENAUDER]

Bonjour,

J'ai une plage de cellules A2:A15
Dans cette plage pour des raisons de calcul, j'ai des valeurs 0.
Je suis amené à compléter manuellement cette plage au fur et à mesure (horaire journalier).
Lorsque j'efface cette plage, je souhaite que des 0 soient remis automatiquement.
J'ai essayé la procédure

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value = "" Then Target = "00:00"
End Sub

Si je sélectionne une seule celulle, et que j'efface la valeur, cela fonctionne.
Si je sélectionne 2 ou plusieurs cellules, la procédure plante avec erreur d'exécution 13 (Incompatibilité de type)
D'avance merci

 

[Cousinhub]

Re : Remplir des cellules en auto

Bonsoir, essaie avec ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
Application.EnableEvents = False
If Target.Count > 1 Then
    For Each cel In Selection
        If cel.Value = "" Then cel.Value = "00:00"
    Next cel
Else
If Target.Value = "" Then Target = "00:00"
End If
Application.EnableEvents = True
End Sub

 

[RENAUDER]

Re : Remplir des cellules en auto

Bonjour,

C'est parfait, ça fonctionne.
Merci beaucoup