Ajout de "0" dans les cases vides selon condition

[Résolu/Fermé]
Signaler
Messages postés
202
Date d'inscription
lundi 21 mars 2011
Statut
Membre
Dernière intervention
8 janvier 2014
-
Messages postés
346
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
2 juin 2015
-
Bonjour,

voilà mon problème, j'ai dans un tableau une dizaine de cases qui doivent etre renseignées tous les jours. Est il possible lorsque j'écris une valeur en A10 qu'une formule m'écrive des 0 dans les cases A1,A2,A3,....A9 qui n'ont pas de valeur ?

1 réponse

Messages postés
346
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
2 juin 2015
115
Salam kgigant.

Par formule je ne sais pas si c'est possible, mais voici une solution par code VBA.
J'ai supposé que chaque jour tu effaces les données de la veille avant de saisir les données du jour. Le code suivant remplace les cellules vides par des zéros.

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To 10
  If Cells(i, 1) = "" Then Cells(i, 1) = 0
Next i
End Sub

Cela répond-t-il à ta question ?
Messages postés
202
Date d'inscription
lundi 21 mars 2011
Statut
Membre
Dernière intervention
8 janvier 2014
10
merci bcp
Messages postés
346
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
2 juin 2015
115
Salam kgigant.

Si cela répond à ta question, n'oublie pas de marquer le sujet comme résolu. :)