Discussion :

[boulser]

Bonjour à tous,

Je cherche le moyen de mettre la date automatiquement dans la cellule A1 lorsque j'entre des données en B1.

Le problème est que si j'emplois la formule:

=SI(B2="";"";AUJOURDHUI())
La date du jour se charge effectivement dans la cellule A1. Je voudrais que le calcul ne se fasse qu'une fois et ne change pas lors du recalcul de la feuille.

Merci

[MarcelG]

Salut,

Si ta formule contient la date du jour, alors la valeur va obligatoirement car logiquement évoluer

Je raisonnerais plus en évènement qu'en formule

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
With ActiveSheet
    If Target.Address = .Range("B1").Address Then
            .Range("A1").Value = Date
    End If
End With
 
End Sub

[boulser]

Salut,

Si ta formule contient la date du jour, alors la valeur va obligatoirement car logiquement évoluer

Je raisonnerais plus en évènement qu'en formule

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
With ActiveSheet
    If Target.Address = .Range("B1").Address Then
            .Range("A1").Value = Date
    End If
End With
 
End Sub

OK j'essaye
Merci

[Igloobel]

Bonjour,

si c'est toi qui met la veleur en B2 et que tu veux mettre la date du jour à ce moment là, alors moi à ta place dans ce cas j'utiliserai la raccourcis clavier [Ctrl] + [;]

si c'est dû à un calcul alors il faut passer par une macro comme le propose MarcelG

A bientôt

[boulser]

Merci pour la réponse.

Voici comment j'ai adapté le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    'Pour vider la cellule A1 si on vide la cellule B1
    If Range("A1").Value = "" Then
        Range("B1").Delete   
        Exit Sub
    End If
    With ActiveSheet
        If Target.Address = .Range("A1").Address Then
            .Range("B1").Value = Date
        End If
    End With
End Sub

Cela fonctionne exactement comme j'ai besoin.
Mais, je voudrais que ce code s'adapte pour chaque ligne:
A2 - B2
A3- B3
Et ainsi de suite

Merci

[MarcelG]

Salut

Code :

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

1
2
3
4
5
'Pour vider la cellule A1 si on vide la cellule B1
    If Range("A1").Value = "" Then
        Range("B1").Delete
        Exit Sub
    End If

Euh.. Ce serait plutôt le contraire ici!
Qui plus est, ce code n'est pas propre.
Pourquoi en effet ne pas rattacher les objets à la feuille active.
Je le sais, cet attachement est tacite, mais c'est, à mon avis, une habitude à prendre.

Pour que l'évènement se réalise sur un ensemble de cellules, il suffit de tester l'appartenance de la cellule modifiée à un champ donné

(à adapter)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not (Intersect(Target, ActiveSheet.Range("A1:A30")) Is Nothing) Then
        With Target
                .Offset(0, 1).Value = IIf(.Value = "", "", Date)
        End With
End If
 
End Sub

[boulser]

Merci,
J'ai essayé, cela fonctionne à merveille.
Je dois adapter pour les bonnes colonnes et lignes.
Je reviendrais vers vous pour confirmation

[boulser]

Tout fonctionne sans problème

Un grand MERCI