Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Commentaires automatiques

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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.
🙂
 

Pièces jointes

Dernière édition:
Solution
ca se passe dans la propriété "MatchEntry" du combobox

et pas besoin d'alourdir le code avec des tests qui ne servent à rien
encore faut il le mettre au bon endroit
il y a plusieurs erreurs dans ton code
1) tu le mets dans l'évènement _change du combo
2) pour tester si le contenu du combo fait partie de la liste
if me.combobox1.listindex=-1 then 'le texte n'est PAS un item de la liste

pour mettre le contenu du combo, c'est me.combobox1.value

dans l'évènement queryclose, tu as laissé un bout de code avec le textbox1 qui n'existe plus
dans le cas présent.. tu as de la "chance" que ca ne bug pas puisque vba croit que textbox1 est une variable
alors que dans ton esprit, c'est le control==> si tu prenais l'habitude de spécifier le parent...
Trier par date Trier par votes
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".
 
Vote positif 0 Vote négatif
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
🙂
 
Vote positif 0 Vote négatif
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"
🙂
 
Vote positif 0 Vote négatif
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?

🙂
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
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 🙂
🙂
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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 :
VB: 
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...
🙂
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Microsoft 365 Ré-Affectations des lignes d'appels
Réponses
8
Affichages
821
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…