Discussion :

[moilou2]

Re!

J'ai créé le code suivant afin de mettre automatiquement la date dans la cellule choisit de la colonne A. Cette date se met sur simple clic dans une cellule de la colonne A.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 
    If Target.Column = 1 Then
 
       If MsgBox("Voulez vous la date?", vbYesNo) = vbYes Then Target.Value = Date Else
 
      Exit Sub
 
      End If
 
End Sub

Ca marche bien, mais je voudrait que cela commence par exemple en "A5" parce que au dessus j'ai des liens hypertexte, et quand je clique dessus, il me demande quand même la date.

Merci de m'aider!

[Jean-Pierre49]

Bonjour

à tu essayé

Code :

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

If  Target.Column = 1 And  Target.Row > 5 then

[moilou2]

Génial merci