XL 2019 vba trop longue

Quicksland · 19 Octobre 2024

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

Quicksland · 20 Octobre 2024

TooFatBoy à dit:
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

Ok j'ai tout changé merci

wDog66 · 20 Octobre 2024

Phil69970 à dit:
Juste en passant :

Le code VBA est limité à 64 Ko ==> Voir ici

Non @Phil69970
Le code VBA n'est pas limité à 64Ko c'est le code d'une procédure Sub... End Sub

TooFatBoy · 20 Octobre 2024

Quicksland à dit:
Ok j'ai tout changé merci

Je ne pourrais pas regarder ta macro trop longue avant demain.

Phil69970 · 20 Octobre 2024

L'image que j'ai mise est suffisamment parlante il me semble de plus j'ai mis le lien Microsoft de laquelle elle est tirée, de plus le mot procédure sur l'image est écrit en bleu.

Après j'aurais du écrire le code VBA de la procédure du fichier de @Quicksland "1 EFFECTIF PN JUILLET.XLSM" dans le module "Mise_A_Jour" dans la "Sub Mise_a_jour_onglets()" mis dans le post #1 du fil ==> https://excel-downloads.com/threads/vba-trop-longue.20084854/#post-20664275 sur le site Excel Download c'est à dire le fil en question dont nous parlons présentement est limité à 64 Ko
En cherchant bien on devrait pouvoir être encore plus précis

Voila qui est rectifié et on comprends tout de suite mieux de quoi on parle.
Pour info quand on ouvre le dit fichier il n'y a qu'une seule procédure qui affiche le message :

C'est bien la preuve que Wdog à raison.

TooFatBoy · 20 Octobre 2024

Phil69970 à dit:
En cherchant bien on devrait pouvoir être encore plus précis

C'est certain : "64K" ??? 64000 quoi ? octet ? bits ? autre ?

Ils sont vraiment trop nuls chez Microsoft !
Même quand ils ne les omettent pas, il ne savent de toutes façons pas utiliser les unités de mesures de capacité de stockage correctement !

TooFatBoy · 21 Octobre 2024

Ca y est, j'ai enfin eu un peu de temps pour regarder ta macro trop longue, et vu d'ici c'est un peu n'importe quoi.

Est-ce qu'il peut arriver que tu ne mettes pas à jours les 5 semaines, mais seulement 1, ou 2 ?

Quicksland · 21 Octobre 2024

TooFatBoy à dit:
Ca y est, j'ai enfin eu un peu de temps pour regarder ta macro trop longue, et vu d'ici c'est un peu n'importe quoi.

Est-ce qu'il peut arriver que tu ne mettes pas à jours les 5 semaines, mais seulement 1, ou 2 ?

Bonjour @TooFatBoy ,

La mise a jour est bien sur 5 semaines ...

Merci

TooFatBoy · 21 Octobre 2024

J'ai pondu une macro qui importe un mois complet, mais elle est très lente (environ 36 secondes sur mon PC).

[edit] Bizarre : je viens de relancer le classeur et là ça a mis 6 secondes pour un mois. [/edit]

TooFatBoy · 21 Octobre 2024

Je te joins le classeur dans lequel j'ai modifié ta macro.

Dis-moi si ça fonctionne chez toi, STP.

Quicksland · 21 Octobre 2024

TooFatBoy à dit:
Je te joins le classeur dans lequel j'ai modifié ta macro.

Dis-moi si ça fonctionne chez toi, STP.

Bonjour TooFatBoy

Cela fonctionne parfaitement avec tout les tableaux

J'ai vu le bouton "Importer " dans "ASTUCE SIRENE" très très bien

Tout les boutons "EFFACER" fonctionne également

Comme a chaque fois c'est du super bon boulot !!!

Merci infiniment pour ton aide !

Ps je peux effacer cela ?"
TF = Timer
MsgBox "ASTUCE SIRENE (" & Mois & ") importé en " & (TF - TD) & " secondes."

TooFatBoy · 21 Octobre 2024

Quicksland à dit:
J'ai vu le bouton "Importer " dans "ASTUCE SIRENE" très très bien

C'est un bouton que j'ai oublié de supprimer...

Quicksland à dit:
je peux effacer cela ?"
TF = Timer
MsgBox "ASTUCE SIRENE (" & Mois & ") importé en " & (TF - TD) & " secondes."

Oui, si tu me dis quelle durée indique la MsgBox.
Tu peux même supprimer dans cette macro tout ce qui n'est pas indenté correctement.

Quicksland · 21 Octobre 2024

TooFatBoy à dit:
C'est un bouton que j'ai oublié de supprimer...

Oui, si tu me dis quelle durée indique la MsgBox.
Tu peux même supprimer dans cette macro tout ce qui n'est pas indenté correctement.

Pas grave pour le bouton

2,46875 secondes

TooFatBoy · 21 Octobre 2024

Quicksland à dit:
2,46875 secondes

C'est beaucoup moins long que sur mon PC.

Quicksland · 23 Octobre 2024

TooFatBoy à dit:
C'est beaucoup moins long que sur mon PC.

Voici le fichier source des dates

Merci

Quicksland · 10 Novembre 2024

Quicksland à dit:
Voici le fichier source des dates

Merci

Si tu as besoin des fichiers pour regarder @TooFatBoy

Merci

XL 2019 vba trop longue

Quicksland

XLDnaute Occasionnel

Pièces jointes

Quicksland

XLDnaute Occasionnel

wDog66

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Quicksland

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Pièces jointes

Quicksland

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Quicksland

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Quicksland

XLDnaute Occasionnel

Pièces jointes

Quicksland

XLDnaute Occasionnel

Pièces jointes

Discussions similaires