Barre de chargement durant exécution macro

[alban]

Bonjour,

j’ai actuellement un fichier dont l’exécution de la macro est assez longue,
en faisant quelques recherches j’ai pu voir qu’il était possible d’afficher une barre de progression.

j’ai essayé d’ajouter des modules de barre de progression trouvé sur le net mais rien y fait…

quelqu’un aurait une petite idée ?

merci par avance

le fichier en PJ si besoin

SUIVI_ACTIVITE_PROTOTYPE_Test01_05_2021.xlsm (1,7 Mo)

[NonoDu45]

Bonjour Alban,

Il y a déjà une chose simple à faire, vraiment optimisé le code

Sub MàJ_Suivi()
  Dim DerLig As Long, NumLig As Long
  Dim NbSheet As Integer

  Sheets("Suivi").Unprotect
  Worksheets("Suivi").Range("C4:AH3000").ClearContents 'effacer donner feuille Suivi avant mise à jour
  '
  ' Pour chaque feuille de jour
  For NbSheet = 1 To 31
' Avec la feuille en question
With Sheets(Format(NbSheet, "00"))           'feuille source
  ' Dernière ligne de la feuille du jour
  DerLig = .Range("E" & Rows.Count).End(xlUp).Row
  If DerLig = 1 Then GoTo SuiteNbSheet
  ' Numéro de ligne vierge du suivi
  NumLig = Sheets("Suivi").Range("C" & Rows.Count).End(xlUp).Row + 1
  ' Inscrire les valeurs
  Sheets("Suivi").Cells(NumLig, 3).Resize(DerLig - 1, 32).Value = _
                                                                .Cells(2, 1).Resize(DerLig - 1, 32).Value
End With
SuiteNbSheet:
  Next NbSheet
  Sheets("Suivi").Protect
End Sub

Essayez ça et dites nous

@+

[alban]

Bonjour @NonoDu45,

merci beaucoup d’avoir optimisé le code, effectivement il n’y a pas photo ahah

une idée pour afficher une barre de chargement du coup ?

merci

[NonoDu45]

Bonjour,

Non désolé, je ne saurais vous aider pour la barre de progression, mais il existe un tas de sujet la dessus, il suffit d’utiliser notre ami Google

@+

[alban]

bonjour,

effectivement google est un ami lorsque l’on trouve les réponses à nos question, a l’inverse c’est une torture …

merci quand même