XL 2010 excel formule aujourd'hui

Wayki

XLDnaute Impliqué

• 10 Novembre 2022

• #2

Bonjour,
Un fichier exemple serait bienvenue.
La formule aujourd'hui s'utilise ainsi :

=AUJOURDHUI()

Cliquez pour agrandir...

A +

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Novembre 2022

• #3

Bonjour tout le monde,

youyouzinho à dit:

j'aimerais figer cette cellule

Cliquez pour agrandir...

On ne peut pas figer une cellule, car évidemment demain la formule sera recalculée.
Mais on peut le faire en VBA. Acceptez vous du VBA ?
Si oui, fournissez un petit fichier test.

 

Vote positif 0 Vote négatif

Y

youyouzinho

XLDnaute Nouveau

• 10 Novembre 2022

• #4

oui j'accepte Merci d'avance

 

Pièces jointes

• Classeur1.xlsx

  8.9 KB · Affichages: 2

Vote positif 0 Vote négatif

Y

youyouzinho

XLDnaute Nouveau

• 10 Novembre 2022

• #5

voici

 

Pièces jointes

• Classeur1.xlsx

  8.9 KB · Affichages: 4

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Novembre 2022

• #6

Bonsoir,
un essai en PJ avec :

VB:

Function EcrC1(N As Date)
    Application.Volatile
    If N = Date Then EcrC1 = [C1]
End Function

La syntaxe est =EcrC1(B4)
Si B4 contient la date du jour C1 est recopié, sinon on ne touche à rien.

 

Pièces jointes

• DateC1.xlsm

  14.8 KB · Affichages: 3

Vote positif 0 Vote négatif

Y

youyouzinho

XLDnaute Nouveau

• 10 Novembre 2022

• #7

sylvanu à dit:

Bonsoir,
un essai en PJ avec :

VB:

Function EcrC1(N As Date)
    Application.Volatile
    If N = Date Then EcrC1 = [C1]
End Function

La syntaxe est =EcrC1(B4)
Si B4 contient la date du jour C1 est recopié, sinon on ne touche à rien.

Cliquez pour agrandir...

Merci je vais essayer de comprendre

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 10 Novembre 2022

• #8

Bonjour à tous,

Pour ce que je crois avoir compris. Le code est dans le module de la feuille Feuil1. Modifier la valeur de C1.

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n
   If Target.Address = Range("c1").Address Then
      On Error Resume Next
      n = Application.Match(Format(Date, "dd/mm/yyyy"), Columns("b:b").Value, 0)
      If Not IsError(n) Then Cells(n, "c") = Target.Value
   End If
End Sub

 

Pièces jointes

• youyouzinho- saisie valeur du jour- v1.xlsm

  17.5 KB · Affichages: 3

Vote positif 1 Vote négatif

Y

youyouzinho

XLDnaute Nouveau

• 10 Novembre 2022

• #9

Ub peu mieux expliquer

 

Pièces jointes

• Classeur1.xlsx

  8.9 KB · Affichages: 3

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Novembre 2022

• #10

C'est exactement la même PJ que précédemment. En quoi est ce mieux expliqué ?
Vous avez testé la PJ #6, en quoi elle coince ?

 

Vote positif 0 Vote négatif

Y

youyouzinho

XLDnaute Nouveau

• 10 Novembre 2022

• #11

j'essaie de comprendre
donc quand nous allons passer au 11/11
a la date du 10/11 la cellule va rester figer au 10/11 ?

 

Vote positif 0 Vote négatif

Y

youyouzinho

XLDnaute Nouveau

• 11 Novembre 2022

• #12

Au passage a minuit
la journée du 10/11 revient à 0 et la C1 est coller sur le 11/11

J'aimerais que la journée du 10/11 reste figer au passage a minuit

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 11 Novembre 2022

• #13

Re,
Et ma version ?

 

Vote positif 0 Vote négatif

Y

youyouzinho

XLDnaute Nouveau

• 11 Novembre 2022

• #14

mapomme à dit:

Re,
Et ma version ?

Cliquez pour agrandir...

Je pensais avoir rempli la feuille mais non
je verrais demain

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 11 Novembre 2022

• #15

Bonjour,

Une autre proposition :

VB:

Sub test()
    With Sheets("Feuil1")
        Set MaPlage = .Range("B4:B23")
        x = Application.Match(1 * Date, MaPlage, 0)
        If IsNumeric(x) Then MaPlage.Resize(1, 1).Offset(x - 1, 1).Value = .Range("C1")
    End With
End Sub

[edit]Au temps pour moi, je n'avais pas vu la réponse du camarade mapomme [/edit]

 

Vote positif 0 Vote négatif