Cocher selection de cellule + fichier

[Antoine]

Bonjour à tous,

Voila le problème:

trés simple
(voir fichier joint)
J´aimerai donner la possibilité à l´utilisateur de cocher SEULEMENT les cases. J´ai trouvé une fonction mais elle s´adresse à toute les cellules.
Voici le prg:

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

If Target = '' Then
Target = 'X'
Else
Target = ''
End If
Cancel = True

End Sub


MErci de votre aide par avance...


Antoine

PS: les cases en questions ont été défini sous un même nom 'Cocher'

 

[Baside]

bonsoir Antoine le forum

Je ne vois pas le fichier

Baside

 

[porcinet82]

salut a tous les deux,

Antoine je viens de voir avec la réponse de Baside a ce post que tu en as posté 2 identiques et que moi j'avais bien entendu fait la meme remarque que Baside sur l'autre post.

@+

 

[Abel]

Bonjour Antoine,

Essaie ceci :

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

Set MaPlage = Application.Intersect(Target, Range('a1:b10')) ' à adapter

If MaPlage Is Nothing Then
    Exit Sub
ElseIf Target = '' Then
    Target = 'X'
Else
    Target = ''
End If
End Sub

En espérant que cela te dépanne.

Abel.

 

[antoine]

Merciiiiiiiii Abel T´es un chef
Ca marche...
A bientot

 

[Cocher case et insérer date]

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')) ' à adapter

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

End Sub

mERCI POUR VOTRE AIDE