creer une presentation active

[altinea]

résolu!!!creer une presentation active

comment faire pour affecter lors de l'ouverture de la feuille une presentation qui s'affiche pendant quelques secondes pour expliquer l'utilisation de la feuille de calcul. Et comment l'intégrer dans la programmation vba deja existante.

 

[Gérard DEZAMIS]

Re : creer une presentation active

Bonjour
Comment faire ?
C'est simple :
Commencer par dire Bonjour
exposer son problème et ensuite attendre un petit peu ...
@+GD

 

[altinea]

Re : creer une presentation active

bonjour, vraiment désolé d'avoir heurté votre sensibilité, mais il est vrai que je suis dans ma recherche et j'ai complètement oublié de dire bonjour, j'espère que vous ne m'en tiendrez pas grief car ce n'est pas dans mes habitudes voir les autres discussions que j'ai initié. Merci d'avoir pointé ce paramètre pour le reste je suis patient et j'attendrai la réponse de qui voudra bien m'apporter son aide, bonne journée

 

[Dull]

Re : creer une presentation active

Salut altinea, Gérard , le Forum

L'ami Gérard a tout a fait raison. A tu déjà lu la Lien supprimé, sinon je t'invite à le faire.

Pour ton problème regardes si le fichier joint peut t'aider
à toi de régler le temps (Ici5secondes) alt+f11

Bonne journée

 

[altinea]

Re : creer une presentation active

bonsoir et merci, concernant la formule effectivement c'est super, par contre je n'arrive pas à lancer l'application, j'arrive a modifier le userform, mais il ne s'affiche pas à l'ouverture du classeur, pourtant j'ai repris exactement tes paramètres, merci de me renseigner et bon Noël à toi et au forum

 

[pascal21]

Re : creer une presentation active

bonjour
n'aurais-tu pas oublié de copier le code qui est dans module1, qui lui, lance ton usf
joyeux noël

 

[altinea]

Re : creer une presentation active

bonjour, joyueux noele a vous tous, pascal, j'ai bien copier le code qui à priori est le me dans module, je vais reéssayer, mais je comprends pas sur l'esemple qui m'a été envoyé ca fonctionne dès que je transfere sur mon classeur ca marche pas. Car j'ai plusieur feuilles dans le classeur et certaines feuilles ont deja des codes es ce que ca peut etre source de conflit?
merci

 

[Dull]

Re : creer une presentation active

Salut Altinea, le Fil,

j'ai plusieur feuilles dans le classeur et certaines feuilles ont deja des codes es ce que ca peut etre source de conflit?

Normalement non cela ne devrais pas poser de problèmes

ce qu'il faut c'est de ne pas oublier le lancement de l'userform via le module1 certes mais dans la feuille ThisWorkbook avec ce code

Private Sub Workbook_Open()
CompteARebours
End Sub

Ici CompteARebours est le Sub dans le Module1

Joyeux Noël

 

[altinea]

Re : creer une presentation active

bonjour,
merci, je viens de trouver l'erreur et effectivement c'est bien ce que tu viens de me dire Dull,
pourrais tu me dire comment peut'on faire pour mettre en forme et éventuellement mettre une image dans le useform et changer le titre de la fenetre useform,
merci encore à vous tous et joyeux noel,

 

[Dull]

Re : creer une presentation active

Re le fil,

pourrais tu me dire comment peut'on faire pour mettre en forme et éventuellement mettre une image dans le useform et changer le titre de la fenetre useform

Oui y a pas de soucis
Pour mettre une image Prends la Boite à Outils Click sur le logo Image va dans propriété de l'image-->Picture
et choisi ton image

Pour Changer le titre de l'Userform c'est dans propriété de l'Userform-->Caption

Un petit essai

Joyeux Noël

 

[altinea]

Resolu!!!! : creer une presentation active

bonjour,

merci beaucoup Dull, et joyeux noel

 

[Dull]

Re : creer une presentation active

Salut le Fil,

Pour Altinéa Avec le concours de Pierrot93

 

[altinea]

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!!!!

 

[Dull]

Re : creer une presentation active

Salut altinea, le Forum

Si ça se trouve c'est peut être dans ton userform

Peut tu joindre ton fichier à toi (S'iln'estpastropgros)
Je soupçonne l'inexistance d'un quelquonque TextBox1 dans ton userform

Dans mon exemple il est invisible

Bonne Journée

 

[altinea]

Re : creer une presentation active

bonjour, et bien Dull, mon fichier est trop gros comment puis je faire pour extraire juste la feuille ou le usf que tu veux, ou puis je te l'envoyer sur ton email, merci