Ajout de "0" dans les cases vides selon condition

Résolu
kgigant Messages postés 202 Date d'inscription   Statut Membre Dernière intervention   -  
redaiwa Messages postés 351 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   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 202 Date d'inscription   Statut Membre Dernière intervention   9
 
merci bcp
0
redaiwa Messages postés 351 Date d'inscription   Statut Membre Dernière intervention   119
 
Salam kgigant.

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