A
Antoine
Guest
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
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