Microsoft 365 Excel VBA Curseur

TooFatBoy

XLDnaute Barbatruc

• 25 Mai 2022

• #2

Bonjour,

Peut-être avec un SendKeys F2 dans la macro SelectionChange ?

 

Vote positif 0 Vote négatif

P

pedro4953

XLDnaute Nouveau

• 25 Mai 2022

• #3

Hello @Marcel32 , le problème c'est que SendKeys F2 ne permet pas d'afficher le curseur

 

Vote positif 0 Vote négatif

P

pedro4953

XLDnaute Nouveau

• 25 Mai 2022

• #4

VB:

Private Sub CommandButton1_Click()

Dim x As String
Dim y As String

x = Range("B5")
y = "<B>"
Range("B5") = x & Chr(10) & y & Chr(10)
SendKeys "{F2}"



End Sub

 

Vote positif 0 Vote négatif

P

pedro4953

XLDnaute Nouveau

• 25 Mai 2022

• #5

j'ai réussi :

VB:

Private Sub CommandButton1_Click()

Dim x As String
Dim y As String

x = Range("B5")
y = "<B>"
Range("B5") = x & Chr(10) & y & Chr(10)

Cells(5, 2).Select
SendKeys "{F2}"



End Sub

 

Vote positif 0 Vote négatif

Solution

TooFatBoy

XLDnaute Barbatruc

• 25 Mai 2022

• #6

pedro4953 à dit:

Hello @Marcel32 , le problème c'est que SendKeys F2 ne permet pas d'afficher le curseur

Cliquez pour agrandir...

De rien.

La question était :

pedro4953 à dit:

Comment faire apparaitre le curseur dans une cellule sélectionnée, à la fin du texte de celle ci?

Cliquez pour agrandir...

Et je proposais d'utiliser la macro SelectionChange...
Donc, c'est sûr que si tu ne sélectionnes pas la cellule avant d'envoyer F2, il y a peu de chances que ça fonctionne.


Le principal est que tu aies trouvé la réponse à ta question.

 

Vote positif 0 Vote négatif