Excel, créer un tableau de type "Forum"

vincent -  
Farfadet88 Messages postés 7780 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Désolé si le titre n'est pas trés explicite!!

En fait je souhaite créer sur excel un "journal" dont la forme s'apparenterait à un forum.

Je m'explique : Il faudrait remplir une case vierge qui une fois completée alimenterai un tableau général stockant les anciens messages laissés dans dans la case vierge. A la façon d'un forum sur internet.

Petite précision, les données stockées dans le tableau général ne doivent absolument pas être effacée par la personne rédigeant le message dans la "case vierge"

Est ce réalisable sur excel?

Je vous remercie par avance pour vos réponse et reste à disposition pour toutes informations.
A voir également:

9 réponses

Farfadet88 Messages postés 7780 Date d'inscription   Statut Membre Dernière intervention   1 370
 
http://www.cijoint.fr/cjlink.php?file=cj200912/cijcwdV25p.xls

Dis moi si c'est ce que tu cherches
0
vincent
 
farfadet,

Je te remercie pour ton message!

Alors oui en partie!

Les messages se succèdent sans effacer le pércédent c'est tout à fait ce que je recherche.

Mais ya un hic!

Je veux que la personne qui laisse le message ne puisse pas effacer ce que contient "le tableau" qui stocke tous les messages!

Y'a t'il une soluce??
0
Farfadet88 Messages postés 7780 Date d'inscription   Statut Membre Dernière intervention   1 370
 
Bon je n'arrive plus à mettre le fichier sur cijoint.

aLors tu vas dans "outil>Protection>Protéger la feuille" et tu cliques sur "ok " sans mettre de mot de passe

Ensuite tu fais "Alt+F11"

Ton fichier VBA s'ouvre

Tu double cliques sur "Userform 1" dans ta colonne de gauche (dans l'onglet "Feuilles")

Ensuite tu double cliques sur le bouton "Ajouter le message"

et à la place de

Private Sub CommandButton1_Click()
Range("a65536").End(xlUp).Offset(1, 0) = TextBox1.Value
Unload UserForm1
End Sub

tu mets

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
Range("a65536").End(xlUp).Offset(1, 0) = TextBox1.Value
Unload UserForm1
ActiveSheet.Protect
End Sub
0
vincent
 
Bon!! alors là! je suis sur le cul!

Ca fait un bail que j'essaie et toi en quelques clics!! ça y est!!

Trop trop fort!!!!

Alors juste une dernière petite question!

Peut-on mettre plusieurs "fonctions de ce type"? Je m'explique.

Sur la colonne A : ajouter texte : je rentre une date

Sur la colonne B : ajouter texte : je rentre le texte

Le tout toujours vérouillé!

En tous cas Mille merci...
0
Farfadet88 Messages postés 7780 Date d'inscription   Statut Membre Dernière intervention   1 370
 
Tu veux ajouter la date du jour à laquelle est rentré le message ou une date au hasard? Car dans ce cas je peux insérer un calendrier qui te permettra de choisir ta date.

Sinon je peux faire en sorte que seul la date du jour s'affiche avec ton message
0
vincent
 
Bah je veux bien voir l'option du calendrier si ça ne te dérange pas!
0
Farfadet88 Messages postés 7780 Date d'inscription   Statut Membre Dernière intervention   1 370
 
http://www.cijoint.fr/cjlink.php?file=cj200912/cijSEUJ9L6.xls

Et voilà
0
vincent
 
J'hallucine!

Bon je voulais juste me permettre une dernière question.

Avant ma colonne A, est ce que je peux insérer une nouvelle macro qui me servirai à insérer un nom/Prénom!

Désolé de mes exigences lol!!!
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Farfadet88 Messages postés 7780 Date d'inscription   Statut Membre Dernière intervention   1 370
 
Et hop

http://www.cijoint.fr/cjlink.php?file=cj200912/cijX3326Zq.xls
0
vincent
 
Trés sincerement! un grand merci pour ton travail!!!!

Ca va m'aider beaucoup dans le mien!

Je te souhaite une bonne continuation et encore merci pour ton professionnalisme!

A plus!
0
Farfadet88 Messages postés 7780 Date d'inscription   Statut Membre Dernière intervention   1 370
 
De rien :)
0
vincent
 
Euh juste une dernière ptite question! lol

Quand je met la protection avec un mot de passe, la macro me demande de retaper ce mot de passe pour valider le texte que je viens de saisir.

Comment je peux échapper à ça?

Verrouiller la feuille avec le mot de passe mais ne pas avoir à le taper pour valider le texte??

Merci d'avance!
0
vincent > vincent
 
Hop!!

C'est bon j'ai trouvé!

Fallais juste mettre le mot de passe entre "" unprotect et protect.

Par contre es ce que l'on peut empécher l'accès a visual basic! pour empécher toute modif des données??

Merci d'avance
0
vincent > vincent
 
Personne ne peut m'aider svp???
0
vincent > vincent
 
Ah c'est bon j'ai trouvé!!

Par contre farfadet, je viens de me rendre compte que la date par défaut qui s'enregistre avec le message est la date d'hier!

Peut on faire en sorte que la date du jour soit automatique? tout en gardant le calendrier pour entrer un message "ultérieur"?

Merci d'avance
0
Farfadet88 Messages postés 7780 Date d'inscription   Statut Membre Dernière intervention   1 370
 
Le calendrier te permet de choisir la date que tu désires. Pas seulement ladate d'hier
0
vincent
 
Bonjour,

Oui ça y'a pas de problème je l'ai bien compris.

Le tableau est utile pour saisir un message datant de quelques jours

Mais j'ai peur que les personnes devant saisir un message dans le tableau zappent la date (dans le cas ou ils saisissent le message juste après avoir eut l'info!)

Après si c'est pas possible j'ai une idée pour rappeler la date du jour de façon "voyante" lol!
0
Farfadet88 Messages postés 7780 Date d'inscription   Statut Membre Dernière intervention   1 370
 
ben dans ce cas au tout début de ta macro, tu tapes

dtpicker1.value = Date


Ainsi il affiche la date du jour quand ta Userform s'ouvre. Et si la personne oublie de choisir la date cela enregistre automatiquement la date du jour.

Sinon tu peux aussi (plus simple) supprimer le DTpicker et mettre directement dans la macro de ton bouton de validation du message:

Range("a65536").End(xlUp).Offset(1, 0) = Date

En mettant à la place du "a" la colonne dans laquelle doit sincrémenter ta date
0