Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
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.
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 ... 😉
je vous solicite car depuis dimanche j'essaie de trouver la formule et je n'ai pas réussi donc je vous silicate encore une fois.
merci pour votre patience et votre aide.
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 .
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD