XL 2010 Résolu par la communauté : UserForm : écriture automatique dans cellule

[Usine à gaz]

Bonjour à toutes et tous,

Toujours dans mon fichier "de course", me re-voilou devant vous pour 2 soucis d'un coup LOL que je n'arrive pas à résoudre.

Ne trouvant pas la solution, je me permets de vous les soumettre "magiciens que vous êtes" pour moi

J'ai un code créé par phlaurent55 (je vous en remercie encore au passage Philippe), qui fonctionne nickel.
Ce code me permet de copier le texte sélectionné dans l'UF dans une cellule de mon choix et à la suite du ou des textes existants dans cette cellule ... pour mon boulot, c'est génial pour suivre l'évolution des entretiens.

Mais j'ai un petit souci pour lequel je cherche depuis quelques temps une solution que je n'arrive pas à trouver.

Quand j'ouvre PAR ERREUR et que je clique sur la croix de l'UF (fermeture sans sélection de commentaire) :
- si auparavant je n'avais pas sélectionné de commentaire : la date s'écrit en U,
- si j'avais déjà sélectionné des commentaires : le dernier sélectionné s'écrit,
Est-il possible de fermer l'UF sans écriture en U si non sélection de commentaire ?

LOL, j'ai donc une seconde question pour cet UserForm,

Dans mon fichier de travail, j'ai une plage qui liste un nombre important de sélections et pour faciliter et accélérer la sélection, j'ai mis des titres.

L'erreur étant toujours possible :
Est-il possible d'empêcher la sélection des titres dans l'UF ?

je joins le fichier test.
Vous remercie déjà pour m'avoir lu en espérant n'être pas trop brouillon dans mes explications
Mais le fichier sera certainement plus explicite.
Bon WE à toutes et à tous,
Amicalement,
Lionel,

 

[cathodique]

Bonjour Arthour973,

Je ne solutionne pas ton problème d'enregistrement.
Mais je te propose une solution pour ne pas fermer l'UserForm avec la croix. voir fichier joint.

 

[Lone-wolf]

Bonjour Lionel , Cath

Autre proposition très connue

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = True
End Sub

 

[Usine à gaz]

Bonjour Cathodique,
Bonjour Lone,

merci d'être encore là

Cathodique, ta solution est bonne mais me pose un petit problème car mon fichier est déjà très lourd et je ne souhaite pas ajouter d'UF. Mais je garde en cas. Merci

Lone, merci pour ton code. je me le mets où ? à part où tu penses là maintenant LOL
OUI, je sais, j'en suis encore là
Amicalement,
Lionel,

 

[Dranreb]

Bonjour.
Pourquoi ne déplaceriez vous pas simplement l'instruction
ActiveCell.Offset(0, 3) = ActiveCell.Offset(0, 3) & " - " & Format(Date, "dd/mm/yy") & " " & R
de la Worksheet_SelectionChange vers la ComboBox1_Change ?
En remplaçant bien sûr R par ComboBox1.Value

 

[Usine à gaz]

Bonjour Dranreb,

Merci pour cette réponse qui est certainement la solution mais ..... je ne sais pas le faire

 

[Dranreb]

Comment ça, vous ne savez pas déplacer une instruction ???
Moi je sélectionne de la fin de l'instruction précédente jusqu'à la fin de l'instruction que je veux déplacer, Ctrl+X, je positionne le curseur à la fin de l'instruction derrière laquelle je veux la mettre, Ctrl+V.

 

[Usine à gaz]

J'ai essayé de modifier comme cela :

Private Sub ComboBox1_Change()
ActiveCell.Offset(0, 3) = ActiveCell.Offset(0, 3) & " - " & Format(Date, "dd/mm/yy") & " " & ComboBox1.Value
'ActiveCell.Value = ComboBox1.Value
'[L3] = ComboBox1.Value
Unload Me
End Sub

Mais le résultat est le même

 

[Dranreb]

Vous n'avez pas dû l'enlever de la Worksheet_SelectionChange, c'est pas possible autrement puisqu'alors plus rien n'écrit quoi que ce soit dans une cellule à part cette ComboBox1_Change

 

[Lone-wolf]

Bonjour Dranreb

Lionel à dit : Lone, merci pour ton code. je me le mets où ?

C'est fini oui?! On est pas sur XXL ici ?!

Tu vois bien que le code est à mettre dans le code du formulaire.

 

[Si...]

Bonjour


Puisque déjà fait, problème d’affichage pour problème d’affichage de la liste quand celle-ci est très longue,
autant passer par un contrôle Listbox comme dans le fichier joint.

Remarque : avec la propriété ShowModal du formulaire à False, on peut le déplacer sur la feuille !

 

[Usine à gaz]

Dranreb, effectivement, j'avais "omis" de l'enlever de la Worksheet_SelectionChange. ça marche nickel.

Un grand merci.
Je remets le fichier tes pour toutes et tous

 

[Usine à gaz]

Bonjour Si,
encore là pour moi ..... Un grand Merci
Je regarde votre solution.

 

[Usine à gaz]

Re Si,

Super ça, je n'avais pas pensé à la Listbox
C'est nickel.
Vous êtes géniaux LOL
Merci à tous d'avoir été là, si rapides et si Pros
je suis très jaloux même si j'évolue grâce à vous tous.
Amicalement,
Lionel,

 

[Usine à gaz]

Merci Lone, j'ai failli me le mettre là où ça fait mal (si on se le met pour la seconde fois).
ça marche aussi. Merci à toi