Barre d'attente Résolu/Fermé

Question

Bonjour, 
Bonjour 
je souhaiterai afficher une  barre d'attente pendant l'éxécution de cette boucle
La barre se déroule apres la procédure , je voudrais pendant la procédure . 
Worksheets("FEUIL1").Range("$B$7:$BH$23").Interior.Pattern = xlNoneDim bir As RangeFor Each bir In Worksheets("FEUIL1").Range("$B$7:$BH$23")If bir = "M" Then bir.Interior.ColorIndex = 22 ElseIf bir = "H" Then bir.Interior.ColorIndex = 2ElseIf bir = "P" Then bir.Interior.ColorIndex = 8ElseIf bir = "O" Then bir.Interior.ColorIndex = 17 ElseIf bir = "N" Then bir.Interior.ColorIndex = 16 ElseIf bir = "C" Then bir.Interior.ColorIndex = 36 ElseIf bir = "V" Then bir.Interior.ColorIndex = 15ElseIf bir = "X" Then bir.Interior.ColorIndex = 8 End If Next  For i = 1 To 30000        Progressbarre i, 30000    Next MsgBox ("Terminé")
Configuration: Windows / Safari 5.1.7
https://www.cjoint.com/c/GAErFN0k0AA
Merci de votre aide précieuse
Cordialement

eriiic · Answer

Bonjour,
essaie avec :
    Dim bir As Range, pl As Range, i As Long
    Set pl = Worksheets("FEUIL1").Range("$B$7:$BH$23")
    pl.Interior.Pattern = xlNone
    For Each bir In pl
        If bir = "M" Then
            bir.Interior.ColorIndex = 22
        ElseIf bir = "H" Then
            bir.Interior.ColorIndex = 2
        ElseIf bir = "P" Then
            bir.Interior.ColorIndex = 8
        ElseIf bir = "O" Then
            bir.Interior.ColorIndex = 17
        ElseIf bir = "N" Then
            bir.Interior.ColorIndex = 16
        ElseIf bir = "C" Then
            bir.Interior.ColorIndex = 36
        ElseIf bir = "V" Then
            bir.Interior.ColorIndex = 15
        ElseIf bir = "X" Then
            bir.Interior.ColorIndex = 8
        End If
        i = i + 1
        Progressbarre i, pl.Count
    Next
    MsgBox ("Terminé")
Pas testé, je n'ai vu ton fichier qu'après.
eric

Fragnette · Answer

C'est tout bon 
Merci ERIIIC

Barre d'attente

2 réponses

Discussions similaires