XL 2010 excel formule aujourd'hui

[youyouzinho]

Bonjour je veux creer un graphique avec des données automatiques de chaque jours

j'ai une colonne qui remplit mon graphique chaque jours

Qui corresponds à une valeur de jours J

=SI(AUJOURDHUI=B5;$C$1) par contre j'aimerais figer cette cellule car demain elle va passer à Faux car la date aura changer

 

[Wayki]

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

=AUJOURDHUI()

A +

 

[sylvanu]

Bonjour tout le monde,

j'aimerais figer cette cellule

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.

 

[youyouzinho]

oui j'accepte Merci d'avance

 

[youyouzinho]

voici

 

[sylvanu]

Bonsoir,
un essai en PJ avec :

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.

 

[youyouzinho]

Bonsoir,
un essai en PJ avec :

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.

Merci je vais essayer de comprendre

 

[mapomme]

Bonjour à tous,

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

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

 

[youyouzinho]

Ub peu mieux expliquer

 

[sylvanu]

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 ?

 

[youyouzinho]

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 ?

 

[youyouzinho]

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

 

[mapomme]

Re,
Et ma version ?

 

[youyouzinho]

Re,
Et ma version ?

Je pensais avoir rempli la feuille mais non
je verrais demain

 

[TooFatBoy]

Bonjour,

Une autre proposition :

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]