Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Excel VBA et déplacement curseur

1 view
Skip to first unread message

Driss HANIB

unread,
May 20, 2010, 8:03:49 AM5/20/10
to
Bonjour � tous

je viens de me connceter sur NG � l'instant.
je cherche dans VBA Excel (97) � faire d�placer la s�lection d'une cellule
� celle d'� cot� par VBA sasn avoir � donner ce position absolue, puisque je
veux pouvoir fair des actions sur une ligne, quelques soit la ligne choisie
:

exemple

d�placement s�lection de 4 cellules sur la gauche.
commande copier cellule.
d�placement de 4 cellules sur la droite;
coller


merci pour vos pistes

Driss


ThierryP

unread,
May 20, 2010, 8:44:32 AM5/20/10
to
Bonjour,
En utilisant la propri�t� offset, tu peux faire ce que tu demandes. Par ex,
Sub test()
ActiveCell.Offset(0, -4).Copy
ActiveCell.Offset(1, 3).PasteSpecial xlPasteAll
End Sub

Cette macro s�lectionne la cellule situ�e sur la m�me ligne, 4 colonnes � gauche
de la cellule active et copie cette cellule une ligne en dessous et 3 colonnes �
droite de la cellule active


Le 20/05/2010 14:03, Driss HANIB a �crit :

--


@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imb�cile est une volupt� de fin gourmet - G.
Courteline

Jacques93

unread,
May 20, 2010, 8:48:48 AM5/20/10
to
Bonjour Driss HANIB,
Par exemple :

With ActiveCell
.Offset(0, -4).Select
Selection.Copy
.Offset(0, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End With

Driss HANIB a �crit :


--

Cordialement,

Jacques.

Driss HANIB

unread,
May 21, 2010, 11:53:42 AM5/21/10
to
Bonjour ThierryP

merci pour tes infos
c'est bon

Driss
"ThierryP" <t...@toto.com> a �crit dans le message de news:
up3Y%23pB%23KHA...@TK2MSFTNGP02.phx.gbl...

Driss HANIB

unread,
May 21, 2010, 11:54:15 AM5/21/10
to
Bonjour jacques93

merci pour tes infos.
j'ai compil� avec celles de ThierryP

Nickel

Driss
"Jacques93" <jacques@Nospam> a �crit dans le message de news:
O1%23EBrB%23KHA...@TK2MSFTNGP06.phx.gbl...

0 new messages