XL 2016 Filtrer avec deux critères suite

telemarrk · 5 Avril 2023

Bonsoir,

Je vous ai sollicité dernièrement pour filtrer des données par le biais d'une liste déroulante.

Cela me permettait de filtrer avec deux critères (la colonne : SG + la colonne : SUIVI).
Le tableau était structuré, j'essaie de refaire la même chose avec un tableau non structuré en réadaptant le code mais cela ne fonctionne pas.

Quelqu'un peut m'aider ?

Merci

sylvanu · 5 Avril 2023

Bonsoir Telemark,
Votre Critère est toujours "Vente" ça ne peux pas marcher avec un autre filtre.
Un essai en PJ avec :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Filtre$, Colonne%
If Intersect(Target, [L1]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
If Me.FilterMode Then Me.ShowAllData
With Range("C3:J10").Select
    Filtre = [L1]
    ActiveSheet.Range("$C$2:$J$10").AutoFilter Field:=3, Criteria1:=Filtre
    ActiveSheet.Range("$C$2:$J$10").AutoFilter Field:=7, Criteria1:="Validé"
End With
End Sub

sylvanu · 5 Avril 2023

Bonsoir Telemark,
Votre Critère est toujours "Vente" ça ne peux pas marcher avec un autre filtre.
Un essai en PJ avec :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Filtre$, Colonne%
If Intersect(Target, [L1]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
If Me.FilterMode Then Me.ShowAllData
With Range("C3:J10").Select
    Filtre = [L1]
    ActiveSheet.Range("$C$2:$J$10").AutoFilter Field:=3, Criteria1:=Filtre
    ActiveSheet.Range("$C$2:$J$10").AutoFilter Field:=7, Criteria1:="Validé"
End With
End Sub

fanch55 · 5 Avril 2023

Bonsoir à tous,
Pas de grosses différences avec @sylvanu :

VB:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [L1]) Is Nothing Then Exit Sub
    
    Application.ScreenUpdating = False
    Dim Lr As Long: Lr = Cells(Rows.Count, "c").End(xlUp).Row
    With Range("C2:J" & Lr)
        .AutoFilter Field:=3, Criteria1:=[L1]
        .AutoFilter Field:=7, Criteria1:="Validé"
        If .SpecialCells(xlCellTypeVisible).Count = .Columns.Count Then .AutoFilter
    End With
    [L2].Activate

End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = [L1].Address Then CreateObject("WScript.Shell").SendKeys "%{down}%"
End Sub

telemarrk · 6 Avril 2023

Bonjour à vous deux et merci pour votre aide.

Les deux fonctionnent, j'ai une petite question, pourquoi des fois dans le code VBA il y a :

Option Explicit

Merci

sylvanu · 6 Avril 2023

Bonjour,
Le VBA est un langage assez permissif. En particulier vous n'êtes pas obligés de déclarer les variables avec le fameux Dim.
Mais cela peut entrainer des erreurs si vous commettez des fautes d'orthographe ( MaVariable et MaVariabe par exemple )
Option Explicit vous oblige à déclarer vos variables sinon il génère une erreur.

fanch55 · 6 Avril 2023

Option Explicit, instruction (Visual Basic)

Force la déclaration explicite de toutes les variables dans un fichier,
ou autorise les déclarations implicites de variables.

Syntaxe

Option Explicit { On | Off }

Éléments

On
Optionnel. Active la Option Explicit vérification. Si On ou Off n’est pas spécifié, la valeur par défaut est On.

Off
Optionnel. Désactive la Option Explicit vérification.

Notes

Lorsque Option Explicit On ou Option Explicit apparaît dans un fichier, vous devez déclarer explicitement toutes les variables à l’aide des Dim instructions ou ReDim . Si vous essayez d’utiliser un nom de variable non déclaré, une erreur se produit au moment de la compilation. L’instruction Option Explicit Off autorise la déclaration implicite des variables.

Si elle est utilisée, l'instruction Option Explicit doit apparaître dans un fichier avant toute autre instruction de code source.

Notes
Définir sur Option Explicit Off n’est généralement pas une bonne pratique. Vous risquez de mal orthographier un nom de variable dans un ou plusieurs emplacements, ce qui peut provoquer des résultats inattendus lors de l’exécution du programme.

Lorsqu’une instruction explicite d’option n’est pas présente

Si le code source ne contient pas d’instruction Option Explicit , le paramètre Option Explicit de la page Compiler, Concepteur de projets (Visual Basic) est utilisé. Si le compilateur de ligne de commande est utilisé, l’option de compilateur -optionexplicit est utilisée.

Pour définir Option Explicit dans l’IDE

Dans Explorateur de solutions, sélectionnez un projet. Dans le menu Projet , cliquez sur Propriétés.
Cliquez sur l’onglet Compiler.
Définissez la valeur dans la zone Option explicite .

Lorsque vous créez un projet, le paramètre Option Explicit sous l’onglet Compiler est défini sur le paramètre Option Explicite dans la boîte de dialogue Valeurs par défaut VB . Pour accéder à la boîte de dialogue Valeurs par défaut vb , dans le menu Outils , cliquez sur Options. Dans la boîte de dialogue Options, développez Projets et solutions, puis cliquez sur Valeurs par défaut VB. Le paramètre par défaut initial dans VB Defaults est On.

Pour définir Option Explicit sur la ligne de commande

Incluez l’option de compilateur -optionexplicit dans la commande vbc .

Exemple

L’exemple suivant utilise l’instruction pour forcer la Option Explicit déclaration explicite de toutes les variables. La tentative d’utilisation d’une variable non déclarée provoque une erreur au moment de la compilation.

VB
' Force explicit variable declaration.
Option Explicit On
VB
Dim thisVar As Integer
thisVar = 10
' The following assignment produces a COMPILER ERROR because
' the variable is not declared and Option Explicit is On.
thisInt = 10 ' causes ERROR

telemarrk · 6 Avril 2023

Merci à vous pour les explications

XL 2016 Filtrer avec deux critères suite

telemarrk

XLDnaute Occasionnel

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

fanch55

XLDnaute Barbatruc

Pièces jointes

telemarrk

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Option Explicit, instruction (Visual Basic)

Syntaxe

Éléments

Notes

Lorsqu’une instruction explicite d’option n’est pas présente

Pour définir Option Explicit dans l’IDE

Pour définir Option Explicit sur la ligne de commande

Exemple

telemarrk

XLDnaute Occasionnel

Discussions similaires

XL 2016 Filtrer avec deux critères suite

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

Option Explicit, instruction (Visual Basic)​

Syntaxe​

Éléments​

Notes​

Lorsqu’une instruction explicite d’option n’est pas présente​

Pour définir Option Explicit dans l’IDE​

Pour définir Option Explicit sur la ligne de commande​

Exemple​

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency

Option Explicit, instruction (Visual Basic)

Syntaxe

Éléments

Notes

Lorsqu’une instruction explicite d’option n’est pas présente

Pour définir Option Explicit dans l’IDE

Pour définir Option Explicit sur la ligne de commande

Exemple