Activer code vba ds module

blancolie · 30 Octobre 2020

Bonjour Le Forum,

Je voudrais comment activer ce code qui se situe ds le module Filtrage pour faire marcher mon filtrage dans la feuille BDD_Site.
car la je vois pas comment faire.

Merci de votre aide.

Cordialement

sylvanu · 31 Octobre 2020

Bonjour Blancolie, Dranreb,
Vous pouvez transférer votre Worksheet_Change de Filtrage là où il faut, c'est à dire dans votre page Site.
D'autre part vous avez la ligne "If ActiveSheet.Name <> "BDD_Site"" seulement la feuille BDD_Site n'existe pas.
Ensuite vous avez : [B1O].AutoFilter, je pense que c'est plutôt [B10].AutoFilter
On obtiendrait alors dans la feuille Site la structure suivante :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With [BDD_Site]
        With .Rows(.Rows.Count + 1)
            If Not Intersect(ActiveCell, .Cells(1)) Is Nothing And .Cells(0, 1) <> "" Then
                .Rows(0).Copy .Cells(1)
                .SpecialCells(xlCellTypeConstants).ClearContents
            End If
        End With
    End...

Dranreb · 30 Octobre 2020

Bonsoir.
Vous ne pouvez pas écrire de procédure de prise en charge d'évènement dans un module standard.
Tout ce que vous pouvez faire c'est invoquer une procédure Public d'un module standard depuis une procédure de prise en charge d'évènement écrite dans un module objet.

sylvanu · 31 Octobre 2020

Bonjour Blancolie, Dranreb,
Vous pouvez transférer votre Worksheet_Change de Filtrage là où il faut, c'est à dire dans votre page Site.
D'autre part vous avez la ligne "If ActiveSheet.Name <> "BDD_Site"" seulement la feuille BDD_Site n'existe pas.
Ensuite vous avez : [B1O].AutoFilter, je pense que c'est plutôt [B10].AutoFilter
On obtiendrait alors dans la feuille Site la structure suivante :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With [BDD_Site]
        With .Rows(.Rows.Count + 1)
            If Not Intersect(ActiveCell, .Cells(1)) Is Nothing And .Cells(0, 1) <> "" Then
                .Rows(0).Copy .Cells(1)
                .SpecialCells(xlCellTypeConstants).ClearContents
            End If
        End With
    End With
ActiveSheet.AutoFilterMode = False
If Intersect(Target, ActiveSheet.Range("C5,C7,G5,E5")) Is Nothing Then Exit Sub
  [B10].AutoFilter 'ça peut être ça tout simplement
  Select Case Target.Column
    Case 3, 4, 6
     If [C5] <> "" Then [B10].AutoFilter Field:=1, Criteria1:=[C5].Value      'Secteur
      If [E5] <> "" Then [B10].AutoFilter Field:=2, Criteria1:=[E5].Value      'Site
      If [G5] <> "" Then [B10].AutoFilter Field:=3, Criteria1:=[G5].Value    'Actif/inactif
      If [C7] <> "" Then [B10].AutoFilter Field:=3, Criteria1:=[C7].Value    'Matériel
      If [C5] & [C7] & [E5] & [G5] = "" Then [B10].AutoFilter
    Case Else
      ActiveSheet.AutoFilterMode = False
  End Select
End Sub

Sans prévaloir des actions effectiées.

blancolie · 31 Octobre 2020

Bonjour Sylvanu,

Effectivement si je confonds les Zero avec les lettre O evidememnt cela ne marche pas.

j'ai mis le code ds le bon emplacement et cela fonctionne très bien.

Merci Sylvanu

Activer code vba ds module

blancolie

XLDnaute Impliqué

Pièces jointes

sylvanu

Dranreb

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

blancolie

XLDnaute Impliqué

Discussions similaires

Activer code vba ds module

blancolie

XLDnaute Impliqué

Pièces jointes

Dranreb

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

blancolie

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency