Bonjour à tous et à toutes,

J'ai un petit problème... Sur une feuille Excel j'ai beaucoup de tableaux nommés tableau1, tableau2 etc...

Le dernier est tableau(chiffre présent dans un compteur en A55 sur la feuille debours).

Je voudrai filtrer tous ces tableaux en enlevant les valeurs "*" et "0" de la première colonne.

Voici la solution que j'ai trouvé:


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 Affichercommande() 'Fonction qui permet de filtrer automatiquement les tableaux de la feuille Bon de commande
 
    Dim MyString As String, r As Range, t, i
    MyString = "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100"
    t = Split(MyString, ",")
 
    For i = 1 To Sheets("Debours").Range("A55").Value
 
        Set r = Range("Tableau" & i)
 
        With r
            .AutoFilter
            .AutoFilter Field:=1, Criteria1:=t, Operator:=xlFilterValues
        End With
 
    Next
 
End Sub
Cependant, si la valeur est supérieure à 100, impossible de gérer le filtre...
De même pour les nombres à virgules...

J'espère que vous pourrez m'aider

Cordialement,

Antoine