Pourquoi quand je double clique sur une cellule en O .... (résolu)

[anthoYS]

Bonjour,


Or je veux que ça colore également la cellule de vert comme indiqué dans le code...

Voici le code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Column = 15 Then
  If Cells(Target.Row, 15).Interior.ColorIndex = 4 Then
  Else
    Cells(Target.Row, 15) = Date
  End If
End If
End Sub

Si j'enlève le "Else" c'est pire. Rien ne se passe ensuite...


Merci par avance 😉

 

[Jacky67]

Bonsoir,
Et dans la vraie vie cela doit faire quoi exactement ?? 😉

 

[anthoYS]

Bonsoir,
Et dans la vrai vie cela doit fait quoi exactement ?? 😉

Plaît-il ? je ne saisi pas ta réponse....

Je souhaite juste savoir ou se situe l'erreur...

Merci de me dire svp, qu'on ne perde pas plus de temps, seulement si vous savez...

@Jacky67 : ça sert à colorer une cellule en O par double clic de vert ainsi que d'y mettre la date du jour...

je n'aime pas faire les choses manuellement, ça facilite la vie, c'est tout.

Si c'est ce que tu voulais savoir...

 

[job75]

Bonsoir anthoYs, jacky67,

La question étant :

Pourquoi quand je double clique sur une cellule en O :col15, ça affiche la date du jour uniquement ?

La réponse (évidente) est : parce que votre code ne peut pas faire autre chose.

C'est pourquoi Jacky67 demande ce que vous voulez dans la vraie vie, pas dans votre code (qui est incomplet).

A+

 

[Jacky67]

Plaît-il ? je ne saisi pas ta réponse....

Je souhaite juste savoir ou se situe l'erreur...

Merci de me dire svp, qu'on ne perde pas plus de temps, seulement si vous savez...

@Jacky67 : ça sert à colorer une cellule en O par double clic de vert ainsi que d'y mettre la date du jour...

je n'aime pas faire les choses manuellement, ça facilite la vie, c'est tout.

Si c'est ce que tu voulais savoir...

Re...
Ce que je voulais savoir, c'est ce que doit faire ce double clic
/..: ça sert à colorer une cellule en O par double clic de vert ainsi que d'y mettre la date du jour...../
Ben voila, maintenant je sais.....
Maintenant ne perdons pas de temps
Essayons ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Column = 15 Then
  With Target
    .Interior.ColorIndex = 4
    .Value = Date
  End With
End If
End Sub

 

[anthoYS]

Très bien, au plaisir... @Jacky67 😉

Bonne soirée à tout le monde !