XL 2021 Commentaires automatiques

[Usine à gaz]

Bonjour à toutes et à tous

Encore une fois, je n'arrive pas à faire un code.

Le contexte : l'Objectif est de gagner du temps en évitant les saisies avec des commentaires automatisés.

Quand clic sur une cellule dans la colonne d'Affectation "L"
Ma comboxbox s'ouvre et me propose un choix d'affectations
selon le choix, les colonne de la ligne concernée sont complétées
et la cellule en col "G" reçoit le commentaire qui correspond à ma sélection avec la date et heure (si déjà commentaire(s) existant(s), le NV se met devant les autres)

Tout ça fonctionne très bien…
D'alleurs, je ne me souviens plus qui m'avait aidé sur ce fichier. Encore merci à mon aidant

Mon souci se situe quand je sélectionne "A Rappeler"
dans ce cas, toujours pour gagner du temps en évitant les saisies avec des commentaires automatisés.
J'ai besoin qu'il me soit proposé un second choix de commentaires = à ma plage nommée "arc" (mes commentaires sont en feuille "commentaires")

J'ai fait pas mal de tentatives sans y arriver.
Auriez-vous le bon code ?
En cas, je joins le fichier test.
Grand merci encore à toutes et à tous.
Je continue mes recheches et tâtonnements.

 

[vgendron]

bonjour

si je comprend bien
si tu choisis l'affectation "à Rappeler",
il faut , en guise de commentaire, proposer la liste "à rappeler commentaire"
==> soit tu réutilises le formulaire "Affectation" en chargeant le combo avec la bonne rowsource
==> soit tu refais un nouveau formulaire" CommentPredef" sur le meme modèle que "Affectation".

 

[Usine à gaz]

Bjr vgendron, merci d'être là

Oui si je sélectionne "A Rappeler", je voudrais qu'il me propose cette liste (plage nommé "arc") :
A rappeler commentaires
A des acheteurs en cours
A insulté
A raccroché

Consulte co-propriétaires
Consulte ses enfants
Consulte son époux (se)
Demande Rappel pour prendre RdV
En agences pas maintenant
Exclusivité en cours
OK RdV
Pas de pros
Pas de pros maintenant
Pas de pros maintenant demande rappel
Pas dispo. Demande Rappel
Refus de Madame
Refus de Monsieur
Refuse le Mandat
Refuse les honoraires
Visites - pas maintenant
Visites - pas maintenant demande rappel

Autre - voir commentaires

 

[vgendron]

ton formulaire "Commentaire"
il sert à quoi? c'est celui ci qu'il faut modifier pour mettre un combo à la place du textbox?
pourquoi y a t il des controls (un bouton et un combo) cachés?

 

[Usine à gaz]

Quand je sélectionne "autre" chose que "A rappeler", c'est tout bon, il n' a rien à toucher.

C'est quand je sélectionne "A Rappeler" qu'il faudrait qu'un autre textbox ou combobox s'ouvre pour me proposer ma liste "Arc"

 

[vgendron]

Voir PJ

 

[vgendron]

à noter qu'avec le combobox, tu peux saisir toute autre chose qui n'est pas dans la liste..

 

[Usine à gaz]

Merci à toi
ça fonctionne

 

[Usine à gaz]

Encore merci à toi, c'est nickel

Je sais que je demande beaucoup (d'alleurs je vais essayer de le faire) : Il est possible que le ComboBox s'ouvre avec la liste "arc" comme l'autre ci-dessous?

 

[vgendron]

il suffit de rajouter le "combobox1.dropdown"
par contre.. j'ignore pourquoi la liste apparait en haut à gauche de l'écran, alors que le combo est au milieu...

j'ai commenté tout un tas de lignes qui (je pense) ne servent à rien ici

 

[Usine à gaz]

lol, je l'avais tenté aussi
Ben oui ça s'affiche pas au bon endroit mais ça s'affiche.
Merci à toi

 

[job75]

Bonjour Lionel, vgendron,

J'ajouterai juste une remarques Lionel.

Les Application.ScreenUpdating et Application.EnableEvents ne servent à rien ici.

Je suppose que tu les mets systématiquement au cas où ?

A+

 

[Usine à gaz]

Bjr Gérard
Effectivement, je les mets quasi-toujours lol

 

[Usine à gaz]

Bjr vgendron, Bjr Gérard, le Fil, le Forum

@vgendron : Merci encore pour m'avoir aider.
Ton fichier fonctionne bien mais l'affichage ne me convenait pas
Ce matin, je l'ai refait en y ajoutant un ComboBox (en partant de ton idée).
Et c'est tout bon cette foi-ci.
Voici le fichier en pièce jointe.
Encore merci

 

[Usine à gaz]

Re- à tous

J'y reviens lol
Après bien des tests tout est nickel sauf lol

vgendron #Post7​

"à noter qu'avec le combobox, tu peux saisir toute autre chose qui n'est pas dans la liste.."

Cela me plaisait bien
Hé Ben j'peux plus et je ne trouve pas comment le faire avec mon fichier joint.
J'ai fait des tentatives sans succès. J'ai également tenté ce code :

Private Sub Combobox1_Change()
If ComboBox1.ListIndex = "" Then
    Cells(ActiveCell.Row, 17) = Format(Now, "dd.mm.yy hh:mm") & " : " & " " & ComboBox1 & " - " & Cells(ActiveCell.Row, 17).Value
Else
    Cells(ActiveCell.Row, 17) = Format(Now, "dd.mm.yy hh:mm") & " : " & " " & ComboBox1.ListIndex & " - " & Cells(ActiveCell.Row, 17).Value
End If
Unload Me
End Sub

Egalement sans succès.
Auriez-vous le bon code ?
Merci à tous.
Je joins le fichier test et je continue mes tâtonnements...