Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 And Target.Row > 1 Then Target.Offset(0, 1).Value = IIf(Target.Value = "" Or IsEmpty(Target), Empty, Date)
If Target.Column = 14 And Target.Row > 1 Then Target.Offset(0, 1).Value = IIf(Target.Value = "" Or IsEmpty(Target), Empty, Date)
If Target.Column = 17 And Target.Row > 1 Then Target.Offset(0, 1).Value = IIf(Target.Value = "" Or IsEmpty(Target), Empty, Date)
If Target.Column = 18 And Target.Row > 1 Then Target.Offset(0, 2).Value = IIf(Target.Value = "" Or IsEmpty(Target), Empty, Date + 365)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'pour tester, entrez "forum-excel.7" en cellule I1
If Not Intersect(Range("I1:I1004"), Target) Is Nothing Then
Dim File_Path$
File_Path = "https://www.excel-downloads.com/forums/" 'chemin prédéfini
On Error GoTo Gere_Erreurs
ThisWorkbook.FollowHyperlink Address:=File_Path & Target.Value
On Error GoTo 0
End If
Exit Sub
Gere_Erreurs:
Err.Clear
MsgBox "Fichier ou page web introuvable : " & File_Path & Target.Value, vbOKOnly + vbInformation
End Sub