XL 2013 Gestion d onglet invisible, liste et impression

  • Initiateur de la discussion Initiateur de la discussion Lolo4428
  • 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 !

Lolo4428

XLDnaute Nouveau
Bonjour

je suis entrain de faire un petit programme VBA
je suis plutôt novice mais j'arrive un peu à analyser les lignes de code

par contre la j'ai un soucis
de gestion d'onglets invisibles et d'impression suivant une liste et une ou des conditions

je vous joint le fichier

Merci de votre aide

Lolo
 

Pièces jointes

Bonjour Lolo,
Pour le nom du chantier il faut faire un Recalculate car vous êtes en Calcul manuel.

Dans feuille Liste, avez vous besoin de Application.Calculation = xlCalculationManual ?

Si vous n'avez pas de lourds calculs laissez Application.Calculation= xlCalculationAutomatic
sinon faites un Recalculate à chaque fois que vous voudrez remettre à jour vos feuilles.
 
Bonjour Lolo,
Pour le nom du chantier il faut faire un Recalculate car vous êtes en Calcul manuel.

Dans feuille Liste, avez vous besoin de Application.Calculation = xlCalculationManual ?

Si vous n'avez pas de lourds calculs laissez Application.Calculation= xlCalculationAutomatic
sinon faites un Recalculate à chaque fois que vous voudrez remettre à jour vos feuilles.

Merci Sylvanu

je ne maitrise pas, j’apprends par l'exemple

votre ligne de code je dois la mettre à quel endroit svp

Merci de votre aide
 
Le plus simple , dans la feuille Liste vous supprimez la ligne :
VB:
Private Sub Worksheet_Activate()
Dim ws As Worksheet, i As Integer

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual         ' A SUPPRIMER'
Puis vous remettez en automatique par les options d' XL :

5.jpg
 
Le plus simple , dans la feuille Liste vous supprimez la ligne :
VB:
Private Sub Worksheet_Activate()
Dim ws As Worksheet, i As Integer

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual         ' A SUPPRIMER'
Puis vous remettez en automatique par les options d' XL :

Regarde la pièce jointe 1059325

j ai compris lol
en faisant sa plus aucune macro ne fonctionne
 
- 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

Discussions similaires

Réponses
8
Affichages
587
Réponses
7
Affichages
459
Retour