Microsoft 365 couper/copier/coller le texte en tout ou partie dans le TextBox1 (casse méninges 1 du WE)

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un bon WE

PS pour notre @patricktoulon qui m'a mis au défit de trouver des trucs bien loufoques pour ce WE ... hé bien, j'en ai 2 qui seront, je pense, pas mal, pour toi et pour notre @mapomme lol

Ce fil a été résolu grâce à tous les participants que je remercie encore une fois

Microsoft 365 - InputBox : saisir ou modifier le contenu de la cellule cliquée à l'aide de l'InputBox

Bonjour à toutes et à tous, Je vous souhaite un beau dimanche :) Pour des besoins dans l'un de mes fichiers de travail, je voudrais saisir ou modifier le contenu de la cellule cliqué à l'aide de l'InputBox : l'InputBox prenant le contenu de la cellule (vide ou non), je saisi dans l'InputBox, 1...

www.excel-downloads.com

Plusieurs solutions fonctionnelles ont été proposées.

J'en ai retenu une qui me convient parfaitement et j'ai 2 questions (casse méninges du WE) et voici la première :
Est-il possible de couper/copier/coller le texte en tout ou partie "directement" dans le TextBox1

J'ai tenté et fait des recherches et jusqu'à maintenant, je n'ai pas trouvé ...
Auriez-vous la solution ?
Un grand merci à toutes et à tous,
Je joins un p'tit fichier test et je continue mes recherches ...
lionel

 

[Staple1600]

Bonjour

En affichant l'userform non dénaturé et modalement, je peux copier/coller directement dans le textbo

Public Function value(Optional mess$ = "Enter new value please", Optional title$ = "", Optional Default$ = "")
    With inPROUTbox
        .Caption = title
        .TextBox1 = Default
        .Show 0
        value = .valeur
    End With
End Function

La procédure UserForm_Activate a été mise en commentaire pour faire mon test.

 

[Usine à gaz]

Bjr JM
Merci, je teste dès que j'ai un moment car j'entre en réunion visio.
lionel

 

[Usine à gaz]

Bonjour

En affichant l'userform non dénaturé et modalement, je peux copier/coller directement dans le textbo

Public Function value(Optional mess$ = "Enter new value please", Optional title$ = "", Optional Default$ = "")
    With inPROUTbox
        .Caption = title
        .TextBox1 = Default
        .Show 0
        value = .valeur
    End With
End Function

La procédure UserForm_Activate a été mise en commentaire pour faire mon test.

Re-JM,
J'avais qq minutes avant d'entrer en réunion et j'ai testé.
Ne fonctionne pas : au clic droit dans le TextBox = il ne se passe rien.

 

[Staple1600]

Re

Lionel
Relire mon message
Où l'on lit le mot test (ce qui veut donc dire que j'ai testé avant de publier... )

Lire aussi la partie où j'indique que j'ai désactivé la procédure Userform_Activate pour faire mon test

 

[Usine à gaz]

Re

Lionel
Relire mon message
Où l'on lit le mot test (ce que veut donc dire que j'ai testé avant de publier...à

OUI JM je n'en doute pas ... mais dans mon fichier que tu n'as "peut'être" pas téléchargé lol, j'ai tenté de mettre en non modal et je n'y arrive pas

 

[Usine à gaz]

En fait, pas sûr que ce soit possible
Mais c'est le 1er casse méninges du WE lol

 

[Staple1600]

Re


[mode pincettes]
Arrête de dire des "stupidités"
[/mode pincettes]
Comment pourrais-je posté le code de Patricktoulon dans ta discussion sans avoir téléchargé le fichier...

Et comment donc n'aurais-je pas remarqué le nom de l'userform (où l'on voit l'humour "caca-boudin" de patrick -> InProutBox) sans ouvrir le fichier ??

La mise en non modal est ici mon test
.Show 0

Et comme je l'ai écrit : j'ai mis en commentaire (donc désactivé) la procédure Userform_Activate

