Ajout de "0" dans les cases vides selon condition

Résolu/Fermé
kgigant Messages postés 202 Date d'inscription lundi 21 mars 2011 Statut Membre Dernière intervention 8 janvier 2014 - 10 juin 2013 à 11:42
redaiwa Messages postés 346 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 2 juin 2015 - 10 juin 2013 à 15:19
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

redaiwa Messages postés 346 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 2 juin 2015 118
10 juin 2013 à 12:16
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 ?
0
kgigant Messages postés 202 Date d'inscription lundi 21 mars 2011 Statut Membre Dernière intervention 8 janvier 2014 10
10 juin 2013 à 14:52
merci bcp
0
redaiwa Messages postés 346 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 2 juin 2015 118
10 juin 2013 à 15:19
Salam kgigant.

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