Discussion :

[Un Internaute]

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

[GastonLagaffe25]

Bonjour,

Tu peux peut-être automatiser l'ouverture de tous les classeurs...

Cordialement.

[Un Internaute]

Bonjour,

Tu peux peut-être automatiser l'ouverture de tous les classeurs...

Cordialement.

Bonjour GastonLagaffe25,
Ce n'est pas ce que je veux.
C'est de ne pas avoir à ouvrir et que s'affiche 1.
Merci de t'intéresser au sujet
Bonne journée à toi

[Igloobel]

... C'est de ne pas avoir à ouvrir et que s'affiche 1 ...

Peux-tu détailler ce que tu veux parce je vois pas comment cela t'affiche 1 sans ouvrir ton classeur

comme tu dis dans ton premier post

... Je veux faire afficher 1 dans cellules colonne B ...

Comment savoir qu'il y a bien 1 dans la colonne B sans ouvrir ?

dis nous

A+

[Un Internaute]

Bonjour antonysansh & Igloobel

Effectivement il faut l'ouvrir pour afficher 1 avec la macro.

J'ai une formule colonne C qui m'indique depuis combien de temps le traitement est arrêté.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ET(D3<>"";NBVAL(D:D)=NBVAL(D$1:$D3));SI(DATEDIF(A3;AUJOURDHUI();"Y")>0;DATEDIF(A3;AUJOURDHUI();"Y")&SI(DATEDIF(A3;AUJOURDHUI();"Y")>1;" ans ";" an ");"") & SI(DATEDIF(A3;AUJOURDHUI();"YM")>0;DATEDIF(A3;AUJOURDHUI();"YM")&" mois ";"") &DATEDIF(A3;AUJOURDHUI();"MD")&SI(DATEDIF(A3;AUJOURDHUI();"MD")>1;" jours";" jour");"")

Moi ce que je voudrais c'est ne pas avoir à ouvrir pour afficher 1. Peut-être avec une MFC comme AUJOURDHUI()?
Merci à tous les deux pour votre implication.
Bien cordialement

[Igloobel]

Que ce soit une formule, une MFC, une macro de toute façon il faut ouvrir le classeur pour obtenir le résultat

Quand tu dis

... Moi ce que je voudrais c'est ne pas avoir à ouvrir pour afficher 1 ...

Est-ce qu'il faut comprendre : "Moi ce que je voudrais c'est qu'automatiquement il m'affiche un 1"

Si c'est le cas alors il faut faire une macro évènementielle .

Tu dis

A+

[antonysansh]

Je comprends encore moins maintenant

=SI(A3=AUJOURDHUI();1;TAFORMULE)
Non ?

[antonysansh]

Tous les jours tu ouvres le fichier pour y mettre la date en colonne A si elle n'existe pas déjà et mettre 1 en colonne B ?

Pourquoi ne pas y mettre tous les dates de la période d'utilisation de ton fichier tout de suite ?
Sans le contexte d'utilisation du fichier, pas facile de comprendre le besoin pour te proposer une solution.