for each in next instruction dans un tableau : sens de parcours dans le tableau

Bonsoir,
j'utilise l'instruction for each ... in ...next pour parcourir les éléments d'un tableau.
Je ne sais pas pourquoi on parcourt d'abord verticalement les colonnes (lignes par lignes) puis on change pour passer à la colonne suivante.
Je souhaiterais en réalité travailler horizontalement par lignes :
balayer chaque ligne sélectionnée en parcourant les colonnes puis on change de ligne et on recommence.
Comment je peux modifier le sens de parcours : d'abord horizontal puis en fin de ligne on change de ligne.
Merci par avance

Bonjour,
Voici un exemple parmi d'autres du parcours des lignes par colonnes d'un tableau structuré (ListObject) nommé t_Staff

Code:

---

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

Sub t() Const n As String = "t_Staff" Dim lo As ListObject Dim Cc As Range Dim Cr As Range Set lo = Range(n).ListObject For Each Cc In lo.HeaderRowRange Debug.Print "[" & Cc.Value & "]" For Each Cr In lo.ListColumns(Cc.Value).DataBodyRange Debug.Print Cr.Value Next Next Set lo = Nothing: Set Cr = Nothing: Set Cc = Nothing End Sub

---

merci beaucoup j'essaie tout cela demain et vous tiens informé.

Ce qui est très étrange est que si on fait la sélection du tableau manuellement dans la feuille excel, (selection) alors le sens est bon!!!

Très bonne soirée

Citation:

---

Envoyé par wes333

Ce qui est très étrange est que si on fait la sélection du tableau manuellement dans la feuille excel, (selection) alors le sens est bon!!!

---

il faut passer d'abord par l'objet Worksheet apparemment MSDN

.Donc modifier le code de Philippe mais en passant par l'objet Worksheet donc Worksheet.Range

Code:

---

1 2 3

With Worksheets("Sheet1").Range("B2:Z22") .Range(.Cells(1, 1), .Cells(5, 3)).Font.Italic = True End With

---

bonjour,

merci à tous les deux pour votre aide.

En réalité avec l'exemple de Mat j'ai compris mon erreur.

Je n'avais pas défini mon tableau en utilisant Range sur des données existantes. Je les avais directement lues cellule par cellule sur une plage existante :

Code:

---

tableau(i,j).value = activesheets.cells(i,j)

---

En définissant le tableau avec range :

Code:

---

Set tableau = Worksheets("SY54410").Range(Cells(1, 1), Cells(lignes, colonnes))

---

ça marche bien, on parcourt le tableau dans le bon sens.

Très bonne journée

Merci encore

bonjour content que le problème soit solutionné.
Ne pas hésiter à éplucher le MSDN car la programmation en VBA c'est complexe il y a des tas de fonctionnalités à utiliser.