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

Fermé
vincent - 10 déc. 2009 à 14:39
Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 - 16 déc. 2009 à 08:08
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 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 365
10 déc. 2009 à 14:53
http://www.cijoint.fr/cjlink.php?file=cj200912/cijcwdV25p.xls

Dis moi si c'est ce que tu cherches
0
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 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 365
10 déc. 2009 à 15:41
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
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 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 365
10 déc. 2009 à 16:12
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
Bah je veux bien voir l'option du calendrier si ça ne te dérange pas!
0
Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 365
10 déc. 2009 à 16:18
http://www.cijoint.fr/cjlink.php?file=cj200912/cijSEUJ9L6.xls

Et voilà
0
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 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 365
10 déc. 2009 à 16:34
Et hop

http://www.cijoint.fr/cjlink.php?file=cj200912/cijX3326Zq.xls
0
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 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 365
10 déc. 2009 à 16:42
De rien :)
0
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
10 déc. 2009 à 17:40
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
11 déc. 2009 à 08:01
Personne ne peut m'aider svp???
0
vincent > vincent
11 déc. 2009 à 09:00
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 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 365
15 déc. 2009 à 14:39
Le calendrier te permet de choisir la date que tu désires. Pas seulement ladate d'hier
0
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 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 365
16 déc. 2009 à 08:08
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