Mise à jour sur plusieurs feuilles

[Citaro]

Bonjour au forum,
Je me tourne vers vous, mon classeur contient une feuille par semaine avec un bouton sur chaque qui synthétise les données des semaines sur une feuille RecapJanvierJuin , une dernière feuille me sert pour les paramètres.

Je n'arrive pas à faire une mise à jour des données de toutes les semaines en même temps en cliquant sur le bouton de n'importe quelle feuille.

J'espère avoir décrit mon problème clairement
Merci de me dépanner

 

[Guest]

Re : Mise à jour sur plusieurs feuilles

Bonjour Les tardifs (ou matinaux),

Voici ton fichier avec une nouvelle macro 'RecapeToutesSemaines' qui boucle à travers toutes les feuilles.

Le message d'avertissement, a été inhibé car je ne savais pas s'il fallait le mettre pour chaque feuille ou une seule fois au départ de la macro. A toi de voir.

 

[Citaro]

Re : Mise à jour sur plusieurs feuilles

Bonjour Hasco,
Ce fichier fonctionne bien , la copie dans la feuille recap se fait avec les listes déroulantes, peux-t'on le faire avec seulement la valeur ?

Merci d'avance

 

[Guest]

Re : Mise à jour sur plusieurs feuilles

Re,

la copie dans la feuille recap se fait avec les listes déroulantes

Les listes de validations existaient déjà dans la feuille. Je me demandais quel en était l'intérêt d'ailleurs.

Pour les enlever toutes d'un coup:

selectionne ta feuille, puis CTRL+A, Donnée/validation -> bouton effacer tout.

Ou dans la fenêtre exécution de VBE (après sélection de la feuille) :
ActiveSheet.Cells.Validation.Delete

Si jamais, elle reviennent, j'en vois pas la raison mais: tu peux mettre cette ligne dans le code

FicheCible.Cells(4, MaCol).Resize(66, 5).Validation.Delete

Après la ligne:

FicheCible.Cells(4, MaCol).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

A+

 

[Citaro]

Re : Mise à jour sur plusieurs feuilles

Hasco Merci pour ton aide , c'est le résultat attendu

Bonne journée