Discussion :

[jack51106]

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 :

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

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

[wape]

Bonjour,

Essaye ceci :

Code :

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

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

[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

[wape]

Bonsoir,

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

Code :

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

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

[jack51106]

Bonjour,

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