Microsoft 365 copier le contenu d'une cellule dans mon textbox

Usine à gaz

XLDnaute Barbatruc
Bonsoir à toutes et à tous,

je suis toujours sur mon nouveau fichier de travail et j'ai un besoin que je ne parviens pas à résoudre.

Mon besoin :
En Feuille "Appels"
Pour éviter de perdre du temps en saisie de commentaires dans ma feuille "Appel" en colonne L, j'ai créé ce qui deviendra un recueil de libellés prédéfinis.

- Quand clic sur la cellule de la colonne K, avant d'ouvrir mon textbox1, j'ouvre la feuille "Table",
- Quand je clique sur un commentaire prédéfini, la cellule est copiée et mon textbox1 s'ouvre,
- Je souhaite donc que le contenu de la cellule copiée de "Table" soit collé dans mon textbox que je valide ensuite par "Entrée".
Et lol, comme d'habitude, je ne sais pas faire et malgré mes recherches, je n'ai pas encore trouvé.
Auriez-vous la solution ?
En attendant, je continue mes recherches.
Je joins le fichier test,
Avas mes remerciements,
Amicalement,
lionel :)
 

Pièces jointes

  • Info copie autre feuille.xlsm
    97.8 KB · Affichages: 12
Solution
Essayez cette PJ.
J'ai modifié Worksheet_SelectionChange de la feuille Table, ça strappe l'USF avec :
VB:
Private Sub Worksheet_SelectionChange(ByVal R As Range)
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Range(Cells(1, 14), Cells(1, 1)).Select
    ActiveWindow.Zoom = True 'ActiveWindow.Zoom = 114

If Not Intersect(R, Range("b4:b30")) Is Nothing Then
    R.Copy
    [a1].Select
    Sheets("Appels").Select
    ' Modif transfert automatique
    If R <> "" Then
        ActiveCell.Offset(0, 1) = Format(Now, "dd-mm-yy hh:mm") & " : " & R & " - " & Chr(10) & ActiveCell.Offset(0, 1).Value
    End If
End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Discussions similaires

Statistiques des forums

Discussions
313 243
Messages
2 096 509
Membres
106 644
dernier inscrit
7frd5