Discussion :

[GADENSEB]

Bonjour leForum,
J'ai besoin d'aide sur ce petit code.

Via un usf, je remplie une Bdd dans la Feuille "COMPTES"

Dans la feuille "INTERFACE", je fais un AdvancedFilter (code suivant)
Cela marche super bien :

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
16
17
18
19
20
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Donnees As Range
 
  Application.ScreenUpdating = False
  Application.EnableEvents = False
 
 
  If Not Intersect([R9:W10], Target) Is Nothing Then
       Sheets("COMPTES").[A1:S10000].AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("R8").CurrentRegion, CopyToRange:=[M7:O7]
  End If
 
 
 
 Range("C2").Select
Application.EnableEvents = True
 
 
Application.ScreenUpdating = True
End Sub

Mais la mise à jour ne se fait pas en auto quand je modifie la Base .....
Du coup, j'essaye de modifier le code en disant :
Si modification dans la base (Feuille "COMPTES") --> AdvancedFilter dans la feuille "INTERFACE"

Je dois pas en être loin mais pas de mise à jour

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
16
17
18
19
20
21
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Donnees As Range
 
Donnees = Worksheet("COMPTES").a1.CurrentRegion.Select
 
  Application.ScreenUpdating = False
  Application.EnableEvents = False
 
 
  If Not Intersect(Donnees, Target) Is Nothing Then
        Sheets("COMPTES").[A1:S10000].AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=Range("R8").CurrentRegion, CopyToRange:=[M7:O7]
  End If
 
 
 Range("C2").Select
Application.EnableEvents = True
 
 
Application.ScreenUpdating = True
End Sub

QQn aurait une idée ?

[Philippe Tulliez]

Bonjour,
Si le UserForm met à jour les données dans la feuille nommée [Compte], la procédure événementielle Worksheet_Change doit être située dans le module de cette feuille afin d'enclencher l'exportation des données. Est-ce le cas ?
En revanche, si la mise à jour du UserForm concerne les critères, c'est dans le module de cette feuille que la procédure événementielle doit être placée.

[EDIT]
En relisant la deuxième procédure, j'ai une interrogation.
La ligne 4 contient (l'utilisation de la méthode Select n'est pas très heureuse)

Code :

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

Donnees = Worksheet("COMPTES").a1.CurrentRegion.Select

et les lignes 10 à 13

Code :

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

1
2
3
4
If Not Intersect(Donnees, Target) Is Nothing Then
        Sheets("COMPTES").[A1:S10000].AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=Range("R8").CurrentRegion, CopyToRange:=[M7:O7]
End If

Pourquoi Sheets("COMPTES").[A1:S10000].AdvancedFilter et pas Donnees.AdvancedFilter

[GADENSEB]

Salut Philippe

La procédure événementielle Worksheet_Change doit être située dans le module de cette feuille afin d'enclencher l'exportation des données. Est-ce le cas ?

--> Nan en effet, comme c'est super logique donc je n'y ai pas pensé lol



--> Donc a changer de ma part

Pourquoi Sheets("COMPTES").[A1:S10000].AdvancedFilter et pas Donnees.AdvancedFilter

C'est un code que je viens de bricoler --> donc pas tt à fait au point


Donc si je résume


Source : La Feuille "COMPTES" A1: S (Dernière ligne)
Action:=xlFilterCopy
Critéres (nouveauté depuis mon dernier post) : La feuille "PARAMETRES" AB4:AG6
CopyToRange: Feuille "INTERFACE" M7:O7


Du coup mon code c'est n'importe quoi ... LOL

Qu'est ce que tu en penses?

[Philippe Tulliez]

Bonjour Seb,

Qu'est ce que tu en penses?

Et bien, je pense que la solution est de placer la procédure événementielle dans le module de la bonne feuille.
Si j'ai le temps dans la journée, je placerai un classeur exemple avec UserForm et procédure événementielle avec explication et publication du code.

[GADENSEB]

Merci M'sieur

Je fais des tests de mon coté

a tout'

[Philippe Tulliez]

Bonjour,
Pour mon exemple, le classeur de test à trois feuilles nommées respectivement [db], [Export] et [Param]

La feuille db contient les données gérée par un UserForm (Voir la contribution USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire)


La feuille Export est la feuille alimentée par la méthode AdvancedFilter se trouvant dans la procédure événementielle Worksheet_Change de cette feuille.

La plage des cellules $A$1:$D$1 de cette feuille est nommée areaExport (Gestionnaire des noms)

La feuille [Param] contient en cellule $D$1:$D$2 la zone des critères et est nommée areaCriteria
L'étiquette de colonne de la zone des critères est Département et le critère est RH

Code de la procédure à placer dans la feuille où se trouve la base de données (db)

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim areaCriteria As Range, areaExport As Range
 If Target.Column <> Target.CurrentRegion.Columns.Count Then Exit Sub
 With Application
  Set areaCriteria = .Names("AreaCriteria").RefersToRange.CurrentRegion
  Set areaExport = .Names("AreaExport").RefersToRange
 End With
 shtDb.Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, areaCriteria, areaExport
End Sub

La ligne 3 vérifie que la colonne où à lieu l'événement est bien la dernière avant de procéder à l'exportation des données (en effet la procédure d'écriture du UserForm écrit dans chaque cellule de la ligne modifiée et provoque donc autant d'événement qu'il n'y a de cellules.

J'attire l'attention sur le fait qu'une plage ou cellule nommée avec une portabilité Classeur ne peut être référencée directement par l'objet Range et son indice (Ex : Range("areaCriteria") ). D'où les lignes 5 et 6 utilisant la propriété RefersToRange

On pourrait aussi placer la méthode AdvancedFilter dans la procédure d'écriture du UserForm en lieu et place de la procédure événementielle