XL 2019 vba trop longue

[Quicksland]

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]

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 :

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 :

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]

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]

Ok j'ai tout changé merci

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

 

[Phil69970]

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]

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]

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]

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]

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]

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

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

 

[Quicksland]

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]

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

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

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]

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]

2,46875 secondes

C'est beaucoup moins long que sur mon PC.

 

[Quicksland]

C'est beaucoup moins long que sur mon PC.

Voici le fichier source des dates

Merci