Autre solution pour appliquer 1?

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:

---

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

Bonjour,

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

Cordialement.

Citation:

---

Envoyé par GastonLagaffe25

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

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.

Citation:

---

Envoyé par Un Internaute

... 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 :weird:

comme tu dis dans ton premier post

Citation:

---

Envoyé par Un Internaute

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

---

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

dis nous

A+

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:

---

=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

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

Citation:

---

... 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+

Je comprends encore moins maintenant :aie:

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

+1...

Citation:

---

Envoyé par 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 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+

---

Est-ce qu'il faut comprendre : "Moi ce que je voudrais c'est qu'automatiquement il m'affiche un 1"
Oui c'est ça.
Cordialement à toi.

C'est quoi l’alternative à 1 ?
En fonction de la réponse ci-dessus, tu peux peut-être faire cela en inverse...
(Valeur à 1 par défaut et valeur remplacée via formule lors de l'ouverture si critères OK)

Peux-tu nous expliquer ce que tu cherches à faire ?

Je ne comprends vraiment pas ton problème, tu sais mettre une formule en fonction de la date en colonne A et tu ne sais pas adapter au cas où la date est en fait aujourd'hui ?!? :cfou:

Même avec des formules compliquées, =SI(condition;Formule1;Formule2) ça marche toujours et dans ton cas la condition c'est =AUJOURDHUI et la formule 1 c'est la constante 1.

Citation:

---

Envoyé par GastonLagaffe25

C'est quoi l’alternative à 1 ?
En fonction de la réponse ci-dessus, tu peux peut-être faire cela en inverse...
(Valeur à 1 par défaut et valeur remplacée via formule lors de l'ouverture si critères OK)

Peux-tu nous expliquer ce que tu cherches à faire ?

---

Merci GastonLagaffe25,
Je veux prendre un traitement de 1 Cp par jour pendant 1 mois.
J'arrête le traitement pour une durée indéterminée.
Donc je mets la macro en commentaire.
Ma toubib me dit par exemple: Vous avez arrêté quand?
Avec ma formule colonne C je peux le lui dire 3 mois 6 mois 1 an...
je ne peux en dire + ça se comprend.
Merci à tous pour votre dévouement.
Cordialement