Limites d'Excel

[chanu]

Bonjour à tous,
Je suis en train de réaliser un petit programme avec des filtres sur les colonnes et malheureusement j'ai atteinds le nombre de colonnes maximum. J'ai donc utilisé une autre feuille qui contient le même tableaux mais avec des info différentes sur les colonnes.

Est - il possible de coupler les deux tableaux quand on lance les filtres?

Private Sub btRechercheChantier_Click()

        
    If ListBox1.List(ListBox1.ListIndex) = "Secteur 1" Then
            Workbooks.Open Filename:= _
                "S:\Mon_fichier.xls"
                UserForm1.Hide
            Worksheets(1).Select
            Call Filtre_Vert
    End If
End sub


Private Sub Filtre_Vert()
    Range("E:IV").EntireColumn.Hidden = True
    Range("A:B").EntireColumn.Hidden = True
    Dim Cell As Range
    For i = 0 To ListBox2.ListCount - 1
        If ListBox2.Selected(i) Then
            Dim affiche As Boolean
            affiche = False
            Dim count As Integer
            count = 1
            For Each Cell In Range("E5:IV5")
                If (affiche = True) Then
                    If (count < 6) Then
                        Cell.EntireColumn.Hidden = False
                        count = count + 1
                    End If
                Else
                    If (Cell = CInt(ListBox2.List(i))) Then
                        Cell.EntireColumn.Hidden = False
                        affiche = True
                    End If
                End If
            Next Cell
        End If
    Next i
End Sub

Si quelqu'un a déjà traité ce problème merci de me conseiller.

 

[JNP]

Re : Limites d'Excel

Re 🙂,
C'est dur la culture 😛...
Ta sub Filtre_Vert aurait du ressembler à ça

Private Sub Filtre_Vert()
Dim I As Integer, K As Integer
K = 5
For I = 0 To ListBox2.ListCount - 1
    If ListBox2.Selected(I) Then
        Dim J As Integer
        For J = 5 To 255 Step 6
            If Cells(5, J) = CInt(ListBox2.List(I)) Then
                Range(Cells(5, J), Cells(86, J + 5)).Copy Sheets("Consultation").Cells(K, J)
                K = K + 5
            End If
        Next J
    End If
Next I
Range("C2").FormulaR1C1 = ListBox1.List(ListBox1.ListIndex)
End Sub

sans Hidden, avec juste le K extrait de la boucle pour qu'il n'y ait pas chevauchement...
Bon courage 😎