filtre auto

vincenus33 · 23 Juillet 2012

Bonjour,

on m'a demandé de faire une macro qui peut faire la manip suivante (non négociable!):
- on se place dans l'onglet 1
- en double clique dans une cellule qui se trouve dans entre R4 et AB1000
- en cliquant sur cette ligne, je dois garder en mémoire la valeur de la cellule C4 et F4 (par exemple si je double clique en R4)
- en double cliquant, sélection de l'onglet 2, et filtre automatique avec en B4, je filtre avec la valeur de C4 (onglet 1) et en C4 de l'onglet 2, je filtre avec la valeur de F4 de l'onglet 1

j'espère que c'est clair !?

au secours !
merci

windows xp pro
vba excel 2007

j'ai commencé à faire ce code sans le double clique, mais j'ai une erreur incompatibilité de type au niveau de a=.......

Dim lig As Long
Dim a As Long
Dim b As Long

lig = ActiveCell.Row
ActiveCell.Offset(0, -15).Select
a = ActiveCell.Value
ActiveCell.Offset(0, -12).Select
b = ActiveCell.Value

Sheets("Actions").Activate
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:= _
a
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=3, Criteria1:= _
b

pedrag31 · 23 Juillet 2012

Re : filtre auto

Bonjour Vincensus33, Bonjour le forum,

Peut être un pb au niveau de tes déclarations:

Essaie peut être ceci (non testé):

Code:

Dim lig As Integer
Dim a As String
Dim b As String

Une proposition pour tes récupérations de valeurs, plus simple (pas d'offset, parfois compliqués à relire):

Code:

a = Range("C" & ActiveCell.Row).Value
b = Range("F" & ActiveCell.Row).Value

Bonne journée, 🙂

filtre auto

vincenus33

Guest

pedrag31

XLDnaute Occasionnel

Discussions similaires

filtre auto

vincenus33

Guest

pedrag31

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency