Réaliser une petite boucle en vba

pourquoi ne pas changer le nom de UserForm1?
Me est un nom réservé.

Re

J'ai remplacer Userform1 par Me

j'ai relancer mon programme et j'ai l'erreur suivante (Utilisation incorrecte du mot clé Me)
j'ai regarder dans l'aide et ça me dit de ne pas mettre Me dans un module qui n'ai pas prévu a cet effet.

Donc baht je sais plus du coup

Quand pense tu svp ???

A plus tard et merci

Cdlt Ray

U1 a exactement la même accessibilité que UserForm1 avait avant.
si tu as un doute, essaie dans un nouveau module.

Salut yg_be,

Désoler pour le retard de ma réponse,

Mais merci pour ta réponse, j'ai donc fait l'essai conseillé et c'est bon pour moi ça fonctionne bien, pas de soucis.

Pour le bargraff couleur, ça fonctionne mais un truc qui fait môche très môche les labels de couleurs se déplacent par deux ou trois voir quatres en même temps.

Serait t'il possible svp de les faire évoluer un par un en modifiant la formule.

Merci pour ton aide, je te souhaite un très bon W-end.

Cdlt Ray

même en ayant une durée comme 50 secondes?
la minuterie n'est pas en cause, c'est la technique utilisée pour mesurer le temps. d'autres techniques existent.

as-tu le soucis même en ayant une durée comme 50 secondes?
que veux-tu dire par "j'en cherche une autre"?

et tes labels vont toujours de 5 à 36?

ne ne comprends pas qu'avec 50 secondes et 32 labels, tu aies ceci: "les 3 premiers labels bleus démarrent puis affichage 2x2 avec une raté 2x3".

chez moi, le comportement est toujours le même. le soucis, c'est que l'avancement ne se fait qu'une fois par seconde, donc c'est saccadé quand la durée en secondes est inférieure au nombre de labels. la barre de progression est également saccadée, pour les mêmes raisons.
je pourrais modifier pour éviter que cela ne soit fait qu'une fois par seconde.
chez toi, je suspecte que l'ordi fait autre chose et que Excel ne puisse pas travailler: le clignotement est-il bon?

suggestion d'une autre technique pour mesurer le temps plus précisément:
ajouter dans un module la fonction suivante:

Function actuellement() As Date
Dim cejour As Date
cejour = Date
actuellement = cejour + Timer / 24 / 60 / 60
Do While cejour <> Date
    cejour = Date
    actuellement = cejour + Timer / 24 / 60 / 60
Loop
End Function

et remplacer

Maintenant =now

par

Maintenant = actuellement()

en faisant cela, plus de saccade chez moi, même en 2 secondes.

ta vidéo confirme mon observation: l'affichage des labels est saccadé parce qu'il ne change qu'une fois par seconde.
avec le dernier code proposé, l'affichage devrait changer à chaque clignotement, donc être presque parfaitement fluide.
je ne comprends pas bien ton dernier message.
"tous les labels sont affichés en deux fois": donc très saccadé, ou c'est bien?
pour afficher 35 labels en 2 secondes un par un, il suffit de diminuer le temps entre 2 clignotements.
pourquoi écris-tu: "60 seconds du coup faut affichés les 35 labels minimum 2x2"? ce n'est pas du tout ce que j'observe.

exemple sans progressbar:

Option Explicit

Const Duree As Integer = 10  'Durée du clignotement, en secondes
Private Declare Function SetTimer Lib "User32" (ByVal hWnd As Long, ByVal nIDEvent As Long, _
                                     ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "User32" (ByVal hWnd As Long, _
                                     ByVal nIDEvent As Long) As Long
Public m_TimerID As Long, m_fin As Date

Private Sub Blink()
          Dim xCell As Range: Dim maintenant As Date
Dim Ecoule As Single
                maintenant = actuellement()
          Set xCell = Range("F2")
With ThisWorkbook.Worksheets("Feuil1").Range("F2").Font
     If xCell.Font.Color = vbRed Then
        xCell.Font.Color = vbWhite
  Else
        xCell.Font.Color = vbRed
     End If
End With
If maintenant > m_fin Then
    Unload usf1                                         'Ferme l'USF1
    Call StopBlink                                               'Appel macro arrèt clignotement "STOPBLINK"
Else
    With usf1
          Ecoule = Duree - (m_fin - maintenant) * 24 * 3600
          .Label3.Caption = Round(Duree - Ecoule, 0)
          Dim i As Integer
          For i = 5 To 5 + (36 - 5) * Ecoule / Duree
            .Controls("Label" & CStr(i)).Visible = True
        Next i
    End With
End If
End Sub
Public Sub StartBlink()
         Dim Duration As Long
Duration = 50                 'Fréquence de clignotement, en millisecondes
With usf1
      .Show 0               'Ouvre l'USF1 Pour que les feuilles de calcul restent accessibles passer la boite de dialogue en mode non modal La propriété ShowModal doit être égale à False.
      .Label1.Caption = "ATTENTION" + Chr$(13) & Chr$(10) + "Une erreur de formule est survenue" + Chr$(13) & Chr$(10) + "Veuillez réparer en recopiant la formule" _
               + Chr$(13) & Chr$(10) + "avec la poignée en croix de la cellule" + Chr$(13) & Chr$(10) + "du dessus ou du dessous, svp."                                       'Affiche message Label1
     Dim i As Integer
     For i = 5 To 36
        .Controls("Label" & CStr(i)).Visible = False
     Next i
End With
   
   m_fin = Now + TimeSerial(0, 0, Duree)
If m_TimerID = 0 Then
    If Duration > 0 Then
         m_TimerID = SetTimer(0, 0, Duration, AddressOf Blink)
      If m_TimerID = 0 Then
        MsgBox "Echec de l'initialisation du minuteur."
      End If
Else
        MsgBox "La durée doit être supérieure à zéro."
    End If
  Else
        MsgBox "Timer déja démarré."
  End If
End Sub

Public Sub StopBlink()
         If m_TimerID <> 0 Then
           KillTimer 0, m_TimerID
           m_TimerID = 0
    Else
          MsgBox "Timer non actif."
        End If
End Sub

je suggère de créer plutôt un nouveau sujet pour ton nouveau petit soucis.

peux-tu marquer ceci comme résolu?