Discussion :

[wes333]

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

[Philippe Tulliez]

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

Code :

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

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

[wes333]

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

[Mat.M]

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 :

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

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

[wes333]

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 :

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

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

En définissant le tableau avec range :

Code :

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

     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

[Mat.M]

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.