Comment supprimer par VBA une valeur donnée dans un tableau structuré

Question

Tout est dans le titre : j'ai un tableau structuré, et je voudrais supprimer tous les "18" par un code VBA. Je voulais utiliser le "SpecialCells" mais je crois qu'il ne prend pas en compte une valeur donnée dans les cellules, ou bien je n'y suis pas arrivé. Merci à vous de vous pencher sur ce petit problème. Je pensais faire une boucle ou double boucle, mais avec le specialcells je pensais pouvoir le faire de façon "ligne unique". Un fichier structure bien que la question soit simple : @ bientôt LouReeD...

tomato · Accepted Answer

Sub ClearEnBoucle() Dim lo As ListObject Dim cel As Range Dim searchValue As String searchValue = "18" Set lo = ActiveSheet.ListObjects("Tableau1") For Each cel In lo.DataBodyRange If cel.Value = searchValue Then cel.ClearContents Next cel End Sub Sub ClearOneShot() Dim lo As ListObject Dim searchValue As String searchValue = "" Set lo = ActiveSheet.ListObjects("Tableau1") lo.DataBodyRange.Replace What:=searchValue, Replacement:="18", _ LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False End Sub Faudrait sécuriser si .databodyrange is nothing .....

Arturo83 · Accepted Answer

Je réponds à la question de permutation des colonnes, voici ma proposition avec 1 seule boucle. Sub InverserColonnesTableau() Dim f1 As Worksheet Dim Tabl As ListObject Dim DerCol As Long, i As Long Set f1 = Sheets("Feuil1") Set Tabl = f1.ListObjects("Tableau1") DerCol = Tabl.ListColumns.Count For i = DerCol - 1 To 1 Step -1 Tabl.ListColumns(i).Range.Cut Tabl.ListColumns(DerCol).Range.Offset(0, 1).Insert Shift:=xlToRight Next i End Sub Cdlt...

BsAlv · Answer

Je n'ai pas bien compris le but, c'est échanger la séquence des colonnes ? Sub LouReeD() 'Application.ScreenUpdating = False 'pour accèlerer la macro With Range("Tableau1").ListObject 'votre tableau If .ListColumns.Count &gt; 1 Then 'min 2 colonnes .ListColumns.Add 1 'insérer une nouvelle colonne "1" ptr = 1 'pointer For i1 = .ListColumns.Count To 1 Step -1 'boucler les colonnes .ListColumns(i1).Range.Cut .ListColumns(ptr).Range 'déplacer cette colonne vers la colonne vide à gauche ptr = ptr + 1 'incrementer pointer .ListColumns(ptr).Range.Cut .ListColumns(i1).Range 'déplacer colonne suivante à gauche vers la colonne vide à droite If ptr &gt;= i1 - 2 Then 'si les 2 colonnes se rencontrent au milieu .ListColumns(ptr).Range.Delete 'supprimer la colonne vide Exit For 'FIN End If Next End If End With End Sub Sub LouReeD2() With Range("Tableau1").ListObject 'votre tableau If .ListRows.Count &gt; 0 Then 'min 1 ligne .DataBodyRange.Replace "18", "", xlWhole End If End With End Sub...

BsAlv · Answer

Je vois que des forumes "indirect" dans la feuille "travail" Tu veux quoi exactement pour le moment, je ne comprends pas et je ne connais pas ce jeu .....

tomato · Answer

Je n'ai pas compris la partie : la colonne 1 ne bouge pas mais tu pourras adapter facilement le code suivant qui sera plus performant et instantané car sans lecture/écriture ni recalcule de formules parfois bien gourmandes...

C'est marqué mais le premier booléen inverse (ou pas) les colonnes, le second inverse (ou pas) les lignes

