Macro pour mettre à jour selon les résultats d'un filtre

[XIRPONOM]

Bonjour,

Voici mon problème:
Cf le fichier joint:
Feuil1 : ensemble des données
Feuil2 : je fais une sélection sur les colonnes E et H
Feuil3: résultat de ce que je souhaite obtenir

Le scénario est le suivant:
Feuil1 est à l'écran
J'affiche ma sélection à l'aide des filtres et obtiens Feul2
Je lance la macro et obtiens Feuil3

La macro doit donc mettre à jour:
1ère cellule de la sélection de la colonne L : valeur Regroupement
Autres cellules de la sélection de la colonne L: valeur Détail
1ère cellule de la sélection de la colonne O: total de la sélection de la colonne J
1ère cellule de la sélection de la colonne P: total de la sélection de la colonne K
1ère cellule de la sélection de la colonne Q: valeur de la dernière cellule de la sélection de la colonne G

Je vous remercie d'avance pour votre aide.
Cordialement
JJL

 

[chris]

Re : Macro pour mettre à jour selon les résultats d'un filtre

Bonjour

Merci de ne pas multiplier un même post (https://www.excel-downloads.com/threads/macro-pour-actions-sur-le-resultat-dun-filtre.227940/)
Si tu es impatient d'avoir une réponse, tu reprends ton fil initial et tu y ajoutes une réponse : "UP" suffit.

De plus, nous sommes en week end, un peu de patience s'impose...

 

[job75]

Re : Macro pour mettre à jour selon les résultats d'un filtre

Bonsoir XIRPONOM, chris,

Il suffit de 2 feuilles :

- en Feuil1 vous faites le filtrage que vous voulez

- vous activez Feuil2 ce qui lance cette macro :

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Me.AutoFilterMode = False
Cells.Clear 'RAZ
Feuil1.[A1].CurrentRegion.Copy [A1]
With [A1].CurrentRegion
  If .Rows.Count = 1 Then Exit Sub
  .Cells(2, 12) = "Regroupement"
  If .Rows.Count > 2 Then _
    .Cells(3, 12).Resize(.Rows.Count - 2) = "A regrouper"
  .Cells(2, 15) = Application.Sum(.Columns(10))
  .Cells(2, 16) = Application.Sum(.Columns(11))
  .Cells(2, 17) = .Cells(.Rows.Count, 7)
End With
End Sub

Ce n'est donc vraiment pas compliqué...

Fichier joint.

Bonne soirée et A+

 

[XIRPONOM]

Re : Macro pour mettre à jour selon les résultats d'un filtre

Bonsoir Job75,
Plutôt surchargé, j'ai tardé à ouvrir ton msg...
Je te remercie pour ta contribution et je regarde céans.
Bonne soirée.