Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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 🙂
 

Pièces jointes

Dernière édition:
Solution
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...
Cliquez pour agrandir...
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 =...
Trier par date Trier par votes
Usine à gaz à dit:
Mais faudrait que ce soit dans le contexte de mon fichier.
Cliquez pour agrandir...
Alors vois le fichier joint et le code de l'UserForm :
VB: 
Const petit = 450 'petite largeur de l'USF, à adapter
Const grand = 552 'grande largeur de l'USF, à adapter

Private Sub OkButton_Click()
'Me.Width = petit 'inutile
End Sub

Private Sub CancelButton_Click()
Unload Me
End Sub

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then ComboBox1.DropDown: Me.Width = grand
End Sub

Private Sub ComboBox1_Change()
Dim n%
n = ComboBox1.ListIndex
If n = -1 Then Exit Sub
ComboBox1 = ""
TextBox1.SetFocus
CreateObject("WScript.Shell").SendKeys IIf(n = 0, "^x", IIf(n = 1, "^c", "^v")) 'envoi les touches
End Sub

Private Sub ComboBox1_DropButtonClick()  'quand la liste se déroule ou se ferme
Me.Width = petit
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = [{"Couper","Ctrl+X";"Copier","Ctrl+C";"Coller","Ctrl+V"}]
ComboBox1.Top = TextBox1.Top - ComboBox1.Height
With Label1
    .BackColor = Me.BackColor
    .Top = 0
    .Height = ComboBox1.Top + ComboBox1.Height 'masque la partie visible de la zone de restitution
    .Left = ComboBox1.Left
    .Width = ComboBox1.Width
End With
Me.Width = petit
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonsoir Gérard 🙂
Nom de d'là quelle perspicacité ! Merci Gérard !
En voilà une solution qu'elle est bonne 🙂
ça fonctionne = question loufoque du jour résolue pour cette version.
Wahouuu : vous êtes supers extra voilà 2 versions exploitables.

Je ne dis pas mon dernier mot .... je trouverai l'impossible lol
D'ailleurs, ce serait sympa de créer une rubrique "questions loufoques" 😂🤣
 
Vote positif 0 Vote négatif
Bonjour Lionel, le forum,

Au post #61 j'ai ajouté la macro ComboBox1_DropButtonClick et un peu simplifié le code.

Maintenant quand on clique n'importe où l'UserForme prend sa petite largeur.

Utilise le fichier modifié.

A+
 
Vote positif 0 Vote négatif
Bonjour Patrick : Merci c'est nickel 🙂 ... lol je garde le second casse méninges pour le WE prochain 🙂
 
Vote positif 0 Vote négatif
job75 à dit:
Oui et sinon clic droit sur la partie noire de l'USF => Propriétés
Cliquez pour agrandir...
Re :
- F4,affichage menu vba,
- affichage menu vba,
- partie noire de l'USF => Propriétés
Rien à faire = aucun affichage
C'est la 1ère fois que je rencontre ce souci.

Et j'ai tenté pour d'autres UserForm = Pareil 😡
Il a du se passer un truc mais je ne vois pas koi ....
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 inPROUTbox fonctionne si texte et ne fonctionne pas si date
2
Réponses
19
Affichages
1 K
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…