Bonjour a tous,
j'ai un tableau avec en première ligne les critères suivant
Étiquettes de lignes 10 11 12 13 16 17 18 21 22 25 26 27 29 Total général
ce que je souhaiterai c'est tester et supprimer les colonnes entieres si l'entête est 12 13 22 23 24 25 (il peut arriver que dans les données extraites une des entêtes indiquées n'existe pas au moment de l'extraction
j'ai ce code
Sub macro16()
Dim F
Dim i As Integer
Dim j As Integer
F = Array("10", "11", "16", "17", "21", "27", "29")
For i = 1 To 1 Step -1 premier ligne a tester
For j = 15 To 1 Step -1 15 premieres colonnes
If Cells(i, j) <> F(i) Then
Columns(j).Delete
End If
Next
Next
End Sub
mais celui ci me supprime toutes les colonnes hormis la colonne 11
pourriez vous m'aider?
j'ai un tableau avec en première ligne les critères suivant
Étiquettes de lignes 10 11 12 13 16 17 18 21 22 25 26 27 29 Total général
ce que je souhaiterai c'est tester et supprimer les colonnes entieres si l'entête est 12 13 22 23 24 25 (il peut arriver que dans les données extraites une des entêtes indiquées n'existe pas au moment de l'extraction
j'ai ce code
Sub macro16()
Dim F
Dim i As Integer
Dim j As Integer
F = Array("10", "11", "16", "17", "21", "27", "29")
For i = 1 To 1 Step -1 premier ligne a tester
For j = 15 To 1 Step -1 15 premieres colonnes
If Cells(i, j) <> F(i) Then
Columns(j).Delete
End If
Next
Next
End Sub
mais celui ci me supprime toutes les colonnes hormis la colonne 11
pourriez vous m'aider?