Remise à zéro une cellule

Bonjour tout le monde,

dans mon fichier ci-joint je voudrai que chaque début de mois il me remette la cellule A5 de l’onglet Feuil1 à 0001.

Merci d’avance pour votre aide.

Rubis
Rubis57-1.xlsm (9,0 Ko)

Bonjour,

Dans le module “ThisWorkbook”, mets :

Private Sub Workbook_Open()
  If Day(Date) = 1 Then Sheets("Feuil1").[A5] = 1
End Sub

Mets la cellule A5 au format personnalisé :

000

Rubis57-1.xlsm (13,8 Ko)

Daniel

1 « J'aime »

Bonjour,

Merci pour cette aide, j’ai mis le code en place donc je verrai début Mars.

c’est bien 000 pour le format ou alors 0000 ?

Rubis

C’est “0000” pour avoir “0001”.

Daniel

OK, Merci beaucoup.

A ne prochaine fois.

Rubis

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.