Discussion :

[jmtpat]

bonjour, j'ai fait ce code, mais chaque fois que lance ma macro il plante et me met des dates dans toutes les cellules.
je précise que je colle des données en provenance d'un autre classeur.
pour éviter de "pourrir" mon classeur j'ai désactivé le code.

Code :

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

1
2
3
4
5
6
7
8
On Error Resume Next
If Not Application.Intersect(Target, Range("n:n")) Is Nothing Then 
    Application.EnableEvents = False
    If Target = "Action coté BE" Then Target.Offset(0, 1) = Date
    If Target = "Action coté Fournisseur" Then Target.Offset(0, 7) = Date
    If Target = "Action coté Qualité" Then Target.Offset(0, 5) = Date
    Application.EnableEvents = True
End If

[vinc_bilb]

Bonjour,

Ca ressemble à du code évenementiel, mais sur quel évènement (quelle sub?), comme

Code :

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

1
2
Workbook_SheetSelectionChange
Worksheet_SelectionChange

difficile pour moi d'avoir un quelconque avis sans plus de données et un bout d'exemple ....

[jmtpat]

Worksheet_change()