Discussion :

[ledab]

Bonjour,

Je sèche sur ce petit problème:
Je souhaite filtrer (ne pas afficher) les valeurs différentes de zéro de la plage o3 à o25 et en même temps filtrer (ne pas afficher) les valeurs différentes de "vide" de la plage o27 à o35. J'arrive bien sûr à faire l'un ou l'autre avec Autofilter, mais impossible de faire les deux en même temps...

Puis je avoir un coup de main?

Merci

Le Dab.

[ouskel'n'or]

Deux critères, ce ne devrait pas être difficile. Montre ton code, on va t'arranger ça (peut-être)
Tu dois mettre tes opérateurs de comparaison entre guillemets et pour vide, c'est "Empty"
A+

[ledab]

Bon, on ne se moque pas je débute....

Sur ma feuille xl j'ai deux boutons qui lance le premier cette procédure:

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
Sub vide_out()
Columns("o:o").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd
Range("a2").Select
End Sub
 
L'autre bouton cette procédure
 
Sub zero_out()
Range("O1:O23").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
Range("a2").Select
End Sub

Indépendament j'ai le résultat. Dans la première procédure j'ai essayé range ("o26:o33").select mais ça bogue....

Je voudrais n'avoir qu'un bouton et une seule procédure...voilà

Mes excuses d'encombrer le forum mais je suis la dessus depuis un bout de temps...et je débute !!

Merci

Le Dab

[patbou]

bonjour,
en regardant dans l aide vb tu peux ajouter un deuxieme critere de filtrage

expression.AutoFilter(Field, Criteria1, Operator, Criteria2, VisibleDropDown)

donc dans ton cas
selection.AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd, Criteria2:="<>0"
ou bien en utilsant empty

l aide parfois est tres utile

procedure tester

[ledab]

Merci de t'être penché sur mon problème. J'ai bien sûr essayé ta solution (grace à l'aide). mais ce n'est pas ce que je veux.

De o1 à o23 je ne veux pas les zéros et de o26 à o33 pas les vides mais les zéros s'il y y en a .

Mes critères de filtres doivent être sur deux plages distinctes d'une même colonne.

Je me suis peut être mal exprimé, toutes mes excuses.

Merci encore en tout cas.

Le dab

[ouskel'n'or]

Pas si simple en effet. Très facile néanmoins
Tu ne peux pas faire de filtres multicritères sur des plages différentes.
Où, dit autrement, tes différents critères, s'il y en a, doivent concerner la même plage.
Je te suggère une alternative consistant à parcourir ta colonne O et à masquer les lignes de la cellule = 0 jusqu'à ta ligne 23 puis, les lignes = Empty de la ligne 26 à 33
Sauf que tu parts à l'envers

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For NoLigne = 33 To 26 Step -1
      If Cells(NoLigne, 15) = Empty Then Rows(NoLigne).EntireRow.Hidden = True
Next
'Idem pour le 0
For NoLigne = 25 To 3 Step -1
      If Cells(NoLigne, 15).Value = 0 Then Rows(NoLigne).EntireRow.Hidden = True
Next

A+

[ledab]

MERCI, je creuse cette logique.
J'ai essayé, c'est presque bon mais ça me cache une cellule à zéro dans la plage où je veux cacher les vides mais pas les zéros.

Question subsidiaire: comment ne pas afficher toutes les petites flèches drop down de filtrage sur toutes les lignes, après lancement de la macro?

MERCI, MERCI, la soirée va être longue

Le dab