Copier/coller VBA + boucle

Salut à tous,

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

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.

Pièce jointe 373463

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:

---

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.

J'ai beaucoup de difficultés à comprendre ta demande.
Je ne vois pas ce que doit faire ta boucle.

J'ai l'impression que tu veux simplement copier A1 dans D3.
S'il ne s'agit que de ça, il suffit d'écrire :

Code:

---

1 2 3

Sub looping() Range("A1").Copy Range("D3") End Sub

---

Citation:

---

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

---

Si le code que tu as tenté d'écrire correspond à ce que j'ai compris de ta demande, alors que pense que ton constat est que ton constat est quelque peu optimiste.
Je te conseille d'étudier les bases : http://bidou.developpez.com/article/VBA/

Merci beaucoup de ta réponse.

Un ami m'a un peu aidé et c'est vrai que la demande n’était pas très clair. :P

En fait il fallait coller A1 dans D3 ensuite basculer sur A2 et le copier dans D3, re basculer sur A3 ainsi de suite.

Voila le code qu'il ma donné

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub loop2()   Range("A1").Select   Do ActiveCell.Offset(1, 0).Select Range("D3").Value = ActiveCell.Value   Loop Until ActiveCell.Offset(1, 0).Value = ""     End Sub

---

Maintenant je l'adapte à large échelle. Merci encore.

Citation:

---

Envoyé par nono_12

En fait il fallait coller A1 dans D3 ensuite basculer sur A2 et le copier dans D3, re basculer sur A3 ainsi de suite.

---

Je ne voudrais pas paraitre offensant mais c'est absurde : chaque copie sur D3 va écraser les copies précédentes donc seule la dernière copie sera utile.

A moins qu'il n'y ait plus que ce que tu présentes.

Pour ce qui est de ton code, je te conseille d'éviter les Select/Selection qui ralentissent l'exécution et compliquent le code.
Il serait plus simple d'écrire :

Code:

---

1 2 3 4 5 6 7

Sub loop2() Dim CC As Long For CC = 1 To Rows.Count If Cells(CC, 1).Text = "" Then Exit Sub Range("D3").Value = Cells(CC, 1).Value Next CC End Sub

---

Ou, encore mieux :

Code:

---

1 2 3 4 5 6

Sub loop2() Dim CC As Long For CC = 1 To Cells(Rows.Count, 1).End(xlUp).Row Range("D3").Value = Cells(CC, 1).Value Next CC End Sub

---

Salut

Citation:

---

Envoyé par Menhir

Je ne voudrais pas paraitre offensant mais c'est absurde : chaque copie sur D3 va écraser les copies précédentes donc seule la dernière copie sera utile.

A moins qu'il n'y ait plus que ce que tu présentes.[...]

---

Citation:

---

Envoyé par nono_12

[...]

J'ai une petite mission, rendre un dashboard animé[...]

---

Je pense que la boucle qui place les données en boucle en D3 sert à animer le dashboard... ;)

Dès lors, il serait utile que nono nous explique ce qu'il compte réaliser comme animation, parce que j'ai plus que des doutes sur la méthode employée...

Citation:

---

Envoyé par Pierre Fauconnier

Je pense que la boucle qui place les données en boucle en D3 sert à animer le dashboard... ;)

---

Dans ce cas, il sera utile de mettre une tempo. Parce que le code écrit ainsi peut passer plusieurs milliers de valeurs en un clin d'oeil.