Discussion :

[nono_12]

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.



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.

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Sub looping()
   Range("A1").Copy Range("D3")
End Sub

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

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/

[nono_12]

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

Salut

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.[...]

[...]

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...

[Menhir]

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.