VBA - Créer un bouton pour rafraîchir les calculs Résolu/Fermé

Question

Hello tout le monde ! 

Je cherche à créer un bouton sur une feuille excel qui actualisera les calculs d'un groupe de cellules.

J'ai essayé le code suivant, mais certainement un peu bancal :

Private Sub Worksheet_Activate()
   ThisWorkbook.RefreshAll
End Sub

En sachant, que je veux que ça n'actualise que les cellules B33:B40

Auriez-vous une idée ? :)

PS : je ne maîtrise pas vraiment le VBA... ^^

Merci par avance pour votre aide !!

Enaxor18

Mike-31 · Answer

Bonjour,

il faudrait voir ce qu'il y a dans ces cellules B33:B40, si tu as des formules il faudra tout passer en VBA
le mieux serait d'avoir un bout de ton classeur anonymisé que tu peux joindre à partir de ce lien
https://www.cjoint.com/

Mike-31 · Answer

Re,

je regarde ton fichier, mais rien ne correspond à tes explications, je ne vois nulle part des données en  b33:b40 mais seulement B4:B10 qui font bien des calculs avec une fonction personnalisée "moyfeuille"

d'après ce que je comprends, cette fonction personnalisée rapatrie bien les données des feuilles précédentes et tu voudrais remplacer cette fonction automatique par un rapatriement des données uniquement lorsque tu cliqueras sur le bouton, c'est bien cela !

Enaxor18 · Answer

Re,

Oui désolé en anonymisant mon fichier j'ai supprimé les premières lignes...

Et oui, c'est bien cela, je souhaite un bouton qui rapatrie et actualise les calculs notamment quand je rajoute de nouveaux onglets avant le dernier :)

--

Mike-31 · Answer

Re,

excuse mes interventions par intermittence dues à des coupures de connexions causées par des travaux.

regarde ton fichier voir si c'est que tu cherches, j'ai écrit plusieurs codes pour les voir fonctionner, mais on les simplifiera et on les accélérera si c'est ce que tu cherches 
pourquoi mettre deux boutons et ne pas actualiser les colonnes B et I avec un seul code et bouton

 https://www.cjoint.com/c/EJniWYDsSlj

Mike-31 · Answer

Re,

j'ai supprimé un bouton et piloté l'ensemble avec un seul, j'ai rajouté une feuille qui doit impérativement se trouver avant la feuille Résumé dans la quelle j'ai copié les données de Septembre 2015, si tu clic sur le bouton tu verras que les données s'actualisent et si tu contrôles manuellement tu verras que les résultats correspondent.
En ce qui concerne les lignes dans l'ancien code précédées d'apostrophes, je t'ai bien dit que j'avais écrit plusieurs codes pour tester dont un avec Do While ce qui permet de voir le travail du code
 
 https://www.cjoint.com/c/EJnnaqeHfLj
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

par contre tes fonctions personnalisés dans les modules sont devenues inutiles, supprime les 3 modules pour éviter qu'ils n'entrent en conflit
Mon code est directement dans les propriétés du bouton, pour y accéder clic droit sur l'onglet de ta feuille Résumé/Visualiser le code