Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion XIRPONOM
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
X

XIRPONOM

Guest
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
 

Pièces jointes

Trier par date Trier par votes
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 :

Code: 
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+
 

Pièces jointes

Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
390
MATLEA
M
F
  • Résolu(e)
XL 2021 Macro pour inscrire la date du jour
Réponses
3
Affichages
202
fd.30
F
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
551
Phil69970
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
791
MBEPID
M
P
  • Question Question
XL pour MAC MAC OS - question sur macro VBA pour gestion fichier budget
Réponses
0
Affichages
205
pamino
P
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
525
spike29
S
P
  • Question Question
Microsoft 365 Regrouper automatiquement les dépenses par domaine d’activité (avec taxes, bénéfice et mise à jour automatique)
Réponses
8
Affichages
385
TooFatBoy
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
637
JJ69
J
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
891
crocrocro
C
EXCEL :: Cases à cocher - Connaître les détails d'un regroupement issu d'un GROUPER.PAR
Réponses
0
Affichages
558
oguruma
T
  • Question Question
XL 2016 macro pour vider le contenu d'un tableau synthese ( avant d’actualiser par les nouvelles données )
Réponses
7
Affichages
499
TooFatBoy
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
3 K
Banbara
B
EXCEL :: TCD :: SEGMENTS :: Identifier l'élément sélectionné dans le segment :: Modifier dynamiquement la valeur d'un segment :: VBA
Réponses
1
Affichages
802
oguruma
B
  • Question Question
XL 2016 Récupérer les valeurs de chaque titre à partir de plusieurs onglets
Réponses
4
Affichages
611
bnolwalid
B
  • Question Question
Microsoft 365 Suivant une sélection filtré remplacer les formules par leurs valeurs
Réponses
2
Affichages
722
chris
P
  • Résolu(e)
Microsoft 365 Macro VBA pour Copier coller une valeur sur plusieurs feuilles
Réponses
9
Affichages
648
pat66
P
  • Résolu(e)
XL 2013 Copie filtre existant active macro remet le filtre à l'identique
2
Réponses
16
Affichages
1 K
TooFatBoy
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
823
guiyom
G
E
  • Question Question
XL 2021 Identifier de manières fiables les colonnes d'un fichier Excel pour une macro VBA
Réponses
2
Affichages
561
excelentille
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…