Ecrire à la suite dans une cellule

Version imprimable

31/01/2008, 09h31
jack51106

Ecrire à la suite dans une cellule
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:

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
31/01/2008, 11h12
House MD

Bonjour,

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

Bonjour,

Tu peux essayer ceci :

Code:

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

31/01/2008, 13h22
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:

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
31/01/2008, 13h24
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.