Commentaires

[Sylvain]

Bonlour à tous,

J'aimerais savoir si je peux faire la chose suivante et surtout comment ?
Je m'explique:
je souhaite ajouter des commentaires à certaines cellules, ces commentaires contenant 1 mot par ligne.
Exemple:
Choix1
Choix2
Choix3

Je souhaiterais donc pouvoir creer ces commentaires puis de calculer les occurences de chacun de mes choix qui seront chacun inscrits dans une cellule.
J'espère que vous pourrez m'aider (si c'est réalisable) et que je me suis bien expliqué.

Dans tous les cas merci de toute réponse pouvant m'aider.

 

[vincent]

Salut

je crains de ne pas avoir tout compris.Cependant voila un debut de reponse pour ajouter un commentaire via Vba utilse :

range("a1").addComment.Text text:= "choix1" & chr(10) & "choix2" &chr(10) & "choix3" 'chr(10) fais passer a la ligne

Ensuite si tu veux changer les commentaires c'est

range("a1").comment.text text:="nouveau commentaire"

Par contre le reste je ne comprend pas desole

@+Vincent

 

[Sylvain]

Salut Vincent, le forum
Merci !!!
En fait c'est ce que je voulais (je connaissais pas le &chr(10))
Sinon mon but final est:
- lorsque je rentre une valeur x dans une cellule donnée, cela entraine une demande de saisie de x éléments sous forme de commentaires.
- ensuite de traiter ces informations pour obtenir dans d'autres cellules le nombre d'occurences:
Saisie1 4
Saisie2 2
...
En gros lorsque je rentre dans un commentaire:
"Saisie1"
"Saisie2"
"Saisie2"
"Saisie3"
J'obtient en résultat:
Saisie1 5
Saisie2 4
Saisie3 1

En tout cas merci pour votre réponse ça me donne une bonne base pour essayer d'avancé.

 

[vincent]

Re

j'ai fais un petit test (voir en piece jointe).Vois si cela peux t'aider

@+Vincent

 

[Sylvain]

Alors la vraiment un grand merci à toi Vincent !!!
C'est exactement ce que je voulais à la différence que dans le commentaire il y a juste la dernière saisie de sauvegardée...
Je vais essayer de comprendre comment tu as fait mais en tout cas un énorme merci à toi !

 

[Sylvain]

Salut Vincent,

J'ai à peu près tout compris dans la façon dont tu as procédé pour saisir le commentaire mais ce que je ne comprends pas c'est pourquoi des fois lorsque je saisi:
Choix1
Choix2
Choix3
par exemple
le commentaire ne contient au final que Choix1
Par contre avec d'autres "choix" cela fonctionne !!!
Je cherche le problème mais je suis perdu !!
Si tu peux m'aider ou me dire ou cela marche pas ce serait cool.
Merci d'avance

 

[vincent]

Re

Le probleme est du au fait que si tu remets un chiffre dans une cellule deja saisie le prog recupere le commentaire deja saisie et rajoute le nouveau.Mais le commentaire d'une cellule et limite en caractere et donc il n'affiche pas tout.Par contre si c'est dans une autre cellule il faudrait que tu me donne un exemple plus precis et que j'essaie de voir.Sinon une petite modife pour un petit probleme que je viens de voir.copie cette ligne:

Sheets(2).Cells(rang, 2) = Sheets(2).Cells(rang, 2) + 1

et colle la

If Err <> 0 Then
Sheets(2).Cells(rang1, 1) = .TextBox1
Sheets(2).Cells(rang1, 2) = 1
Err.Clear
Else 'cette ligne a rajoute
Sheets(2).Cells(rang, 2) = Sheets(2).Cells(rang, 2) + 1 'ici
End If

Voila

@+Vincent

ps:le probleme peut etre resolu,je recherche la solution.

 

[vincent]

Re

Voila la version beta++top.... lol !!

Je crois avoir corriger les gags.

@+Vincent

Ps:juste par curiosite à quoi ce prog te sert il (Ne repond que si ce n'est pas indiscret)

 

[Sylvain]

Salut Vincent,
Je viens de voir ton message je vais regarder...
Merci encore c'est cool de ta part.
En fait ce petit programme va me servir à organiser des participations de personnes au sein d'une association.
Par exemple dans une cellule j'ai mis "Journée à la mer" et les commentaires représentent les personnes qui ont participé à cet evênement avec le compteur qui permet de faire une petite récapitulation.
Voila tu sais tout.
En tout cas je te remercie encore pour ton aide ça me sert non seulement à ce programme mais aussi c'est très formateur car j'ai beaucoup travaillé via ton exemple et en particulier je sais maintenant créer une userform et manipuler tout ce qui touche à cela et c'est grace à toi en grande partie.
Et dire qu'au début de la semaine je ne connaissais meme pas les macros...
Un enorme merci à toi

 

[vincent]

Re

De rien c'est un plaisir d'aider les gens qui ont lus laCharte XLD et même ceux qui ne l'on pas lus mais qui on une bonne education lol !!!.

Au plaisir de te revoir sur le forum

@+Vincent