objet Range issu d'un tableau (listobject)

**XBS17** · 25/09/2011, 21h13

Bonjour,
Je suis confronté à un problème avec du code VBA pour gérer des données dans un tableau (listobject).
J’explique mon problème et je l’illustre par un exemple.
J’ai un tableau (qui comporte de nombreuses lignes), Tableau1, je souhaite associer à chaque nom un code numérique.
Nom Code
Louis
Jean
Paul
Charles
Léopold
Sébastien

J’ai écrit le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test2()
Dim cellule As Range
Dim plage As Range
Dim i As Integer
Set plage = Range("Tableau1").Columns(2)
i = 0
For Each cellule In plage
    i = i + 1
    cellule.Value = i
Next
End Sub

Et j’ai obtenu le résultat suivant :

Nom Code
Louis 1
Jean 1
Paul 1
Charles 1
Léopold 1
Sébastien 1

En fait, la boucle For each est parcourue une seule fois. Je ne comprends pas ?

En exécutant le code suivant, j’obtiens le résultat que j’attends :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test1()
 
Dim cellule As Range
Dim plage As Range
Dim i As Integer
 
Set plage = Range("Tableau1")
 
i = 0
For Each cellule In plage
    i = i + 1
    cellule.Value = i
Next
 
End Sub

Nom Code
Louis 1
Jean 2
Paul 3
Charles 4
Léopold 5
Sébastien 6

Est-ce que quelqu’un peut m’expliquer pourquoi le premier code ne fonctionne pas ?

Merci d’avance pour votre aide.

**SfJ5Rpw8** · 25/09/2011, 21h27

essai:

Code :

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

For Each cellule In plage.Cells

**XBS17** · 25/09/2011, 21h50

Merci beaucoup bbil

Ca fonctionne.
Mais je ne comprends pas bien pourquoi il faut ajouter la propritété .cells
Pouvez-vous me donner une explication complémentaire?

Désolé pour l'infraction concernant l'introduction de code.
J'ai pris connaissance de "A LIRE AVANT DE POSTER".

**XBS17** · 25/09/2011, 21h53

Remarque:

si je defini la plage de la manière suivante:

Code :

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

Set plage = Range("Tableau1[Code]")

Je n'ai pas besoin d'utiliser la proprité .cells et ça fonctionne correctement.
Je ne connaissais pas la syntaxe entre [ ]

**SfJ5Rpw8** · 25/09/2011, 21h58

Ben c'est le même problème que lorsque tu ne précise pas le classeur et la feuille devant Range ici :

Code :

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

Range("Tableau1")

Excel choisi ce qu'il veut ton objet plage faisant une référence à un élément de la collection Columns, Excel boucle sur les colonnes ( et tu en as qu'une...)..
pour boucler sur les cellules il faut mettre Cells.. sinon Excel s'adapte à son environnement...