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 tout le monde,
@Scorpio, en PJ une ligne est insérée en ligne 2.
J'ai simplifié tout ça, car comme c'est parti il y aura d'autres modifs. 😛
Donc dans toutes les feuilles il y a toujours strictement la même macro :

Private Sub Worksheet_Activate()
    Copie ActiveSheet, [F1]
End Sub

Et une macro dans module qui fait le boulot sur la "Feuille" et avec le "Nom" :

Sub Copie(Feuille, Nom)
    Application.ScreenUpdating = False
    With Sheets("Ecritures")
        .[F1] = Nom
        .[A1:F1000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[L1:L2], CopyToRange:=[A1:F1]
        .[F1] = "Statut"
    End With
    Range("A2:F2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Application.ScreenUpdating = True
End Sub

Ce qui fait qu'on ne touche qu'à cette macro en cas d'évolution, et ce sera applicable pour toutes les feuilles.

 

[Scorpio]

Salut sylvanu,
Excuse mois de répondre si tard, j'ai bientôt 70 ans, on bouge un peut moi vite 😁😁😁
Je te remercie infiniment, c'est très gentil pour ton excellent travail.
Je vais regarder tous ca et a bientôt

Scorpio 😉

 

[Scorpio]

Re sylvanu, encore moi 😉😉
Dis moi sylvanu, j'aimerais saisir des valeur du genre =Sous-Total en ligne 2 de chaque compte, mais les données ne reste pas, comment faire ??
A++++
Scorpio

 

[sylvanu]

car comme c'est parti il y aura d'autres modifs. 😛

Voir PJ. J'ai rajouté :

[D2] = Format(Application.Sum([D3:D1000]), "0.00"): [E2] = Format(Application.Sum([E3:E1000]), "0.00")
[D2:E2].Font.Color = vbRed

 

[Scorpio]

Voir PJ. J'ai rajouté :

[D2] = Format(Application.Sum([D3:D1000]), "0.00"): [E2] = Format(Application.Sum([E3:E1000]), "0.00")
[D2:E2].Font.Color = vbRed

 

[Scorpio]

OK, sylvanu, c'est ca que cherchais, mais avec ces sacrés code, je m'en sort pas.
Si j'ai une ligne vide, je sais faire =Sous-Total;9;A1:A60) et le compte est bon.
Mais la, c'est toi le chef avec les code VBA.
En tous les cas, un grand merci pour ton aide et ta patience, je pense pour moi que c'est bon.
Je vais pouvoir commencer a travailler, enfin... 😁😁
A bientôt, merci encore

Scorpio