Une petite aide svp pour un état d'avancement d'une macro!!!

Question

Bonjour,

Je souhaiterai savoir comment mettre en place une barre d'avancement.
En effet, ma macro est assez longue et je souhaiterai mettre en place une barre qui permette de voir l'execution de la macro.

Ce que je souhaite est en fait la m&#234;me chose que lorsque l'on t&#233;l&#233;charge quelque chose. En effet, suivant l'avacement de la macro la barre doit par exemple se colorier pour signaler qu'elle tourne toujours et non pas qu'elle est bloqu&#233;e.

Merci d'avance.

NicoSoftt · Answer

Salut 

t'es en  VBA, VB ou Vb.net ?

Peux-tu donner ta macro en pr&#233;cisant les actions particuli&#232;rement longues

matthieu7815 · Answer

Bah &#233;coute je suis en visual basic &#224; partir d'excel donc VBA je pense.
Mais mon probl&#232;me n'est pas li&#233; au fait que la macro soit longue mais plus au fait que je d&#233;sire mettre une barre qui montre l'avancement de la macro afin de savoir o&#249; en est son execution.

NicoSoftt · Answer

ReSalut

Es-tu dans un classeur ou dans une UserForm ?

Est-ce que ta macro contient principalement une boucle ? (Do... Loop; For...Next)

matthieu7815 · Answer

dans un classeur. il y a plusieurs boucles do while and for next

galopin01 · Answer

Bonjour,
la mani&#232;re la plus simple :
Application.DisplayStatusBar =  True
Application. StatusBar   = "Avancement +++."

Et tu rajoutes un + au msg &#224; chaque boucle (ou dizaine de boucles)
A+

galopin01 · Answer

Exemple :

Sub test()
Application.DisplayStatusBar = True
For i = 1 To 100000000If i Mod (1000) 0 Then Application.StatusBar "Avancement " &
i / 10000
Next
End Sub

valtrase · Answer

Lut,
En cherchant bien sur la toile ...........
Function CreateProgressBar(Txt$) As Object
Dim BarForm As Object, Lbl As Object, btn As Object, X
  
  'le userform
  Set BarForm = ThisWorkbook.VBProject.VBComponents.Add(3)
  With BarForm
    .Properties("Caption") = Txt
    .Properties("Width") = 267
    .Properties("Height") = 100
    .Properties("ShowModal") = False
  End With
  
  'le label pour afficher la progression
  Set Lbl = BarForm.designer.Controls.Add("forms.Label.1")
  With Lbl    .Left 24: .Top 7: .Width = 215: .Height = 15    .BackColor &HFF8080: .SpecialEffect 2    .Font.Bold True: .TextAlign 2
  End With
    
  VBA.UserForms.Add (BarForm.Name)
  Set CreateProgressBar = UserForms(UserForms.count - 1)
    
End Function 'fs


Sub MAJBarre(PB As Object, Inc, Compteur, Max)
  If Compteur Mod Inc = 0 Then
    With PB
      .Label1.Width = CInt(Compteur * 215 / Max)
      .Label1.Caption = Format(Compteur / Max, "0%")
      .Repaint
    End With
  End If
End Sub 'fs


Sub DelProgressBar(Nom$)
  With ThisWorkbook.VBProject.VBComponents
        .Remove .Item(Nom)
    End With
End Sub 'fs


'exemple d'utilisation simple :
'&#224; adapter selon ta config
Sub TestPB()
Dim PB As String, i&, j&, Max&
Dim ufBar As Object


  'cr&#233;e la barre de progression et l'affecte &#224; une variable objet
  Set ufBar = CreateProgressBar("Test &#233;criture")
  ufBar.Show
  
  Max = 5000
  For i = 1 To 5000
    For j = 1 To 10
      
      'pour faire quelque chose
      Cells(i, j).Value = i + j
    
      'mise &#224; jour de la barre de progression
      MAJBarre ufBar, 10, i, Max
    
    Next j
  Next i
  
  'd&#233;truit la barre de progression
  '(il faut proc&#233;der dans cet ordre)
  DelProgressBar ufBar.Name
  Unload ufBar
  Set ufBar = Nothing
  
  'on efface tout
  Cells.ClearContents
  MsgBox "Termin&#233;"
  
End Sub

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

matthieu7815 · Answer

Bonjour,

Je souhaiterai savoir comment donner les valeurs d'une plage range(cells(3,"A"),cells(x,"D")) dans un msgbox. Jusqu'&#224; maintenant il me le refuse. De plus je souhaiterai savoir s'il est possible de rectifier la taille de la fen&#234;tre du msg box et de mettre des termes en gras ou soulign&#233; dans un msgbox.

Merci d'avance

valtrase · Answer

Normal ta syntaxe est incorecte
si tu utilises Range tu doit lui passer une chaine dans le style "A1" ou "A1:J10"
pour Cells tu doit rentrer des entiers longs ex: Cells(1,15) et pour finir si tu utilises cells dans range tu doit donner une chaine a Range donc c'est dans le style
Range(Cells(1,1).Address,Cells(10,12).Address).
Pour ta deuxi&#232;me question pour la taille la seule solution c'est de faire des retour de lignes avec vbCRLF.sinon pas de gras ni de soulign&#233; ou alors te construire ta prope msgBox avec une UserForm

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Une petite aide svp pour un état d'avancement d'une macro!!!

9 réponses

Discussions similaires