XL 2010 Plusieurs double click ( Résolu )

Kael_88 · 5 Novembre 2018

Le forum,

J'ai le début de mon programme, mais il me manque un "chuilla".

Si je double-click sur une cellule de la colonne A, celle ci se colorie en vert, jusque la pas de problème.
le problème :
Si je click sur une cellule de la colonne E, elle doit écrire la date actuelle dans la case de la Colonne A de cette même ligne.

VB:

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

If Target.Column <> 1 Then Exit Sub      'si le double-clic n'est pas dans la colonne 1, sort de la procédure
    Cancel = True      'évite le mode [Édition] lié au double-clic
            Target.Interior.ColorIndex = "4"
End Sub

Cordialement

mapomme · 5 Novembre 2018

Bonsoir Kael_88,

Kael_88 à dit:
Si je click sur une cellule de la colonne E, elle doit écrire la date actuelle dans la case de la Colonne A de cette même ligne.

Pas certain d'avoir compris la demande. Une piste ?:

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count = 1 And Target.Column = 5 Then Target.Offset(, -4) = Date
End Sub

Ou bien si on se fie au titre de la demande :

VB:

Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Target.Column = 1 Then
      Target.Interior.ColorIndex = "4"
    ElseIf Target.Column = 5 Then
      Target.Offset(, -4) = Date
    End If
End Sub

youky(BJ) · 5 Novembre 2018

Bonjour Kael, Mapomme,
J'ai compris comme cela
Bruno

VB:

Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True      '?vite le mode [?dition] li? au double-clic
If Target.Column = 1 Then Target.Interior.ColorIndex = "4"
If Target.Column = 5 Then Cells(Target.Row, 1) = Date
End Sub

Kael_88 · 5 Novembre 2018

Le forum, @mapomme , @youky(BJ) ,

Merci à vous,
les deux sont bien, celle de @youky(BJ) me convient mieux, pour être inséré dans le reste de mon projet.

Cordialement

XL 2010 Plusieurs double click ( Résolu )

Kael_88

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

Kael_88

XLDnaute Occasionnel

Discussions similaires