[B]afficher une infopratique differente a chaque demarrage[/B]

[plouff]

Bonsoir les internautes!!!

Décidement j'abuse de votre savoir mais je ne vous cache pas qu'il m'est très précieux!

Alors voila, j'ai créé plusieur boutton sur un userform et il me reste un peu d'espace a combler.
Je pense notamment a afficher genre une bulle dans la quel il pourrais y avoir une info sur un produit particulier qui changerais a chaque redemarrage de l'userform.
Est-ce possible??

Merci d'avance pour votre aide!!

 

[Modeste geedee]

Re : afficher une infopratique differente a chaque demarrage

Bonsour®

prévoir une liste(nommée ListeBulle) sur une des feuilles
pas plus de 255 caractères par ligne

puis evenement activate du userform

Private Sub UserForm_Activate()
Randomize
MsgBox [listebulle].Item(1 + Int(Rnd() * [listebulle].Rows.Count)), vbInformation, "afficher une infopratique differente a chaque demarrage"
End Sub

 

[plouff]

Re : afficher une infopratique differente a chaque demarrage

Merci pour ta réponse.
Crois tu qu'il serai possible que ce sois intégré dans l'userform! Par exemple un texte avec un giff?

 

[Eric C]

Re : afficher une infopratique differente a chaque demarrage

Bonjour le forum
Bonjour plouff, bonjour Modeste geedee

Concernant l'insertion de l'info aléatoire du produit, dans l'USF, il suffit de l'insérer dans un TextBox par exemple. S'agissant de l'insertion d'un Gif, il y a de nombreux exemples en lançant le moteur de recherches "Insertion d'images"

TextBox1.Value = [listebulle].Item(1 + Int(Rnd() * [listebulle].Rows.Count))

Bon ouikand à toutes & à tous

 

[Dormeur74]

Re : afficher une infopratique differente a chaque demarrage

Je n'utiliserais pas de tirage aléatoire, mais passerais par un fichier texte externe, à lire de la 1ère info à la dernière et lorsqu'on arrive à la dernière ligne, on repasse à la 1ère. On mémorise dans ce fichier texte la dernière ligne proposée. Et on met une case à cocher pour celui qui ne veut plus voir les infos. Petit exemple joint.
Bien sûr, on peut utiliser une feuille cachée pour cela au lieu de faire appel à un fichier texte externe.

 

[plouff]

Re : afficher une infopratique differente a chaque demarrage

Bonjour tout le monde!!

Désolé de répondre tard mais j'ai peux de temps a accorder a excel en se moment!
Merci pour vos idée et l'aide que vous m'apporté!!!

Alors ça ne fonctionne pas avec le code

private sub UserForm_activate()
Randomize
TextBox1.Value = [listebulle].Item(1+Int(Rnd() * [listebulle].Rows.count))
End sub

une idée pourquoi cela ne fonctionne pas?

En revanche dormeur ton idée me plait bien mais je n'arrive pas a l'intégrer a une feuil de mon classeur!

Serait il possible de faire une mise en forme de mon texte dans la cellule et qu'il apparaisse telle quelle dans le textbox??

Un grand merci pour votre aide!!!!!

 

[plouff]

Re : afficher une infopratique differente a chaque demarrage

Bon, après mur réflexion tu as raison dormeur de faire un fichier a par car cela me permettrai d'enrichir ma gamme produit sans avoir à rectifier mon tableau ainsi que celui des personnes l'utilisant!!

Toutefois j'ai un bug dans le code au niveau de : kill fullfilename.. Surligné en jaune!!
Hors avec ton exemple ça fonctionne bien!!
J'ai bien changé le noms de mon userform et de mon bouton!
Une idée du bug??

Merci les amis