Bonjour le forum,
Je veux faire afficher 1 dans cellules colonne B

J'ai fait ce code qui fonctionne très bien mais ça m'oblige à ouvrir tous les matins le fichier.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
Dim Ligne
 
 
  Ligne = Application.Match(CSng(Date), Columns("A"), 0)
  If IsError(Ligne) Then
    Ligne = Range("A" & Rows.Count).End(xlUp).Row + 1
    Range("A" & Ligne) = Date
    Range("B" & Ligne) = 1
  End If
 
End Sub
Existe t-il une autre solution?
Peut-être en fonction de la date?
Ou MFC?
Merci d'avance pour vos retours.
Bonne journée à vous
Cordialement