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 351 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 25 janvier 2024 - 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 351 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 25 janvier 2024 119
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 9
10 juin 2013 à 14:52
merci bcp
0
redaiwa Messages postés 351 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 25 janvier 2024 119
10 juin 2013 à 15:19
Salam kgigant.

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