Discussion :

[babybell]

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

[fring]

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
.

[babybell]

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

[Le Pierre]

Bonjour

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

Code :

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

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

[babybell]

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

[fring]

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 :

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

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

[babybell]

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

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