Créer des tableaux séparés à partir des valeurs d'un tableau

vgendron à dit:

Salut
Hello Staple1600

correction pour la ligne "Nice" manquante. c'était juste un problème d'indice

VB:

Sub CreerTableaux()
Dim Unique As New Collection 'contiendra la liste des villes sans doublon
Dim tablo() As Variant 'contient tout le tableau de la feuille 1

With Sheets("Feuil1")
    fin = .UsedRange.Rows.Count
    tablo = .Range("A2:G" & fin).Value
    entete = .Range("A1:G1").Value
  
    On Error Resume Next
    For i = LBound(tablo, 1) To UBound(tablo, 1)
        Unique.Add tablo(i, 3), tablo(i, 3)
    Next i
End With

For Each ville In Unique
    Sheets.Add
  
    With ActiveSheet
        ActiveWindow.DisplayGridlines = False
        .Name = ville
        .Range("A1:G1") = entete
        k = 2
        For i = LBound(tablo, 1) To UBound(tablo, 1)
            If tablo(i, 3) = ville Then
                For j = LBound(tablo, 2) To UBound(tablo, 2)
                    .Cells(k, j) = tablo(i, j)
                Next j
                k = k + 1
            End If
        Next i
      
        .ListObjects.Add(xlSrcRange, Range("$A$1:$G$" & k - 1), , xlYes).Name = "Tab" & ville
        .ListObjects("Tab" & ville).TableStyle = "TableStyleMedium9"
      
    End With
Next ville
End Sub

Cliquez pour agrandir...

vgendron à dit:

Salut
Hello Staple1600

correction pour la ligne "Nice" manquante. c'était juste un problème d'indice

VB:

Sub CreerTableaux()
Dim Unique As New Collection 'contiendra la liste des villes sans doublon
Dim tablo() As Variant 'contient tout le tableau de la feuille 1

With Sheets("Feuil1")
    fin = .UsedRange.Rows.Count
    tablo = .Range("A2:G" & fin).Value
    entete = .Range("A1:G1").Value
  
    On Error Resume Next
    For i = LBound(tablo, 1) To UBound(tablo, 1)
        Unique.Add tablo(i, 3), tablo(i, 3)
    Next i
End With

For Each ville In Unique
    Sheets.Add
  
    With ActiveSheet
        ActiveWindow.DisplayGridlines = False
        .Name = ville
        .Range("A1:G1") = entete
        k = 2
        For i = LBound(tablo, 1) To UBound(tablo, 1)
            If tablo(i, 3) = ville Then
                For j = LBound(tablo, 2) To UBound(tablo, 2)
                    .Cells(k, j) = tablo(i, j)
                Next j
                k = k + 1
            End If
        Next i
      
        .ListObjects.Add(xlSrcRange, Range("$A$1:$G$" & k - 1), , xlYes).Name = "Tab" & ville
        .ListObjects("Tab" & ville).TableStyle = "TableStyleMedium9"
      
    End With
Next ville
End Sub

Cliquez pour agrandir...

vgendron à dit:

Salut

Dim Unique As New Collection 'contiendra la liste des villes sans doublon
[/code]

Cliquez pour agrandir...

vgendron à dit:

Salut Gosselien
Juste parce que j'ai découvert la collection il n'y a pas longtemps et que pour l'utilisation d'un dictionnaire. je galère toujours.. ne serait ce que pour retrouver la syntaxe juste pour déclarer le dico.. :-D. je sais. c'est pas bien. ca s'appelle de la flemme :-D

Cliquez pour agrandir...

vgendron à dit:

bah en fait. j'étais en train de me demander qu'elles étaient les différences..
et je viens de tomber sur ce site


Conclusion.; Dico.. c'est bien !
bon. va falloir que je m'habitue à déclarer un dico et assimiler comment n'avoir que des éléments UNIQUE (ce qui me plaisait avec la Collection :-D

Cliquez pour agrandir...