XL 2013 Gestion d onglet invisible, liste et impression

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

  • Projet 3.xlsm
    151.7 KB · Affichages: 11

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Lolo4428

XLDnaute Nouveau
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
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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
 

Lolo4428

XLDnaute Nouveau
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
 

Statistiques des forums

Discussions
312 084
Messages
2 085 194
Membres
102 813
dernier inscrit
kaiyi