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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Novembre 2021

• #16

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 :

VB:

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" :

Code:

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.

 

Pièces jointes

• 105_FactReglees (Scorpio)3.xlsm

  34.7 KB · Affichages: 1

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 23 Novembre 2021

• #17

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

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 23 Novembre 2021

• #18

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Novembre 2021

• #19

sylvanu à dit:

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

Cliquez pour agrandir...

Voir PJ. J'ai rajouté :

VB:

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

 

Pièces jointes

• 105_FactReglees (Scorpio)4.xlsm

  36.4 KB · Affichages: 1

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 23 Novembre 2021

• #20

sylvanu à dit:

Voir PJ. J'ai rajouté :

VB:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 23 Novembre 2021

• #21

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

 

Vote positif 0 Vote négatif