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

XL 2019 vba trop longue

Q

Quicksland

XLDnaute Occasionnel
Bonsoir a tous ,

Jai un soucis de vba trop longue ...

Serait il possible de la raccourcir de façon que le fichier "1 EFFECTIF PN JUILLET" fonctionne correctement sans supprimer des données de lecture et d'écriture

Le fichier "3 JUILLET ASTUCE SIRENE" est un des tableaux qui alimente "1 EFFECTIF PN JUILLET"

Merci d'avance pour votre aide
 

Pièces jointes

  • 1 EFFECTIF PN JUILLET.xlsm
    272.6 KB · Affichages: 13
  • 3 JUILLET ASTUCE SIRENE.xlsm
    95.5 KB · Affichages: 8
Trier par date Trier par votes

TooFatBoy

XLDnaute Barbatruc
Coucou

Quicksland à dit:
Jai un soucis de vba trop longue ...
Cliquez pour agrandir...
VBA, ça veut dire "Visual Basic for Application". C'est le nom d'un langage de programmation pour écrire des macros sous Excel ou Word.
Du coup, comment ce langage de programmation peut-il être "trop longue" ???

Si tu parles de ta macro Mise_a_jour_onglets, saches que déjà tu peux la couper en morceaux et appeler chacun des morceaux les uns après les autres.


Les tableaux de juillet me disent quelque chose...

ps : pas le temps de regarder tes classeur, je pars virtuellement aux USA et j'en reviens dans deux heures...
 
Dernière édition:
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Bonjour à tous

Juste en passant :

Le code VBA est limité à 64 Ko ==> Voir ici et les 2 seules solutions sont :

1ere solution : Code VBA mal conçu et à revoir totalement ou en partie

2eme solution : Voir la partie est en jaune pour l'explication



De plus transmettre un fichier avec un MDP c'est pas cool
Perso je me pose toujours des questions pourquoi police 48 et réduire à 40 %



Bonne chance
 
Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc
Je n'ai regardé que le fichier "3 JUILLET...", mais déjà là tu as une macro qui est "simplifiable".
La simplification que je te propose est toute simple et tu vas immédiatement comprendre le principe que tu pourras probablement appliquer à ton autre fichier.

Ta macro actuelle est celle-ci :
VB: 
Private Sub CommandButton1_Click()
'     LUNDI
    Range( _
        "E11:E13,E15:E19,E21:E25,E27:E31,E33:E34" _
        ).Select
        Selection.ClearContents
 
'     MARDI
        
    Range( _
        "I11:I13,I15:I19,I21:I25,I27:I31,I33:I34" _
        ).Select
        Selection.ClearContents
        
'     MERCREDI
        
   Range( _
        "M11:M13,M15:M19,M21:M25,M27:M31,M33:M34" _
        ).Select
        Selection.ClearContents
        
'     JEUDI
        
   Range( _
        "Q11:Q13,Q15:Q19,Q21:Q25,Q27:Q31,Q33:Q34" _
        ).Select
        Selection.ClearContents
        
'     VENDREDI
        
    Range( _
        "U11:U13,U15:U19,U21:U25,U27:U31,U33:U34" _
        ).Select
        Selection.ClearContents
        
    Range( _
         "E11").Select
        
End Sub

Je te propose de la remplacer par celle-ci :
VB: 
Private Sub CommandButton1_Click()
' Supprime les données de lundi à vendredi
Dim MaPlage As Range
Dim i As Byte

    Set MaPlage = Range("E11:E13,E15:E19,E21:E25,E27:E31,E33:E34")
    For i = 0 To 4
        MaPlage.Offset(0, 4 * i).ClearContents
    Next i

End Sub
 
Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc
Phil69970 à dit:
Perso je me pose toujours des questions pourquoi police 48 et réduire à 40 %
Cliquez pour agrandir...
Pourtant j'ai déjà abordé le problème en juillet 2022, et j'avais même totalement refait un de ses fichiers pour le rendre lisible correctement.

