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

 

[mapomme]

Donc remettre du gaz dans le gaz pour un simple copier/coller que sait faire un bête CTRL+V

En plus si le gaz rajouté est froid, alors c'est du gazpaschaud. Tiens! J'ai comme une p'tite faim, mangerai bien une p'tite soupe fraiche, moi.
Désolé, je ne le ferai plus (enfin si quand même). Je sors, désolé

 

[Usine à gaz]

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)

Bjr Patrick : t'aurai le bon code ?

 

[Usine à gaz]

En plus si le gaz rajouté est froid, alors c'est du gazpaschaud. Tiens! J'ai comme une p'tite faim, mangerai bien une p'tite soupe fraiche, moi.
Désolé, je ne le ferai plus (enfin si quand même). Je sors, désolé

Bonjour mapomme : j'adore ... stp ... stp refais me-le encore (tien ça m'rappelle un truc lol )
Alors : ça chauffe les méninges ?

 

[patricktoulon]

re
tout droit sorti de mes vieux délires,du temps ou je faisais comme toi des usines de raffinement pétrolifères

je l'ai mis un peu au goût du jour

'couper
tu peux couper une partie de text d'un textbox et le coller dans un autre (efface l'existant si non vide)
'je pourrais éventuellement ajouter l'insertion

'copier
tu peux copier un textbox et le coller dans une cellule
tu peux copier une cellule ou une plage dans un textbox (si plus d'une ligne le textbox doit être multiligne )
tu peux copier un item d'une combobox et coller dans un textbox

le menu intègre le font color et le backcolor
si tu veux intégrer le font size ou le font name et / ou autre,cela serait facile

 

[Staple1600]

Re

patricktoulon
Erreur 438 quand collage dans Multipage

Nb: Donc on est bien d'accord pas de menu contextuel natif d'Excel sur un TextBox
(Ce que demandait Lionel dans son message#1 avec sa copie d'écran)

 

[patricktoulon]

Bonjour Staple1600
ahh!! ben non ce n'est pas natif bien sur
je regarde le multipage
edit:
comme c'est un vieux delire et que je n'ai pas envie de m'ennuyer avec ça on passe par un raccourci
comme je fait un simple show popup et non un show popup (X,Y) j'utilise une variable et on fait sauter le select case control

Public usf
Public CtrL As Object
Sub createmenu(ctl As Object)
    Dim barre, arrbutton
   Set CtrL = ctl
   arrbutton = Array("Couper:ncouper", "Copier:ncopier", "Coller:ncoller", "Font Color:fontcolor", "Back Color:Pbackcolor")
    delebar
    Set barre = Application.CommandBars.Add("CopierColler", msoBarPopup, False, True)
    For i = 0 To UBound(arrbutton)
        With barre.Controls.Add(msoControlButton, 1, , , True)
            .Caption = Split(arrbutton(i), ":")(0)
            .Tag = ctl.Name
            If .Caption = "Couper" Then
                If ctl.SelLength = 0 Or TypeName(ctl) = "ComboBox" Then .Enabled = False
            End If
             If .Caption = "Copier" And ctl.Value = "" Then .Enabled = False
             .OnAction = Split(arrbutton(i), ":")(1)
        End With
    Next
    barre.ShowPopup
End Sub

Sub delebar()
    On Error Resume Next
    CommandBars("CopierColler").Delete
End Sub

Sub ncouper()
    Dim valeur$, oldvaleur$
    With usf.Controls(Application.CommandBars.ActionControl.Tag)
        oldvaleur = .Value
        valeur = Mid(.Value, .SelStart + 1, .SelLength)
        .Value = Mid(oldvaleur, 1, .SelStart) & Mid(oldvaleur, .SelStart + 1 + .SelLength, Len(oldvaleur))
       End With
         With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText valeur: .PutInClipboard: End With
    End Sub

Sub ncopier()
    Dim valeur$
    valeur = usf.Controls(Application.CommandBars.ActionControl.Tag).Value
     With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText valeur: .PutInClipboard: End With
End Sub

Sub ncoller()
    Dim valeur$
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .GetFromClipboard: valeur = .GetText: End With
    If UBound(Split(valeur, vbCrLf)) = 1 Then valeur = Replace(valeur, vbCrLf, "")
      Select Case TypeName(CtrL)
    Case "ComboBox"
        'Control.Value = valeur'selectionne l'item
        Control.AddItem valeur    'j'ajoute un item a la combo (il faut quelle soit développée)
        Control.DropDown
    Case "TextBox"
        CtrL.Value = valeur
     End Select
    'With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText "": .PutInClipboard: End With
End Sub

Sub fontcolor()
 If Application.Dialogs(xlDialogEditColor).Show(2, 255, 0, 0) = True Then
 usf.Controls(Application.CommandBars.ActionControl.Tag).ForeColor = ActiveWorkbook.Colors(2)
End If

End Sub
Sub pbackcolor()
 If Application.Dialogs(xlDialogEditColor).Show(2, 255, 0, 0) = True Then
 usf.Controls(Application.CommandBars.ActionControl.Tag).BackColor = ActiveWorkbook.Colors(2)
End If

End Sub

 

[Staple1600]

Re

Plus d'erreurs
Mais 2561 caractères ou 63 lignes de code VBA pour un simple CTRL+V, j'appelle plus cela du gaz, mais un total non-sens quant à l'usage d'Excel, né tableur.

Allez, je quitte le fil, maintenant que j'ai fait mes courses, faut que je les range.

 

[Usine à gaz]

Merci Patrick
Je n'arrive pas à le faire fonctionner ...
Tu veux bien mettre le code dans mon fichier joint ?

 

[patricktoulon]

tu veux je mette ça ou
mon inproutbox fonctionne très bien ????????
tu veux pouvoir coller quelque chose que tu aurais copier ailleurs a la place due la valeur par defaut
c'est ça ???????????????????

 

[Staple1600]

Re

Lionel
Il suffit d'afficher l'userform en ajoutant une macro de ce type
Sub test()
UserForm1.Show 0
End Sub

 

[Usine à gaz]

tu veux je mette ça ou
mon inproutbox fonctionne très bien ????????
tu veux pouvoir coller quelque chose que tu aurais copier ailleurs a la place due la valeur par defaut
c'est ça ???????????????????

lol Te casses pas les neurones, je crois que la demande n'est pas réalisable

 

[Usine à gaz]

Re

Lionel
Il suffit d'afficher l'userform en ajoutant une macro de ce type
Sub test()
UserForm1.Show 0
End Sub

JM : je regarde

 

[Staple1600]

Re

Je pense avoir trouvé l'image idéale à mettre en image de fond sur l'userform de Lionel

Challenge du week-end
Trouver sur le net un fichier audio de cette chanson

 

[patricktoulon]

re
non!! @Staple1600 le inproutbox ne fonctionnera pas un vbmodeless
et pour cause c'est le principe même de la fonction "value" qui arrêté l exécution du code tant qu'un hide n'a pas été déclenché
un inputbox est sensé renvoyer une réponse et non applique une valeur quelque part

 

[patricktoulon]