[XL-2010] Faire une case a choix multiple

[Yvan77]

Bonjour,

Je souhaiterais faire une colonne ou il suffit de cliquer dans la case pour afficher la date du jour automatiquement et sans mise a jour.

[jfontaine]

Bonjour,

Dans l'exemple ci dessous la colonne est la A

Code :

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 And Target.Value = "" Then Target.Value = Date
End Sub

[Yvan77]

Merci mais je suis débutant, je doit insérer se code ou ?

[jfontaine]

Je te propose dans un premier temps de lire ce tutoriel pour te familiariser avec l'environnement VBA.
http://silkyroad.developpez.com/VBA/DebuterMacros/

Ensuite tu colles le code au niveau de la feuille

feuil.jpg

[Yvan77]

OK sa fonctionne bien il y a juste un petit problème lorsque je sélectionne plusieurs cases n'importe ou dans la feuille j'ai se message :

[Ormonth]

Bonjour,

Code :

If Selection.Count > 1 Then Exit Sub

cordialement,

Didier

[jfontaine]

En effet, j'ai corrigé

Code :

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
    If Target.Value = "" Then Target.Value = Date
End If
End Sub

ou

Code :

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 then Exit Sub
If Target.Column = 1 And Target.Value = "" Then Target.Value = Date
End Sub