Salut à tous,

J'arrive petit à petit à me retrouver en ce qui concerne VBA

J'ai une petite mission, rendre un dashboard animé, et je pense avoir trouver le moyen, mais je sèche sur un truc.

Je les chiffre 1 à 10 dans la colonne A, et je colle la valeur de la cellule sélectionné(par exemple: A1) dans D3.

Nom : test boucle.PNG
Affichages : 1056
Taille : 5,3 Ko

Mon soucis c'est que je dois retourner sur la cellule A1 pour que ma boucle fonctionne.

Mais je n'ai aucune idée de comment le réaliser.
J'ai beau cherché, mais je ne vois pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 Sub looping()
 
Range("A1").Select
 
Do
ActiveCell.Offset(1, 0).Copy
Range("D3").Select
ActiveSheet.Paste
Loop
 
End Sub
Bien évidemment, le code se fera sur un plus large format, je pense pouvoir adapter le code par la suite pour le répercuter sur les différent élément à animé.

Merci d'avance de votre aide si précieuse.