Evènements auto

Bonjour le forum,

Après plusieurs heures de recherches j'implore votre aide

Je voudrais automatiser via worksheet_change, tous les 5 de chaque mois la cellule B14 doit augmenter de 50.

D'avance merci pour votre aide

Salut CDB,

je te propose ceci :

• chaque 5 du mois = ]B14] + 50 et mise de [B14] en gras ;
• autres dates, [B14] normal.

Private Sub Workbook_Open()
'
If Day(Date) = 5 Then
    If [B14].Font.Bold = False Then
        [B14] = [B14] + 50
        [B14].Font.Bold = True
    End If
Else
    [B14].Font.Bold = False
End If
'
End Sub

Tu peux ainsi ouvrir plusieurs fois sur la journée du 5, [B14] étant en gras, pas d'incrémentation.

Le code doit être collé dans le module VBA de 'ThisWorkbook' = fichier en XLSM.

A+

Bonjour CDB,

moi, j'le vois pas avec Worksheet_Change(), mais avec dans Module1 :

Sub IncB14()
  [B14] = [B14] + 50
End Sub

et dans ThisWorkbook :

Private Sub Workbook_Open()
  Application.OnTime TimeValue("05/" & Format(Month(Date), "00") & "/" & Year(Date) & " 08:00"), "IncB14"
End Sub

mais c'est juste une piste : il faudra sûrement adapter l'instruction OnTime.

dhany

Merci à vous.

merci pour ton retour !

bonne continuation !

dhany