Miseàjour_chiffres

Bonjour,

J'ai un petit souci, je souhaiterais qu'un chiffre se mette à jour automatiquement dès lors que la date change.

Ex: si ce chiffre est de 80 aujourd'hui, que demain quand on ouvre le fichier 81 s'affiche automatiquement, en excluant la mise à jour automatique pour les dimanches.

J'ai joint un fichier qui je pense est assez clair.

Si c'est possible, merci pour vos réponses.

Letco

Bonjour,

Une proposition avec VBA à l'ouverture du fichier.

Faire ALT F11 puis voir le code dans le module 'ThisWorbook'.

Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
    Set ws = Worksheets("Feuil1")
    If ws.Range("B2") = Date Then Exit Sub
    With ws
        .Range("B2") = Date
        If Not Weekday(Date, vbSunday) = 7 Then ws.Range("A2") = 75 + 1
    End With
End Sub

Merci pour ta réponse, je souhaiterais avoir une autre précision: 75 était un chiffre pris au hasard, ça pouvait être 100, 25 n'importe quel chiffre; hors je vois que dans ton code vba il y a le chiffre 75 qui est précisé est-ce que ça ne pose pas un problème.

Est-ce qu'on ne peut modifier ce code en disant que quelque soit le chiffre dans A2 que ce chiffre passe au chiffre supérieur si B2 = aujourdhui+1 en éliminant bien évidemment les dimanches

Merci

Re,

Comme cela?

Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
    Set ws = Worksheets("Feuil1")
    If ws.Range("B2") = Date Then Exit Sub
    With ws
        .Range("B2") = Date
        If Not Weekday(Date, vbSunday) = 7 Then ws.Range("A2") = ws.Range("A2").Value + 1
    End With
End Sub

Merci infiniment, ça marche

A très bientôt