XL 2019 - vba impossible feuille protégée

Bonjour le forum ;) Sur mon fichier il est impossible de faire la mise a jour a cause de la protection Merci pour votre aide 👍 ps si besoin du mot de passe " UPC-LM22"
excel-downloads.com


Phil69970 à dit:
De plus transmettre un fichier avec un MDP c'est pas cool
Cliquez pour agrandir...
Moi je m'en fous, j'ai le MdP...
 
Dernière édition:
Vote positif 0 Vote négatif
Q

Quicksland

XLDnaute Occasionnel
Bonjour @TooFatBoy ,

Euh ouais tu as raison

Ah ! c'est intéressant de pouvoir couper en deux la macro
Mais comment je doit faire exactement ?

Normal que les tableaux te disent quelque chose car c'est toi qui a modifier mes tableaux de base pour qu'il soit plus lisible

Pour le mot de passe , 3 personnes le possèdent donc sans doute qu'une personne a modifier le format de la police sans me le dire !

Merci pour avoir simplifier la macro pour le fichier 3 JUILLET ...

Pour le mot de passe , je suis désolé de ne pas l'avoir mis dans mon post de départ

En tout cas merci pour ton aide si précieuse a chaque intervention de ta part
 
Dernière édition:
Vote positif 0 Vote négatif
Q

Quicksland

XLDnaute Occasionnel
Bonjour @Phil69970 ,

Merci pour ton intervention

Désolé de ne pas avoir mis le mot de passe dans mon post de départ

D'ailleurs trois personnes possèdent le mot de passe , donc sans doute que quelqu'un a modifier la police sans me le dire !

De plus je n'ouvre plus les tableaux donc difficile de m'en apercevoir ... (5 tableaux par centres sur 16 centres )

Le fichier qui m'intéresse le plus c'est le fichier " 1 EFFECTIF JUILLET " car il compile tout les tableaux de chaque centres .

Je ne savait pas que l'on pouvait couper la macro en deux ou plus ...

Merci pour toutes les infos et merci pour ton aide
 
Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc
As-tu compris et essayé d'adapter la méthode que j'ai utilisée pour "3 JUILLET..." ?

J'ai constaté que les plages à vider étaient en fait toutes les mêmes mais décalée de 4 colonnes pour chaque jour, donc j'ai utilisé une seule plage et j'ai mis une boucle qui décale de 4 colonnes de plus à chaque tour.
 
Vote positif 0 Vote négatif
Q

Quicksland

XLDnaute Occasionnel

Bonjour @TooFatBoy

Pour être honnête avec toi je n'ai pas encore essayé ton code car le miens fonctionne
et puis le code qui me pose problème est dans l'autre fichier.
De plus même si J'ai compris le fonctionnement je ne vois pas comment je pourrais adapter ton code pour que mon fichier fonctionne correctement.

Merci pour ton aide


m
 
Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc
J'ai commencé à regarder le fichier "1...".

Mais d'abord, peux-tu me dire pourquoi il y a des macros dans le fichier "3...", que ce soit dans "ThisWorkbook" ou dans "Mise_A_Jour" ???

Ensuite, dans chacune de tes feuilles du fichier "1...", est-ce normal que le bouton n'efface que les trois premières semaines, et n'efface pas les deux dernières ?
 
Dernière édition:
Vote positif 0 Vote négatif
Q

Quicksland

