XL 2016 modifier fichier suivis de stock

phddesi

XLDnaute Junior
bonsoir

j'appel à votre âme charitable car j'ai un fichier que je souhaite modifier en VBA.
j'ai mis des explications directement dans le fichier.
je vous remercie d'avance pour le temps que vous me consacrerez.
 

Pièces jointes

  • suivis stock.xlsm
    26.5 KB · Affichages: 31
Solution
C'est bien signalé par le message,
malheureusement Microsoft préfère se "planter" plutôt que de renvoyer un count = 0
Remplacer la sub :
VB:
Sub Filtre_Designation()
Dim I       As Integer
Dim Crit()  As String
Dim Elem
On Error Resume Next
    N = [Stock[Code Fabricant]].SpecialCells(xlCellTypeVisible).Count
    If Err = 0 Then
        ReDim Crit(1 To N)
        For Each Elem In [Stock[Code Fabricant]].SpecialCells(xlCellTypeVisible).Cells
            I = I + 1:  Crit(I) = CStr(Elem)
        Next
        [Designation].ListObject.Range.AutoFilter Field:=1, Criteria1:=Crit, Operator:=xlFilterValues
        [Designation].Parent.Activate
    End If
End Sub
Ceci dit, cliquer pour afficher ce qui n'existe pas, ça se discute ... ;)

fanch55

XLDnaute Barbatruc
Bonjour,
Je suppose que vous voulez dire :
N' afficher que certaines valeurs dans une colonne .

Vous aviez déjà un exemple dans la sub Filtre_Designation du dernier classeur

Cinématique :
- on charge dans une variable tableau toutes les valeurs qu'on veut afficher
- on applique un filtre à la colonne du tableau concernée en lui indiquant la variable tableau :

Pour exemple, classeur joint
La sub est capable de trier des tableaux structurés ou des ranges.
Attention cependant, un seul filtre est autorisé par feuille pour des ranges .
 

Pièces jointes

  • Testfiltre.xlsm
    20.5 KB · Affichages: 6
Dernière édition:

Discussions similaires

Réponses
2
Affichages
566
Réponses
26
Affichages
791

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof