Re : creer une presentation active
bonsoir le fil, et Dull, merci pour le fichier, quand je copie la formule sur ma feuille ca bugge à la ligne compteur, alors que ton fichier fonctionne tres bien.
voici le code que j'ai actuellement sans l'aggrandissement :
Sub CompteARebours()
Dim compteur As Integer
Dim nouvHeure As Byte, nouvMinute As Byte, nouvSeconde As Byte
Dim Reprise
UserForm1.Show vbModeless
compteur = 1
'pour décrementer le compteur
For compteur = 1 To 0 Step -1
UserForm1.TextBox1.Text = compteur
'Range("F3").Formula = compteur
'Pour exécuter la macro dans 01 secondes!!!
nouvHeure = Hour(Now())
nouvMinute = Minute(Now())
nouvSeconde = Second(Now()) + 1
Reprise = TimeSerial(nouvHeure, nouvMinute, nouvSeconde)
Application.Wait Reprise
Next compteur
If UserForm1.TextBox1.Value = 0 Then
'Exécution de la macro ici
Unload UserForm1
End If
End Sub
merci, si sa se trouve c'est un ptit truc de rien du tout!!!!