Insérer Date / cocher case

[Antoine]

Re:Cocher selection de cellule + fichier - 13/05/2005 12:26
Rebonjour...
Autre application semblabes

Que lors d´un double click s´inscrive la date du jour dans la cellule.

Voici ce que je propose mias il m´indique une erreur de 'type'

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Moplage As Range
Set Moplage = Application.Intersect(Target, Range('date'))

If Moplage Is Nothing Then
Exit Sub
ElseIf Target = '' Then
Target = Date
End If

End Sub


J´ai deux applications par double click pour la même feuille:
- cocher cellule
- insérer date du jour

QUand je les mets l´une après l´autre sur dans le Sub (cf dessous), on m´indique un mess d' erreur...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target = '' Then
Target = 'X'
Else
Target = ''
End If
Cancel = True
Dim Moplage As Range
Set Moplage = Application.Intersect(Target, Range('date'))

If Moplage Is Nothing Then
Exit Sub
ElseIf Target = '' Then
Target = Date

End Sub

mERCI POUR VOTRE AIDE

 

[Baside]

Bonjour Antoine le forum

Avec ce code c'est bon met Date dans la zone nommée Date
et un X en dehors de cette zone

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Dat As Variant
Dim Moplage As Range
Set Moplage = Application.Intersect(Target, Range('Date'))

If Moplage Is Nothing Then
Target = 'X'
ElseIf Target = '' Then
Target = 'Date'
End If

End Sub

Baside