Microsoft 365 Private Sub Worksheet_Activate, plusieur fois dans la même feuille

[Scorpio]

Bonjour à tous,
Dans ce classeur, j'ai dans la feuille "BD" un code: Private Sub Worksheet_Activate pour transférer mes lignes 1 à 1, dans la feuille "Réglés"
J'aimerais savoir si c'est possible de mettre plusieurs fois Private Sub Worksheet_Activate dans la même feuille.
Y aurait-il, s'il vous plaît, un membre sympas pour me dépanner, attention, je ne suis pas un caïd comme vous en ce qui concerne les code VBA.

Merci et a plus...


Scorpio

 

[sylvanu]

Bonjour Scorpio,
Non, vous ne pouvez avoir qu'une seule macro Worksheet_Activate qui sera activée lorsque vous sélectionnerez la feuille.
Par contre vous pouvez enchainer les instructions, comme cela :

Private Sub Worksheet_Activate()
    Sheets("BD").[A1:D1000].AdvancedFilter Action:=xlFilterCopy, _
      CriteriaRange:=[G1:G2], CopyToRange:=[A1:D1]
    Sheets("BD").[A1:D1000].AdvancedFilter Action:=xlFilterCopy, _
      CriteriaRange:=[I1:I2], CopyToRange:=[A1:D1]
    Sheets("BD").[A1:D1000].AdvancedFilter Action:=xlFilterCopy, _
      CriteriaRange:=[K1:K2], CopyToRange:=[A1:D1]
End Sub

Mais là votre macro ne veut plus rien dire, les copies écrasent les précédentes.
Il faudrait préciser ce que vous voulez faire.

 

[Scorpio]

Bonjour sylvanu,
OK, merci de me répondre si vite, sympas,
Alors, depuis la feuille "BD", a partir de la colonne "D".
Je vais faire une liste déroulante avec Les critères suivant:
Réglés pour la feuille "Réglés"
Annulé pour la feuille "Annulé"
Archivés pour la feuille "Archivés"
Je sélectionne donc dans la BD 1 ligne que je veux transférer dans la feuille "Annulés", je saisi Annulés sur ma liste déroulante en colonne "D" et la ligne se transfert dans la feuille "Annulés"
Le résultat seras donc comme de transférer 1 ligne dans la feuille Réglés, et ainsi de suite pour les autres feuille.

Je ne sais pas si je me suis bien exprimé
A plus, et merci

 

[sylvanu]

Bonsoir,
Un essai en PJ avec sur chaque feuille une macro de type :

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    Sheets("BD").[D1] = "Réglé"
    Sheets("BD").[A1:D1000].AdvancedFilter Action:=xlFilterCopy, _
      CriteriaRange:=[G1:G2], CopyToRange:=[A1:D1]
    Sheets("BD").[D1] = "Statut"
End Sub

Quand on sélectionne une feuille alors la synthèse est faite.
en espérant que cela colle au besoin.

 

[mapomme]

Bonsoir @sylvanu ,

Pour que ton dernier fichier fonctionne bien sur ma bécane, la colonne D des onglets résultats doit avoir pour intitulé "Statut" et leur cellule G1 doit aussi être égale à "Statut" (comme la colonne D de la base filtrée).

 

[sylvanu]

Bonjour Mapomme, et merci.
OUPS! c'est pas bon fichier.

 

[Scorpio]

Re sylvanu
Alors désolé, chez moi ca fonctionne pas , message erreur

 

[Scorpio]

A oui, excuse-moi, j'ai pas remarqué le message #6
Je pense que ca fonctionne, j'essaye ce soir, et te redis.
Merci beaucoup sylvanu
Merci beaucoup mapomme
Et a bientôt

 

[Jacky67]

Bonjour à tous,
Dans ce classeur, j'ai dans la feuille "BD" un code: Private Sub Worksheet_Activate pour transférer mes lignes 1 à 1, dans la feuille "Réglés"
J'aimerais savoir si c'est possible de mettre plusieurs fois Private Sub Worksheet_Activate dans la même feuille.
Y aurait-il, s'il vous plaît, un membre sympas pour me dépanner, attention, je ne suis pas un caïd comme vous en ce qui concerne les code VBA.

Merci et a plus...


Scorpio

Bonjour à tous
Allez Hop... une autre façon en PJ
Transfert direct quand il y a saisie en colonne D

 

[Scorpio]

Bonjour Mapomme, et merci.
OUPS! c'est pas bon fichier.

Re sylvanu
J'ai refais un autre classeur avec d'autre nom, mais, j'ai un message d'erreur.
est-ce que je pourrais te demander, s'il-te-plaît, de voir ce qui ne vas pas.
Je te remercie
A plus
Scorpio

 

[Scorpio]

Bonjour à tous
Allez Hop... une autre façon en PJ
Transfert direct quand il y a saisie en colonne D

Salut Jacky67,
Super, merci
Est-ce qui serais possible de conserver les données dans la feuille "BD" et non les supprimer , Merci beaucoup

 

[Jacky67]

Salut Jacky67,
Super, merci
Est-ce qui serais possible de conserver les données dans la feuille "BD" et non les supprimer , Merci beaucoup

Re..
Mettre en commentaire ou supprimer cette ligne
Rows(Target.Row).Delete

Le risque c'est de l'avoir plusieurs fois dans une feuille ou dans plusieurs feuilles

 

[Scorpio]

OK, non c'est pas le but de l'avoir plusieurs fois
Merci Jacky67
A+++

 

[sylvanu]

Bonsoir tout le monde,
@Scorpio,
En PJ, c'est rectifié. Des erreurs de nommage.
J'en ai profité pour nettoyer un peu la macro :

Private Sub Worksheet_Activate() 'Compte Epargne
    Application.ScreenUpdating = False
    With Sheets("Ecritures")
        .[F1] = "CpteEpargne"
        .[A1:F1000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[G1:G2], CopyToRange:=[A1:F1]
        .[F1] = "Statut"
    End With
    Application.ScreenUpdating = True
End Sub

 

[Scorpio]

Bonjour sylvanu,, est un grand merci de ton aide, super, ca fonctionne bien.
Pourrais je encore 1 fois te demander un coup de pouce ??
Je voudrais laisser une ligne vide (La Ligne2) entre les titres et la première ligne d'écriture, qui serais (La ligne3) sur les feuille CpteEpargne, CpteVariable, CpteVacance, et CpteChargesAppartement.
Je te remercie beaucoup, a+++
Scorpio