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

Usine à gaz · 26 Mars 2022

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

patricktoulon · 28 Mars 2022

job75 à dit:
Vide le Clipboard avec le code :

VB:

Sub Vide() [A1].Copy [A1] End Sub

et exécute la macro ComboBox1_Change après avoir retiré On Error Resume Next...

re
Bonjour @job75
Ok vu
ci dessous exactement le même mais avec un vrai menu contextuel dans un module
dans un module standard

VB:

'***********************************************
'Menu contextuel "couper/copier/coller" sur textbox dans userform
'patricktoulon
'menu change sur la base de la version combobox de @job75
'*************************************************************
Option Explicit
Dim ctrl As Object
Sub createmenu(ctl As Object)
    Dim barre, arrbutton, I%: delebar: Set ctrl = ctl
    arrbutton = Array("Couper", "Copier", "Coller")
    Set barre =...

Usine à gaz · 27 Mars 2022

Staple1600 à dit:
Re

Rigolo faut voir
10 pages pour l''équivalent d'un CTRL+V
N messages pour expliquer comment trouver une clé dans la base de registre.

Ce n'est pas de la sorcellerie mais du détournement de tableur
(et pourtant il n'est plus mineur depuis longtemps le tableur)

Qui c'est ce tableur plus mineur ?
Moi, je suis "à peine" sorti de l'adolescence lol

Staple1600 · 27 Mars 2022

Re

bah, sur tous les forums excelliens de France et de Navarre
Tableur=Excel

mais aussi Traitement de Texte= Word
etc...

patricktoulon · 27 Mars 2022

re
perso je dis que si excel n’était qu'un tableur
on aurait pas toute ces possibilités

Staple1600 · 27 Mars 2022

Re

[opinion personnelle - ni polémique ni en attente de réponse]
C'est bien là que la bât blesse
Sous prétexte, qu'Office intègre un "Visual Basic", hop (et je ne parle pas de toi patricktoulon ), l'utilisateur lambda d'Excel qui macrote un chouia se dit développeur d'applications.
Pour moi, ce n'est pas le cas (et là je parle de moi), je macrote mais je ne suis pas un développeur.
Pas de langage C, de compileur, d'assembleur sous mon coude (gauche ou droit)
Le VBA, c'est bien certes mais pas besoin de le sortir quand Excel sait faire en natif.
Et à propos de VBA, j'ai lu quelque part que la volonté de Microsoft, c'est à terme de le supprimer pour le remplacer par .Net et javascript pour ne pas se laisser distancer par Sheets (qui commence à faire de l'ombre à Excel)
[/opinion personnelle]

patricktoulon · 27 Mars 2022

re
a ben oui de toute façon ça a déjà commencé pour le JS avec powerquery
powerquery c'est quoi?:
pour moi c'est du pseudo Javascript affublé de méthode du genre Xpath

pour .net, je sais pas pourquoi pas, je ne serais pas trop en retard ça va
mais j'en doute
je pense que l'on s'orientera plutôt sur des module(ou patch) pour .net et/ou autre
dans visualstudio ou quelque soit le nom qu'il portera
l'inverse serait incohérent avec l'avancée techniques des languages

il est certain qu'il y a une différence entre les macroteurs et développeurs
développer ce n'est pas que du code

job75 · 27 Mars 2022

patricktoulon à dit:
re
@job75
dans quelle eventualité la gestion d'erreur est nécessaire ?????

Vide le Clipboard avec le code :

VB:

Sub Vide()
[A1].Copy [A1]
End Sub

et exécute la macro ComboBox1_Change après avoir retiré On Error Resume Next...

Usine à gaz · 27 Mars 2022

Bsr Gérard
Que de lecture lol

patricktoulon · 28 Mars 2022

job75 à dit:
Vide le Clipboard avec le code :

VB:

Sub Vide() [A1].Copy [A1] End Sub

et exécute la macro ComboBox1_Change après avoir retiré On Error Resume Next...

re
Bonjour @job75
Ok vu
ci dessous exactement le même mais avec un vrai menu contextuel dans un module
dans un module standard

VB:

'***********************************************
'Menu contextuel "couper/copier/coller" sur textbox dans userform
'patricktoulon
'menu change sur la base de la version combobox de @job75
'*************************************************************
Option Explicit
Dim ctrl As Object
Sub createmenu(ctl As Object)
    Dim barre, arrbutton, I%: delebar: Set ctrl = ctl
    arrbutton = Array("Couper", "Copier", "Coller")
    Set barre = Application.CommandBars.Add("CopierColler", msoBarPopup, False, True)
    For I = 0 To UBound(arrbutton)
        With barre.Controls.Add(msoControlButton, 1, , , True)
            .Caption = arrbutton(I): .Tag = I: .OnAction = "Menu_change"
            If .Caption = "Couper" Then If ctl.SelLength = 0 Or TypeName(ctl) = "ComboBox" Then .Enabled = False
            If .Caption = "Copier" And ctl.Value = "" Then .Enabled = False
            If TypeName(ctl) = "ComboBox" And .Caption = "Coller" Then .Enabled = False
        End With
    Next
    barre.ShowPopup
End Sub

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

Private Sub menu_Change()
    Dim o As Object, Index%
    Index = Val(Application.CommandBars.ActionControl.Tag)
    With ctrl
        .SetFocus
        Set o = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")    ' DataObject en late binding
        If Index < 2 Then o.SetText .SelText: o.PutInClipboard               'couper/copier on met la sélection de texte dans le clipboard
        Select Case Index ' remplacement des if par un select case
        Case 0: .SelText = ""
        Case 2: On Error Resume Next: o.GetFromClipboard: If o.GetText <> "" Then .SelText = o.GetText   'ajout du controle(si clip est vide )
        End Select
    End With
End Sub

reste plus qu'a mettre dans l'event textbox dans le userform

VB:

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then createmenu TextBox1
End Sub

terminé
et c'est réutilisable a souhait
soit en copiant le code dans un module existant
soit en ajoutant un module

Usine à gaz · 28 Mars 2022

Bonjour Patrick, le Forum,
Bonne journée à toutes et à tous

Merci pour cette version,
Je te ferai un retour dans la journée.

lionel

job75 · 28 Mars 2022

Bonjour Lionel, Patricktoulon,

Le post #158 de patricktoulon est la meilleure solution.

A+

Usine à gaz · 28 Mars 2022

Bon Gérard,

Waouuu !!! Merci de me le dire, je vais le faire.
Toutefois, j'ai intégré ton code dans tous mes fichier lol et je le garde .... si souci, je reviendrai vers toi pour te dire.
lionel

patricktoulon · 28 Mars 2022

re
la solution combobox de (@job75)est bien aussi
j'ai seulement modifié son apparence
@job75 la met a droite et modifie la taille du userform moi je la réduit a son stricte déroulé et la positionne au curseur
on pourrait des l'ors alors le faire dans une classe dynamique
là aussi c'est du réutilisable a souhait
mais bon pour une petit menu de 3 items c'est suffisant
si il y avait plus de fonction a appeler je dirais que la classe serait mieux pour la combo

job75 · 28 Mars 2022

@patricktoulon peux-tu avec ta méthode créer un contrôle ComboBox de 2 colonnes ?

patricktoulon · 28 Mars 2022

re
ben oui c'est la même que toi en fait
on pourrait alors ajouter un switch sur les colonnes (visible ou pas et faire 36 menu avec la meme combo
en changeant le textcolumn au switch

ou alors je n'ai pas compris ta question

Usine à gaz · 28 Mars 2022

Bonsoir Patrick, Bonsoir Gérard, tous ceux qui ont eu la gentillesse de participer à ce fil et le Forum
@ patricktoulon :

SUPER ton code et je t'en remercie
Toutefois pour qu'il corresponde "complètement" à mon besoin, je me suis permis de modifier comme suit :

VB:

Option Explicit
Dim ctrl As Object

Private Sub UserForm_Initialize()
TextBox1.Value = ActiveCell 'prend la valeur de la cellule cliquée
End Sub

Private Sub OkButton_Click()
ActiveCell.Value = TextBox1 ' renvoie la valeur modifiée ou non
Unload Me
End Sub

Private Sub CancelButton_Click()
Unload Me
End Sub

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then createmenu TextBox1
End Sub

Private Sub UserForm_Click()
End Sub

Je joins le fichier qui me va bien en pièce jointe

Qu'en penses-tu ?
lionel

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

Usine à gaz

XLDnaute Barbatruc

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

Pièces jointes

patricktoulon

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Discussions similaires