bare de progression

[ILOVEUBB]

salut tout le mondes​

voila j'ai une bare de progression et je veux l'adaptez a mon usf mais je ne c'est pas comment faire !!!!😕
apres un clique sur le bouton rechercher la bare de progression sera lancer !! quelqu'un peut me donnez de l'aide svp ?🙁😕

Lien supprimé

 

[MJ13]

Re : bare de progression

Bonjour

Le mieux serait de faire un petit Application.statusbar.

 

[ILOVEUBB]

Re : bare de progression

merci de repondre MJ13: mais comment faire ?

 

[PascalXLD]

Re : bare de progression

BOnjour

C'est possible de la faire si tu es sur une boucle avec un comptage

Un petit exemple sans données confidentielles seraient bien venu

 

[MJ13]

Re : bare de progression

Re, Bonjour Pascal

Voir peut-être ici:

https://www.excel-downloads.com/threads/barre-de-progression-excel.197815/

 

[ILOVEUBB]

Re : bare de progression

bonsoir pascal
voila le fichier joint ce que je veux c'est quand je clique sur le bouton OK pour la recherche la barre de progression s’affiche . j'arrive pas a adaptez la barre de progression

 

[ILOVEUBB]

Re : bare de progression

bonsoir pascal
voila le fichiers démo et désoler pour le retard .
j'arrive pas a adapter la barre de progression aux userform après plusieurs tentative et recherche surement parce que je suis débutant . je veux quand je clique sur le bouton OK pour la recherche la barre de progression s'affiche.

 

[MJ13]

Re : bare de progression

Re

Je ne suis pas très spécialiste dans les barres de progression, mais si tu remplaces dans ton code par:

derl = .Range("D65536").End(xlUp).Row
 Set rB = .Range("D4:D" & derl)

Tu devrais gagner déjà beaucoup de temps surtout si tu n'as que 23000 lignes. Après il faut trouver le nombre de fois dans la boucle et calculer avec un indice qui augmentera et qui te permettra de faire évoluer ta barre de progression.

 

[ILOVEUBB]

Re : bare de progression

merci beaucoup mj13 pour ta raiponce

 

[MJ13]

Re : bare de progression

Re

J'avoue que j'ai eu un peu de mal pour faire tourner ton code. Pour la barre de progression, je n'y arrive pas 😱.

Mais voici un test à adapter avec une statubar qui se place dans la ligne d'état:

Sub PTR()
nbp = 1: boucle = 1: seuil = Int(65536 / 100)
    MyTextB = UserForm1.TextBox1.Value
        Sheets("Feuil2").Range("A2:h65536").ClearContents
If Trim(MyTextB) <> "*" Then
With Worksheets("Patrimoine")
 Set rB = .Range("A4:A65536")
End With
Set rFoundB = rB.Resize(1, 1)
Set B = rB.Find(MyTextB, After:=rFoundB, _
  LookIn:=xlValues, _
  Lookat:=xlPart)
If Not B Is Nothing Then
 firstAddress = B.Address
 S = ""
Do
nbp = nbp + 1
'Stop
If nbp > seuil Then Application.StatusBar = boucle & " %":  boucle = boucle + 1: nbp = 1
bcopy = False
If (InStr(1, B.Offset(0, 1), Trim(MyTextC), vbTextCompare) > 0 _
    Or Trim(MyTextC) = "*" _
    Or Len(Trim(MyTextC)) = 0) And _
    (InStr(1, B.Offset(0, 2), Trim(MyTextD), vbTextCompare) > 0 _
    Or Trim(MyTextD) = "*" Or Len(Trim(MyTextD)) = 0) Then
   lr = Sheets("Feuil2").Cells(Rows.Count, "a").End(xlUp).Row + 1
    B.EntireRow.Copy Sheets("Feuil2").Rows(lr)
    FoundCount = FoundCount + 1
    S = S & Sheets("Feuil2").Cells(lr, "A").Text
    S = S & " - " & Sheets("Feuil2").Cells(lr, "B").Text
    S = S & "  " & Sheets("Feuil2").Cells(lr, "C").Text & " " & vbNewLine
    End If
Set B = rB.FindNext(B)
Loop While Not B Is Nothing And B.Address <> firstAddress
If Len(Trim(S)) > 0 Then
txtresult = S

    MsgBox FoundCount & " Valeurs trouvés", vbInformation, "Recherche complété"
    Sheets("Feuil2").Select
    End If
    End If
    End If
    Unload BaredeProgression
End Sub

 

[MJ13]

Re : bare de progression

Re

Voici un exemple avec ce que j'ai pu comprendre. Tu auras le pourcentage dans la statusbar et la barre de progression.

Meilleurs Vœux pour 2013 🙂.

 

[Lone-wolf]

Re : bare de progression

Bonjour Michel, ILOVEUBB,

comme le sujet m'interessait, j'ai fait un test du fichier.

Voici le fidback: je recherche dans noms et prenoms le Test n° 26, mais dans la feuille2, ça inscrit Cité n°2699 - Test n° 2699. J'en déduit qu'il faut changer la valeur de Find pour qu'il recherche la valeur exacte et non la valeur aproximative. En souhaitant que ce que j'ai dit soit correct. Et je ne vois pas de barre de progression, juste l'attente de la recherche et la MsgBox qui s'affiche.


A+ 😎

 

[MJ13]

Re : bare de progression

Bonjour Lone

Mon but n'est pas de venir modifier la programmation du fichier donné au départ mais comment arriver à faire une barre de progression?

J'ai un peu compris mais comme je l'ai déjà dit c'est pas très simple 😱. Je pense que quand on a un boucle de type for i= 1 to derl par exemple, c'est plus facile à faire 🙂.

 

[Lone-wolf]

Re : bare de progression

Re Michel,

il ne faut pas avoir 😱 ok! 😉. Moi j'en suis bien à des lunes (arrières) d'avoir ton expérience.

Si c'est plus simple avec For, pourquoi n'éssaie-tu pas? 😉


A+ 😎

 

[MJ13]

Re : bare de progression

Re Lone

Si c'est plus simple avec For, pourquoi n'éssaie-tu pas?

Ma philosophie:

Fait ce que tu comprends, mais pas le contraire 🙂.

Meilleurs Vœux 🙂.