Discussion :

[Alain16110]

Bonjour à tous

Voilà j'ai adapter une barre de progression que j'ai trouvé sur le Net

Elle ne fonctionne pas

Si vous pouviez voir pourquoi elle plante

Merci de votre réponse

Codialement

TriEcritures8.xlsm

[EricDgn]

Bonjour,

Si vous changez les noms des objets dans le formulaire, il faut également le faire dans le code. Ci-attaché, un exemple plus simple de barre d'avancement.

Cordialement.

[mjpmjp]

bonjour,

ta barre est dans un form , donc tu doit indiquer que ta barre est dans un form

moform.mabarre

ensuite , bien sur , il faut mettre le vrai nom !!! de chaque "truc" ...

@+JP

[Alain16110]

Bonsoir

Merci de vos reponse mais je n'arrive toujours pas à lier la Barre de progression à la macro

Je vous joins mon fichier avec la progresseBar transmise

Si vous pouviez m'aider

Très cordialement

Alain16110

[EricDgn]

Bonjour,

Pour ce qui est de votre macro ECRITURES() il n'y a absolument aucune utilité d'utiliser une barre de progression vu qu'il n'y a aucune progression dans cette macro: aucune instruction "For ... Next" à suivre! Cette macro peut d'ailleurs se réduire à ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Sub ECRITURES()
    Sheets("Journal").Select
    ActiveSheet.ListObjects("journal").Range.AutoFilter                 '--- supprime tous les filtres
    ActiveSheet.ListObjects("journal").DataBodyRange.Font.Bold = False  '--- format caractères normaux (non gras)
    With ActiveWorkbook.Worksheets("Journal").ListObjects("journal").Sort
        .SortFields.Clear   '--- supprime tous les tris actifs
        .SortFields.Add2 Key:=Range("journal[[#All],[DATE]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal   '--- tri ajouté sur [DATE]
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply   '--- exécute le tri
    End With
    Range("A100000").End(xlUp).Offset(1, 0).Select   '--- aller juste sous le tableau
End Sub

Cordialement.

[Alain16110]

Bonsoir,

Merci de m'avoir simplifié la macro je m'occupe à la retraite et découvre le VBA

Cependant mon fichier écriture est un exemple pour avoir une Barre de progression lié à une macro ça devait me permettre d'aller plus loin.

J'ai d'autre demande par la suite...

Ex:

J'ai fais un userform pour saisir des écriture dans mon journal quand je "Valide" la mise à jour est longue et là aussi je voulais un Barre de progression

Si vous pouvier me transmette mon fichier corrigé avec une barre de forme attaché à une macro je pourrais progresser.

Merci encore de me répondre

Bonne soirée

PS je ne trouve rien sur le net que j'arrive à adapter.

[EricDgn]

Bonjour,

Comme indiqué, une barre de progression n'a de sens que s'il y a une progression à suivre et cette "progression" apparait le plus généralement lorsqu'il y a une ou plusieurs boucles à suivre (boucle = instruction For ... Next). Un exemple en attaché (qui effectue une opération qui normalement est réalisée instantanément à l'aide d'une mise en forme conditionnelle).

Cordialement?