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

Usine à gaz · 15 Mars 2021

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

sylvanu · 15 Mars 2021

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

sylvanu · 15 Mars 2021

Just for the fun.

Usine à gaz · 15 Mars 2021

Re,
Il pourra le modifier directement dans la colonne L, je ne l'ai pas protégé pour ça et pour pouvoir y ajouter un commentaire personnel en plus du commentaire sélectionné dans la "Table"

Usine à gaz · 15 Mars 2021

Merci pour le fichier "pour le fun".
Je vais le regarder

Usine à gaz · 15 Mars 2021

C'est bien aussi le msgbox de confirmation, merci

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires