Discussion :

[Hetni]

Bonjour à tous,

Je suis actuellement dans la création d'un fichier complet pour mes fiches techniques et mercuriale de mes recettes (en pâtisserie) et je débute dans les macro VBA, j'ai un petit soucis avec un code que j'ai trouvé en cherchant un peut, pour me permettre d'affiche une date dans une cellule définis lorsque je modifie un tarif sur ma mercuriale.

Le code que j'utilise est le suivant

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("B4:B200")) Is Nothing Then Exit Sub
If Target.Value <> "" Then Target(, 6) = Date
End Sub

Le Code marche correctement lorsque je modifie une case en B pour m'afficher la date du jour en G6 ou celle-ci à était modifier.
Ma problématique étant que je ne sais pas comment modifier le code pour permettre d'avoir le même résultat sur les case K et les date en P en plus sur ma mercuriale.



Si quelqu'un saurait m'aider, ce serait top !
Merci d'avance

[Franc]

Salut, comme ceci:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Plage As Range
    Set Plage= Union(Range("B4:B200"), Range("K4:K200"))
    If Application.Intersect(Target, Plage) Is Nothing Then Exit Sub
    If Target.Value <> "" Then
        Target.Offset(, 6).Value = Date
    End If
End Sub

[Hetni]

Ah mais top !
Merci beaucoup pour ton aide Franc c'est niquel ^^