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

XL 2021 Commentaires automatiques

Usine à gaz

XLDnaute Barbatruc
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

  • commentaires.xlsm
    82 KB · Affichages: 4
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

vgendron

XLDnaute Barbatruc
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

Usine à gaz

XLDnaute Barbatruc
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

vgendron

XLDnaute Barbatruc
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?
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
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

vgendron

XLDnaute Barbatruc
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

  • commentaires.xlsm
    78.5 KB · Affichages: 3
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
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

  • commentairesVgendron2.xlsm
    86.5 KB · Affichages: 6
Dernière édition:
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
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

  • commentairesVgendron4.xlsm
    87.8 KB · Affichages: 3
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
Microsoft 365 VBA : copier / coller d'un onglet à l'autre en fonction d'une valeur
Réponses
8
Affichages
553
Lisette
  • Question
XL pour MAC Les commentaires dans excel
2 3
Réponses
33
Affichages
2 K
Nono1835
A
  • Question
Microsoft 365 INDEX+EQUIV dont le resultat duplique les lignes par erreur
Réponses
5
Affichages
218
aeca
A
J
  • Résolu(e)
Microsoft 365 Gestion de commentaires de lignes
2
Réponses
18
Affichages
1 K
jm.andryszak
J
C
  • Question
XL 2016 Commentaires avec RollOver pour liste aléatoire...
Réponses
6
Affichages
567
TooFatBoy
L
  • Résolu(e)
XL 2019 Contenus des commentaires.
Réponses
5
Affichages
754
lotislogan
L
L
  • Question
Microsoft 365 Macro choisir onglet à exporter dans un nouveau classeur
Réponses
5
Affichages
680
l.et.lilou
L
P
  • Question
XL 2019 Bloquer la saisie dans une colonne sous condition
Réponses
1
Affichages
481
sylvanu
T
  • Question
Microsoft 365 VBA-problème macro
Réponses
6
Affichages
454
ted1057
T
F
  • Question
XL 2013 Tri d'une listbox sur 2 combobox en cascade
2
Réponses
25
Affichages
1 K
franxy
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…