[XL-2010] objet Range issu d'un tableau (listobject) [Résolu]

[XBS17]

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 :

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 :

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.

[bbil]

essai:

Code :

For Each cellule In plage.Cells

[XBS17]

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]

Remarque:

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

Code :

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

[bbil]

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

Code :

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

[XBS17]

bbil,

En définissant ma plage de la manière suivante:

Code :

Set plage = Range("Tableau1")

Je n'ai pas besoin d'ajouter la propriété cells et ça fonctionne.
J'ai découvert par hasard cette syntaxe entre crochets.

[XBS17]

C'est Ok

J'ai compris.

bbil, merci beaucoup pour votre aide.

J'indique le discussion résolue

[XBS17]

Dans le message 1 et 4,

il faut lire:

Code :

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

champ dans le cas présent est Code


si J'écris Code à la place de champ, le code ne s'inscrit pas correctement ...

[AlainTech]

Bonjour,

Pour poster le mot code entre crochets sur le forum, tu peux utiliser les balises noparse.

Code :

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

Si tu veux voir comment j'ai fait, clique sur Citer et regarde le texte dans la zone de réponse.