Barre d'attente

Résolu

Fragnette Messages postés 22 Date d'inscription Statut Membre Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention - 30 janv. 2017 à 19:58

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 = xlNone

Dim bir As Range
For 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 = 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
 Next

  For i = 1 To 30000
        Progressbarre i, 30000
    Next
 MsgBox ("Terminé")

https://www.cjoint.com/c/GAErFN0k0AA

Merci de votre aide précieuse

Cordialement

Afficher la suite

A voir également:

Barre d'attente
Windows 11 barre des taches a gauche - Guide
Barré whatsapp - Guide
Égal barré ✓ - Forum Clavier
Messenger en attente de reseau - Forum Facebook Messenger
S barré ✓ - Forum Word

2 réponses

Réponse 1 / 2

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 276

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

Réponse 2 / 2

Fragnette Messages postés 22 Date d'inscription Statut Membre Dernière intervention

C'est tout bon
Merci ERIIIC

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 276

ok, je met en résolu pour toi (en haut vers ton titre, pour la prochaine fois)
eric

Discussions similaires

Facebook Messenger: en attente de réseau

Barre verticale droite sur clavier

Comment faire le signe = barré?

O barré horizontalement

"en attente de livraison fournisseur" FNAC

Votre réponse

Discussions similaires