Macro Excel: position du curseur

Version imprimable

Bonjour,

Je travaille pour l'instant sur le développement d'une petit macro qui me permet d'afficher, une fois un double-clique effectué sur une cellule, la date du jour, et aussi de permettre à l'utilisateur d'éditer immédiatement la cellule.

Mon problème est que le curseur se place par défaut là où l'utilisateur a cliqué; hors je voudrais que le curseur soit positionné directement après la date, quelque soit l'endroit cliqué, histoire qu'il ne se retrouve pas à écrire en plein milieu de la date.

Voici pour l'instant à quoi ressemble le code de la macro (qui fonctionne sans problème)
Code:

1 2 3 4 5 6 7 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim day, month As String day = Left(Date, 2) month = Mid(Date, 4, 2) Cancel = False ActiveCell.FormulaR1C1 = day & "/" & month End Sub
Merci d'avance pour votre aide
Arnaud

Bonjour,

Essaye ceci :

Code:

1
2
3
4
5
6
7
8
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim day, month As String
    day = Left(Date, 2)
    month = Mid(Date, 4, 2)
    Cancel = False
    ActiveCell.FormulaR1C1 = day & "/" & month
    ActiveCell.Offset(0, 1).Select
End Sub

wape

27/01/2008, 11h58
jack51106

Bonjour,

J'avais essaye d'utiliser cette formule, mais ce qui se passe, c'est que la cellule active devient celle à droit de celle où je voudrais écrire un texte après la date.

D'un autre côté je ne sais pas si c'est faisable de positionner le curseur à la fin du texte d'une cellule quand on double-clique dessus.

Merci pour ton aide quand même.
Arnaud

Bonsoir,

Désolé, j'avais mal compris la question... Essaye éventuellement ceci :

Code:

1
2
3
4
5
6
7
8
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim day, month As String
    day = Left(Date, 2)
    month = Mid(Date, 4, 2)
    Cancel = False
    ActiveCell.FormulaR1C1 = day & "/" & month
    Application.SendKeys "{END}"
End Sub

wape

28/01/2008, 08h34
jack51106

Bonjour,

Grand merci pour ton aide, c'est exactement cet effet que je voulais.
Bonne journée et encore merci
Arnaud