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

Scorpio · 22 Novembre 2021

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 · 22 Novembre 2021

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 :

VB:

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 · 22 Novembre 2021

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 · 22 Novembre 2021

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

VB:

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 · 22 Novembre 2021

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 · 22 Novembre 2021

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

Scorpio · 22 Novembre 2021

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

Scorpio · 22 Novembre 2021

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 · 22 Novembre 2021

Scorpio à dit:
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 · 22 Novembre 2021

sylvanu à dit:
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 · 22 Novembre 2021

Jacky67 à dit:
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 · 22 Novembre 2021

Scorpio à dit:
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 · 22 Novembre 2021

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

sylvanu · 22 Novembre 2021

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

VB:

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 · 23 Novembre 2021

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

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

Scorpio

XLDnaute Impliqué

Pièces jointes

sylvanu

XLDnaute Barbatruc

Scorpio

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Scorpio

XLDnaute Impliqué

Scorpio

XLDnaute Impliqué

Jacky67

XLDnaute Barbatruc

Pièces jointes

Scorpio

XLDnaute Impliqué

Pièces jointes

Scorpio

XLDnaute Impliqué

Jacky67

XLDnaute Barbatruc

Scorpio

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

Pièces jointes

Scorpio

XLDnaute Impliqué

Pièces jointes

Discussions similaires