Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Curseur dans une cellule

6 réponses
Avatar
Jean-Luc CAPEL
Bonjour à tous,
y a t'il une méthode en VBA Excel pour sélectionner un certain nombre de
caractères dans une cellule et se placer en position de saisie dés la fin de
la macro.
Salutations
JLuc

6 réponses

Avatar
papou
Re
Non ce n'est pas possible de passer en mode d'édition dans une cellule avec
VBA.
Cordialement
Pascal

"Jean-Luc CAPEL" a écrit dans le message de
news:
Bonjour à tous,
y a t'il une méthode en VBA Excel pour sélectionner un certain nombre de
caractères dans une cellule et se placer en position de saisie dés la fin
de

la macro.
Salutations
JLuc




Avatar
Joel
Bonsoir,

Si tu veux te positionner à droite du 2ème caractère :

Sub Vazy()
Application.SendKeys "{F2} {HOME} {RIGHT} {RIGHT}"
End Sub

En y ajoutant les test de validité (longueur dans chîne, etc...)

et en lançant l'exécuion depuis Excel bien sûr (et non à partir de l'éditeur
VBA !!!)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Jean-Luc CAPEL" a écrit dans le message de
news:
Bonjour à tous,
y a t'il une méthode en VBA Excel pour sélectionner un certain nombre de
caractères dans une cellule et se placer en position de saisie dés la fin
de

la macro.
Salutations
JLuc




Avatar
JpPradier
Salut Pascal

Mais si, mais si :-)

Range("A1").Select
SendKeys "{F2}"

Ensuite à coups de sendkeys avec Maj+Touche de direction, on doit arriver au résultat voulu.

j-p
Avatar
Papou
Bonjour
Oui c'est vrai ;-)
Mais moi et les SendKeys ça fait 2 !
Et puis je pense que si'l s'agit de manipuler des valeurs de cellules il y a
des méthodes plus "sûres".
Cordialement
Pascal

"JpPradier" a écrit dans le message
de news:
Salut Pascal

Mais si, mais si :-)

Range("A1").Select
SendKeys "{F2}"

Ensuite à coups de sendkeys avec Maj+Touche de direction, on doit arriver
au résultat voulu.


j-p



Avatar
AV
C'est un message de format MIME en plusieurs parties.

------=_NextPart_000_0059_01C4A198.185D86E0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Application.SendKeys "{F2}{HOME}{RIGHT}{RIGHT}{RIGHT}"

Autant de {RIGHT} que de caractères à gauche du curseur

AV


------=_NextPart_000_0059_01C4A198.185D86E0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 5.50.4807.2300" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=Arial size=2>Application.SendKeys
"{F2}{HOME}{RIGHT}{RIGHT}{RIGHT}"</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>Autant de {RIGHT} que de caractères à gauche du
curseur</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>AV</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT><FONT face=Arial
size=2></FONT>&nbsp;</DIV></BODY></HTML>

------=_NextPart_000_0059_01C4A198.185D86E0--
Avatar
JpPradier
Là, je suis d'accord avec toi, mais les voies du demandeur sont impénétrables ;-))

j-p