Re : probleme avec une boucle dans userform
Bonjour le forum, Paf
J'ai bidouillé une petite astuce,que voici:
Private Sub CommandButton1_Click()
Dim j As Integer
j = Worksheets("Feuil2").Cells(1, 2).Value
WindowsMediaPlayer1.URL = Worksheets("Feuil2").Cells(j, 1)
WindowsMediaPlayer1.windowlessVideo = False
Worksheets("Feuil2").Cells(1, 2).Value = j + 1
If Worksheets("Feuil2").Cells(1, 2).Value > 8 Then Worksheets("Feuil2").Cells(1, 2).Value = 1
If Me.WindowsMediaPlayer1.windowlessVideo = True Then Image1.Visible = False Else Image1.Visible = True
End Sub
c'est pas tres catho mais cela fonctionne, si quelqu'un voit une amélioration a apporter, il sera le bienvenu.
Cordialement