Defilement de cellules

[renaud]

Bonjour,

Je voudrais savoir quelle macro me permettrait de de deplacer le curseur d excel de la cellule a1 a la cellule A2, puis 3 secondes apres a la cellule A3, puis encore 3 secondes apres a la cellule a4 et ainsi de suite jusqu a la cellule A%)


Merci


renaud

 

[informatixo]

Bonjour,

D'abord il te faut déclarer cette ligne de code dans un module :"Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long".

Puis il te faut l'appeler depuis un autre en droit à ta guise. Pour cette fonction il te faut juste définir un X et UN Y pour définir la position verticale et horizontale.

Par exemple dans un programme tu l'appelle en faisant "Call SetCursorPos(377, 534)" où 377 représente "X" (la position horizontale) et 534 représente "Y" (la position veticale).

En ce qui concerne le fait d'attendre 3 secondes entre chaque, il te suffit juste d'utiliser Application.Wait ou Application.OnTime suivant le cas. Pour plus de précision, demande l'aide pour ces fonctions sous VBA il y a des exemples assez clair.

Voilà, j'espère avoir pu t'aider.

A plus informatixo

 

[renaud]

Super, merci informatixo.

Je me suis inspire de ce que tu m as dit et j ai utilise ceci:


Sub IMPRESSION()
Dim k As Long
Range("G1").Select
For k = 1 To 130 Step 1
Cells(k, 1).Select
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2)

Next k

End Sub

A+

renaud