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

anthoYS

XLDnaute Barbatruc
Bonjour,


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

Voici le code :

VB:
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 ;)
 

anthoYS

XLDnaute Barbatruc
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...
 
Dernière édition:

job75

XLDnaute Barbatruc
Bonsoir anthoYs, jacky67,

La question étant :
Code:
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

XLDnaute Barbatruc
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

Code:
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T