XLDnaute Occasionnel
le but de la "mise a jour" est de via un troisième fichier de récupérer la "date" le nom du "pic nic " et si jour "férié" ou si les "vacances" ne sont pas encore commencer ( c'est a dire que les cellules passe en rouge comme tu peux le constater dans le premier tableau (JUILLET 1)) et ceci sur tous les tableaux et tous les centres (60 fichiers)
"ThisWorkbook" est lié a la mise a jour

Pour le non effacement des deux dernières semaines c'est parce que le fichier est en construction et c'est un oubli de ma part
 
Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc
Quicksland à dit:
Pour le non effacement des deux dernières semaines c'est parce que le fichier est en construction et c'est un oubli de ma part
Cliquez pour agrandir...
On va déjà corriger ça en rationnalisant un peu ton fichier "3...".

Dans chacune des 5 feuilles du mois (donc pas dans la feuille "Liste"), tu mets uniquement cette macro qui appelle la macro d'effacement des données de la semaine :
VB: 
Private Sub CommandButton1_Click()
    EffacerDonneesSemaine
End Sub

Et dans un module standard tu mets cette macro pour l'effacement des données de la semaine :
VB: 
Sub EffacerDonneesSemaine()
' Supprime les données de la semaine
Dim Jour As Byte, i As Byte

    Application.ScreenUpdating = False

    For Jour = 0 To 4
        For i = 0 To 3
            ActiveSheet.Range("E11:E13,E15:E16").Offset(6 * i, 4 * Jour).ClearContents
        Next i
    Next Jour

End Sub


Je ne comprends pas.

Les macros de mise à jour sont les mêmes dans "1..." et dans "3...." alors que les feuilles n'ont pas la même structure.
Pour moi, la macro de mise à jour dans le fichier "3..." ne peut pas fonctionner et n'a donc rien à faire là.
Me trompé-je ?
 

Pièces jointes

  • 3 JUILLET ASTUCE SIRENE.xlsm
    92.6 KB · Affichages: 3
Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc
Pour ton fichier "1..." même principe, pour effacer les données d'une feuille, que pour le fichier "3...".

Dans chacune des feuilles (sauf "TOTAL SEMAINE"), tu mets uniquement cette macro qui appelle la macro d'effacement des données de la feuille :
VB: 
Private Sub CommandButton1_Click()
    EffacerDonneesFeuille
End Sub

Et dans un module standard tu mets cette macro pour l'effacement des données de la feuille :
VB: 
Sub EffacerDonneesFeuille()
'
Dim Semaine As Byte, i As Byte

    Application.ScreenUpdating = False

    For Semaine = 0 To 4
        For i = 0 To 3
            ActiveSheet.Range("F14:J16").Offset(4 * i, 6 * Semaine).ClearContents
        Next i
    Next Semaine

End Sub
 

Pièces jointes

  • 1 EFFECTIF PN JUILLET.xlsm
    272.6 KB · Affichages: 4
Vote positif 0 Vote négatif
Q

Quicksland

XLDnaute Occasionnel
Pas tout a fait les mêmes et cela fonctionne
Dans le fichier 1...je récupère que la date et dans le fichier 3 je récupère la date le pic nic ect ...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

Q
  • Question
XL 2019 Probleme liste déroulante via vba
Réponses
3
Affichages
622
Quicksland
Q
C
  • Résolu(e)
XL 2016 Répartir dans des Groupes d'Effectifs Aléatoires ... mais pas trop
Réponses
2
Affichages
280
crocrocro
C
O
  • Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
1 K
olivier1984
O
X
  • Question
Microsoft 365 Classeur Excel trop lourd
Réponses
5
Affichages
734
xlstudent
X
Z
  • Résolu(e)
XL 2021 Tester l'existence d'un nom d'onglet
Réponses
3
Affichages
251
jm.andryszak
J
Q
  • Résolu(e)
XL 2019 modification macro 2
Réponses
14
Affichages
898
Quicksland
Q
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
421
steph_29120
S
D
  • Résolu(e)
Microsoft 365 Filtre avancé VBA multi-critères
Réponses
14
Affichages
432
DELHOMME
D
  • Résolu(e)
Microsoft 365 VBA : formule Excel en variable
2
Réponses
24
Affichages
1 K
mapomme
F
  • Question
Microsoft 365 Problème de compatibilité entre Microsoft 365 (office) et 2007 en VBA
Réponses
8
Affichages
365
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…