Sub InverserTableau(ByVal InverserColonnes As Boolean, ByVal InverserLignes As Boolean)
Dim ws As Worksheet
Dim lo As ListObject
Dim colCount&, rowCount&
Dim i&, j&
Dim srcCol&, srcRow&
Dim header() As Variant
Dim body() As Variant

    ' Définir la feuille et le tableau
    Set ws = ActiveSheet
    Set lo = ws.ListObjects(1)

    colCount = lo.ListColumns.Count
    rowCount = lo.ListRows.Count

    ' 2 tbl : header et body
    ReDim header(1 To 1, 1 To colCount)
    ReDim body(1 To rowCount, 1 To colCount)

    ' Remplissage
    For i = 1 To colCount
        srcCol = IIf(InverserColonnes And colCount > 1, colCount - i + 1, i)

        ' Header
        header(1, i) = lo.HeaderRowRange.Cells(1, srcCol).Value

        ' Body
        For j = 1 To rowCount
            srcRow = IIf(InverserLignes And rowCount > 1, rowCount - j + 1, j)
            body(j, i) = lo.DataBodyRange.Cells(srcRow, srcCol).Value
        Next j
    Next i

    ' Réinjecter dans le tableau
    lo.HeaderRowRange.Value = header
    lo.DataBodyRange.Value = body
End Sub

Sub sens_dessus_dessous()
Call InverserTableau(True, True)
End Sub

Espérant avoir répondu à tes attentes

tomato · Answer

J'ai compris ta demande (enfin je crois) :

Sub InverserTableau(ByVal InverserColonnes As Boolean, ByVal InverserLignes As Boolean)
Dim ws As Worksheet
Dim lo As ListObject
Dim colCount&, rowCount&
Dim i&, j&
Dim srcCol&, srcRow&
Dim header() As Variant
Dim body() As Variant

    ' Définir la feuille et le tableau
    Set ws = ActiveSheet
    Set lo = ws.ListObjects(1)

    With lo
        If .DataBodyRange Is Nothing Then Exit Sub

        colCount = .ListColumns.Count
        rowCount = .ListRows.Count

        ' 2 tbl miroir : header et body
        ReDim header(1 To 1, 1 To colCount)
        ReDim body(1 To rowCount, 1 To colCount)

        ' Remplissage du miroir
        For i = 1 To colCount
            If i = 1 Then
                ' Première colonne figée totalement
                header(1, 1) = .HeaderRowRange(1, 1).Value
                For j = 1 To rowCount
                    body(j, 1) = .DataBodyRange(j, 1).Value
                Next j
            Else

                ' Colonnes inversables
                srcCol = IIf(InverserColonnes, colCount - i + 2, i)

                ' Header
                header(1, i) = .HeaderRowRange(1, srcCol).Value

                ' Body
                For j = 1 To rowCount
                    srcRow = IIf(InverserLignes, rowCount - j + 1, j)
                    body(j, i) = .DataBodyRange(srcRow, srcCol).Value
                Next j
            End If
        Next i

        ' Réinjecte dans le tableau
        .HeaderRowRange.Value = header
        .DataBodyRange.Value = body
    End With
End Sub

Utiliser cette procédure avec un appel :

Sub sens_dessus_dessous()
Call InverserTableau(True, True) 'true = inverser : colonnes, lignes
End Sub

BsAlv · Answer

Re, je vois que presque tout le monde a à peu près le même idée. Chez moi, c'est une fonction personalisée de quelque lignes dans la cellule BA2. Si on veut inverser les lignes, cela ne change pas beaucoup. Function F_InverseColonnes(Plage As Range) Dim aCol, aLig, t With Plage 'votre plage aLig = Evaluate(Replace("row(offset(a1,,,#))", "#", .Rows.Count)) aCol = Evaluate(Replace("transpose(#+1-row(offset(a1,,,#)))", "#", .Columns.Count)) F_InverseColonnes = Application.Index(.Value2, aLig, aCol) End With End Function...

BsAlv · Answer

Re, "indirect" est une formule volatile, elle se récalcule toujours, même si la cellule concernée n'a pas modifiée, donc c'est une des choses à vérifier si tu dis que ton fichier est lent. Donc moi je diriais, supprimer toutes ces formules et avec une simple fonction personalisée avec 3 variables, type f_Inverser(Plage, bLignes, bColonnes) dont bLignes et bColonnes sont 2 valeurs boolean pour indiquer si vous voulez inverser les lignes et/ou colonnes, vous auriez le même résultats au moment nécessaire. Peux-tu jouer ce jeu sans la feuille "travail" et vérifier si le fichier est plus vite ...