Variable indicée en VBA

Bonjour amis développeurs
J'ai un trou de mémoire concernant les variables indicées en VBA. Mon problème : sur une feuille Excel, j'ai un certain nombre de noms. Je voudrais, à l'aide d'une boucle For...Next aller rechercher d'un seul coup tous les noms et les remettre sur une autre feuille. Merci de m'éclairer de vos lumières

Bonjour,

Une boucle est-elle vraiment nécessaire ?

Les noms sont dans une colonne, par exemple de A2 à Axx et tu veux les copier tous ? Dans ce cas pas besoin de boucle

Ou faut-il les parcourir et les copier selon une certaine condition ? Dans ce cas oui on se coltine une boucle
.

Merci de ta réponse.
Il me faut vraiment une boucle car mes noms étant issus d'une "RECHERCHEV" et n'étant pas toujours les mêmes, il me faut, une boucle pour éviter nom1=...nom2=...nom3=... etc, car ces noms me servent de commentaires sur une rubrique de la 2ème feuille. J'arrive à mettre ces noms en commentaires, mais une boucle est plus pratique car je fais cette opération plusieurs fois.

Merci d'avance

Bonjour

Voici un petit exemple tout simple à adapter à ton besoin :

Code:

---

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

Sub test() Dim Nom(50) 'Lecture données sur feuille 1 colonne 1 à partir ligne 2 Sheets(1).Select For i = 1 To 50 Nom(i) = Cells(i + 1, 1).Value Next i 'Ecriture Sheets(2).Select For i = 1 To 50 Cells(i + 1, 1).Value = Nom(i) Next i End Sub

---

à plus

Merci de ta réponse, cela me va très bien. Bon week-end

Bonjour,

Pour info, il y a moyen de résumer le code de Pierre sans passer par un tableau dynamique et en utilisant une seule boucle

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim i As Integer   'Lecture données sur feuille 1 colonne 1 à partir ligne 2 'et écriture sur la feuille 2 For i = 2 To 50 Sheets(2).Cells(i, 1) = Sheets(1).Cells(i, 1) Next i   End Sub

---

;)

ta formule est bien pratique mais ne fonctionne pas chez moi. Tant pis

[EDIT] erreur de ma part, cela fonctionne très bien. Merci