Discussion :

[mirmae]

Bonjour
*
Sur une feuille Excel, j’aimerais que lorsque je rentre une date dans l’une des cellule de la colonne A, une formule écrive sur la même ligne dans la cellule B une date correspondant à 14 semaine avant.
*
Exemple*: SI je marque «*14/05/2012*» dans la cellule A6, automatiquement apparaitra la date «*06/02/2012*» dans la cellule B6. Bien sûr si je retire la date en A6, la date en B6 disparait.
*
Quelqu’un pourrait-il m’aider*?
*
Merci

[jfontaine]

Bonjour,

Ci dessous une exemple en utilisation l'évenement Change de la Feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
 
'Si la colonne modifiée est A (colonne 1)
If Target.Column = 1 Then
     'Si la saisie dans la cellule est une date
    If IsDate(Target.Value) Then
        'Ajout de la date dans la colonne E
        Range("E" & Target.Row).Value = DateAdd("ww", -14, Target.Value)
    Else
        Range("E" & Target.Row).Value = ""
    End If    
    End If
 
End If
 
End Sub

[mercatog]

Utilise l'évènement Change de ta feuille (code à mettre dans la module de la feuille)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
 
If Target.Column = 1 And Target.Count = 1 Then
    On Error Resume Next
    Application.EnableEvents = False
    If IsDate(Target.Value) Then
        With Target.Offset(0, 1)
            .Value = DateAdd("ww", -14, CDate(Target.Value))
            .NumberFormat = "dd/mm/yyyy"
        End With
    Else
        Target.Offset(0, 1).ClearContents
    End If
    Application.EnableEvents = True
End If
End Sub

[mirmae]

Un grand Merci a tous les 2 pour votre rapidité!
Vos 2 solutions fonctionnent à la perfection. ( il y a juste un "end if" en trop dans la première solution).

Encore merci!