Discussion :

[Pierre Dumas]

Bonjour tout le monde

J'ai un tableau (listobject) classique : Nom, Ville, CA

Je voudrais pouvoir boucler sur toutes les valeurs différentes de la colonne Ville (pour ensuite créer autant de feuille qu'il y a de villes, ...). Comment dois-je faire ?

Je sais boucler sur les items d'un filtre de rapport dans un TCD, mais pas sur les items d'une colonne d'un tableau.

Quelqu'un a-t'il une solution ?

Bonne journée

Pierre

[Philippe Tulliez]

Bonjour,
Pour boucler sur les lignes d'une colonne, 2 solutions parmi d'autres.
2 exemples de lecture des cellules C2 à C10 de la feuil1

Code :

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

1
2
3
4
5
6
7
8
Sub Exemple1()
 Dim l As Long
 Dim sht As Worksheet
 Set sht = ThisWorkbook.Worksheets("Feuil1")
 For l = 2 To 10
  Debug.Print sht.Cells(l, 3)
 Next
End Sub

Code :

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

1
2
3
4
5
6
7
8
Sub Exemple2()
 Dim cel As Range
 Dim sht As Worksheet
 Set sht = ThisWorkbook.Worksheets("Feuil1")
 For Each cel In sht.Range("C2:C10")
  Debug.Print cel
 Next
End Sub

[Pierre Dumas]

Pour boucler sur les lignes d'une colonne, 2 solutions parmi d'autres.

Bonjour

Non, non. Ce n'est pas ça. décidémment on ne se comprend pas : je dois mal m'exprimer

Ce que je veux c'est boucler sur des l'ensemble des valeurs DIFFERENTES de la colonne.
Quand on est en mode tableau, on peut cliquer sur la petite flèche à côté de Ville et Excel nous affiche toutes les villes différentes dans la colonne. C'est donc qu'il est capable de trouver toutes les valeurs DIFFERENTES dans cette colonne. Je voudrais faire la même chose. Mais je n'y arrive pas.

A titre de comparaison, dans un TCD, dans un filtre du rapport, quand on clique sur la petite flèche, Excel affiche toutes les valeurs différentes pour ce champ. Et là, je sais trouver les différentes valeurs :

Code :

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

1
2
3
4
For Each pf In ActiveCell.PivotTable.PageFields
   For Each Pi In pf.PivotItems
   Next Pi
Next pf

Je voudrais pouvoir faire la même chose pour tous les items (différents) de la colonne Ville de mon Tableau1.

Merci

Pierre

[Philippe Tulliez]

Bonjour,
Il faut faire une lecture en utilisant par exemple l'objet Dictionary
Une discussion sur le sujet ici
[EDIT]

Je voudrais pouvoir boucler sur toutes les valeurs différentes de la colonne Ville (pour ensuite créer autant de feuille qu'il y a de villes, ...). Comment dois-je faire ?

Et encore mieux un lien vers une discussion qui correspond pratiquement à ce que tu cherches Alimentaion des feuilles depuis occurences sur feuille de synthèse

[Pierre Dumas]

Ok

Merci. Voici la solution que j'ai réalisé :

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
16
17
18
Sub valeursuniques()
Dim Dico
Dim c As Range
Dim d
Dim b As Long
 
Set Dico = CreateObject("Scripting.Dictionary")
For Each c In Range("Tableau1[Ville]")
    If Not Dico.Exists(c.Value) Then Dico.Add c.Value, c.Value
Next c
 
b = 2
For Each d In Dico.items
    Range("H" & b) = d
    b = b + 1
Next d
 
End Sub

Toutefois, je trouve un peu dommage de devoir se constituer sa propre liste en bouclant sur toutes les valeurs avant de pouvoir les utliser. Je pensai vraiment qu'il y avait une collection qui les possédait déjà.

j'attends un peu avant de mettre "Résolu" au cas où quelqu'un connaisse cette collection.

Bonne journée

Pierre

[Philippe Tulliez]

Bonjour,
A ma connaissance, cela n'existe pas. Les outils comme les filtres créent dynamiquement les listes au moment de leurs activations.
C'est exactement la même chose que lorsque tu te places dans la première cellule qui suit immédiatement la dernière cellule remplie de la colonne contenant ta liste et que tu fais Ctrl+flèche bas, tu obtiens la liste de tous ce que tu as encodé sans les doublons et triée par ordre croissant.

[Oliv-]

Salut,
Voici une solution que je viens de coder et tester :

à partir de XL2007 !!

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 RangeSansDoublon1()
    Dim ListeAvecDoublons As Range
    Dim ValeurUnique As Range
    Set ListeAvecDoublons = ActiveSheet.Range("$C$1:$C$5")
    ListeAvecDoublons.RemoveDuplicates
    'exemple je copie cette liste en E1
    Range("E1").Resize(ListeAvecDoublons.SpecialCells(xlCellTypeConstants).Rows.Count).Value = ListeAvecDoublons.SpecialCells(xlCellTypeConstants).Value
    'j'utilise ce range pour créer des feuilles
    For Each ValeurUnique In ListeAvecDoublons.SpecialCells(xlCellTypeConstants)
        Worksheets.Add
        ActiveSheet.Name = ValeurUnique.Value
    
    Next ValeurUnique
End Sub