Ajout de "0" dans les cases vides selon condition

Résolu
kgigant Messages postés 223 Statut Membre -  
redaiwa Messages postés 370 Statut Membre -
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 370 Statut Membre 119
 
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 223 Statut Membre 9
 
merci bcp
0
redaiwa Messages postés 370 Statut Membre 119
 
Salam kgigant.

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