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
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
Re JM :
VB: 
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
inPROUTbox.Show 0
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 n'arrive pas à afficher les propriétés et je ne trouve pas le nom de l'UserForm = résultat :

sniffffff 😡
 
Vote positif 0 Vote négatif
RE

Lionel
Pour faire plaisir à patrick
VB: 
Sub test()
UserForm1.Show
End Sub
te permettra de tester son fichier exemple du message#19
(Et pour éviter l'erreur 438, faire un copier/coller du code du message#21 en lieu et place du code présent dans le fichier du#19)
C'est ce que j'ai fait.
Et pas d'erreur mais maintenant il faut que j'aille aux urgences car j'ai les oreilles qui saignent
(j'ai trouvé du son mais pas le bon 😉)
Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.
 
Vote positif 0 Vote négatif
Re-JM : je l'avais fait mais j'ai rien compris à ce qu'il faut faire quand l'UF est affiché lol
Une chose est sûre, ça ne répond pas à l'objet du fil 🙂
 
Vote positif 0 Vote négatif
Re

Sauf que la solution n'est pas celle à cette question 😉
Lionel¸ gazier en chef à dit:
Est-il possible de couper/copier/coller le texte en tout ou partie "directement" dans le TextBox1
Cliquez pour agrandir...
commandbar temporaire+dataobject <> directement
😉

NB: Pour pas fâcher patrick
Du bel ouvrage (à forte teneur de méthane)
😉
 
Vote positif 0 Vote négatif
Re

Non car directement veut dire sans artifice
Ta copie d'écran indique bien que tu voulais le menu contextuel du Collage dans le textbox

La solution de patrick répond à cette question
Est-il possible de simuler le menu contextuel (version simplifiée) natif d'Excel du Collage en cliquant droit sur un TextBox dans un userform ?

Ce qui n'a rien à voir avec la question du message#1
😉
 
Vote positif 0 Vote négatif
tu chipotes lol
 
Vote positif 0 Vote négatif
Re-Patrick 🙂
Retour de tests :
le couper
prend bien en compte le bout de texte sélectionné : pas exemple "Forum"
Mais si je veux coller avant "bonjour", il colle bien "Forum" mais efface tout le reste
le copier
Ne prend pas en compte la partie sélectionnée et don : ne colle rien
Font color
Mets bien en couleur le texte dans le TextBox1 mais ne colore pas le texte de la cellule cliquée
Back color
pareil

Mais c'est génial ton code et ce serait super de chez super si ....
Et si ça pouvait aussi décapsuler ma bouteille de bière alors là ..... 😂🤣
Merci Patrick 🙂
 
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
D
  • Résolu(e)
XL 2016 Fusionner 2 tableaux en 1 ou copier coller une ligne sur 2
Réponses
14
Affichages
2 K
chris
C
  • Question Question
Word VBA Excel-Word: Coller du texte l'un en dessous de l'autre
Réponses
1
Affichages
3 K
Conrad13
C
N
  • Question Question
Interdire le copier/coller ou couper/coller
Réponses
11
Affichages
7 K
MichD
M
  • Question Question
Couper/Coller du texte se trouvant dans parentheses.
2
Réponses
16
Affichages
4 K
cephalotus
E
  • Question Question
Impossible de copier un texte sur excel et le coller dans une zone de texte
Réponses
3
Affichages
2 K
Pierrot93
S
  • Question Question
Rétablir le menu edition copier coller
Réponses
6
Affichages
11 K
sslick
S
C
  • Question Question
copie du texte de plusieurs lignes excel et coller le dans 1 seule cellule
Réponses
3
Affichages
16 K
coyote
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…