Discussion :

[jack51106]

Bonjour à tous,

Ne maitrisant pas encore les macro Excel, j'ai un petit problème, assez simple, mais très ennuyeux pour moi.
Quand l'utilisateur double-clique sur une cellule, une série de ligne de code sont lancées. Pour ce que je veux faire, voici le code actuel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
'Loading some 'data
day = Left(Date, 2)
month = Mid(Date, 4, 2)
Cancel = False
 
''Test
Application.SendKeys "{END}"
Application.SendKeys "%~"
ActiveCell.Value = day & "/" & month & " :"

Mais le problème est qu'à chaque fois que l'utilisateur veut éditer le contenu, il perd ce qui était présent avant. Hors je voudrais que tout reste et qu'il tape son commentaire à la suite de ce qui existe, après un passage à la ligne (d'où le "%~").
Info pratique: les variables "day" et "month" sont déclarées au début de la fonction.

Merci d'avance pour votre aide
Arnaud

[House MD]

Bonjour,

Pour bien comprendre : lorsque l'utilisateur clique 2 fois, la macro comprend cela comme un double clic ?

[wape]

Bonjour,

Tu peux essayer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
day = Left(Date, 2)
month = Mid(Date, 4, 2)
Cancel = False
 
'Ajouter un saut de ligne si la cellule n'est pas vide
If ActiveCell.Value <> "" Then
   ActiveCell.Value = ActiveCell & Chr(10)
End If
 
'Ajouter le jour et le mois
ActiveCell.Value = ActiveCell.Value & day & "/" & month & " :"
 
'Positionner le curseur à la fin du texte
Application.SendKeys "^{END}"
 
End Sub

wape

[jack51106]

House MD,

Dans Excel, tu peux demander à ce que ta Macro s'exécute juste avant le double-clic, une fonction toute faite prévoit déjà de le gérer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
End Sub

Wape,

Que dire de plus sauf que c'est exactement ce que je voulais; petite question qui est la base de la réponse, que signifie "chr(10)"? C'est ce qui permet de faire le saut de ligne?
Grand merci pour ton aide

Arnaud

[House MD]

Je connais cette fonction... je pensais que la macro interprétait 2 clics rapprochés comme un double clic...

Très bien si tu as trouvé ta réponse.
Cdt.