Ce faisant, je peux faire ceci
J'affiche l'userform
Je fais un copier (avec CTRL+C ou Edition/Copier)
Puis en me plaçant dans le TextBox de l'Userform un CTRL+V
La valeur est bien copiée dans le TextBox.

Le test est concluant:
j'ai bien fait un copier/coller directement dans le textbox

Ce qui m'autorisait donc à publier le message#2

 

[Usine à gaz]

Re


[mode pincettes]
Arrête de dire des "stupidités"
[/mode pincettes]
Comment pourrais-je posté le code de Patricktoulon dans ta discussion sans avoir téléchargé le fichier...

Et comment donc n'aurais-je pas remarqué le nom de l'userform (où l'on voit l'humour "caca-boudin" de patrick -> InProutBox) sans ouvrir le fichier ??

La mise en non modal est ici mon test
.Show 0

Et comme je l'ai écrit : j'ai mis en commentaire (donc désactivé) la procédure Userform_Activate

Ce faisant, je peux faire ceci
J'affiche l'userform
Je fais un copier (avec CTRL+C ou Edition/Copier)
Puis dans l'Userform un CTRL+V
La valeur est bien copiée dans le TextBox.

Le test est concluant:
j'ai bien fait un copier/coller directement dans le textbox

Ce qui m'autorisait donc à publier le message#2

OK JM je retire lol.
Mais dans le code de la feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("c6:d15")) Is Nothing Then
Application.EnableEvents = False
Dim nom$
nom = inPROUTbox.value("saisir ,Modifier ou Annuler", "Ecrire, modifier et OK ou Annuler", CStr(Target.value))
If nom <> "" Then Target = nom
[a1].Select
Application.EnableEvents = True
Exit Sub
End If
End Sub

Je ne vois pas où mettre le ".Show 0"

J'entre en réunion et je serai indispo environ 1h

 

[Staple1600]

Re

Bah, relis attentivement le message#2 !
C'est là que j'ai mis le .Show 0

NB: j'ai testé sur un classeur vierge avec un userform et un textBox
L'userform est affiché en non modal
Je peux faire ma copie dans le textbox mais pas avec le menu contextuel
(comme lors de mon test fonctionnel du message#2)
Avec un raccourci clavier CTRL+V

EDITION: Bonjour job75

 

[job75]

Bonjour Lionel, JM,

Le clic droit dans une TextBox peut permettre de faire beaucoup de choses, exemple ouvrir un UserForm :

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then UserForm1.Show 0
End Sub

Mais il ne permet pas d'ouvrir un menu contextuel car il n'y en a pas dans une TextBox.

Edit : du moins chez moi.

Il faut se contenter des raccourcis clavier Ctrl+C, Ctrl+X, Ctrl+V.

A+

 

[Usine à gaz]

Bonjour Gérard,
Merci d'être là pour ma demande "loufoque" lol.
Je comprends ce que tu dis mais ça ne me va pas lol

Peut-être y a-t-il une solution autre en gardant les fonctionnalités de mon fichier ?
mais bon si trop compliqué ... on laisse
Et celui qui m'a mis au défit notre @patricktoulon qu'en dit-il ?
lionel

 

[Staple1600]

Re

Lionel
C'est pourtant simple à comprendre
Ce que je disais le laissait deviner

Et Job75 l'indique clairement

Mais il ne permet pas d'ouvrir un menu contextuel car il n'y en a pas dans une TextBox

 

[patricktoulon]

Bonjour
il te faut mon menu perso pour ca
2 possibilités
soit un menu contextuel commandbar et les sub dans un module (le show de la barre popup au click droit
soit une petite frame visible/non visible au click droit )avec 2 label copier/ coller

utilisation du dataobject (.settext et .gettext)

 

[Staple1600]

Bonjour patricktoulon

Donc remettre du gaz dans le gaz pour un simple copier/coller que sait faire un bête CTRL+V
Puisque les non KISSIENS reprennent la main, je quitte le fil et je vais faire mes courses.