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 =...

Staple1600 · 27 Mars 2022

RE

Sur Excel 2013, le chemin est
Ordinateur\HKEY_CURRENT_USER\SOFTWARE\Microsoft\VBA\7.1\
Donc regarde sur ton PC
En faisant
touche Windows+R
regedit.exe
ENTER

Usine à gaz · 27 Mars 2022

Staple1600 à dit:
RE

Sur Excel 2013, le chemin est
Ordinateur\HKEY_CURRENT_USER\SOFTWARE\Microsoft\VBA\7.1\
Donc regarde sur ton PC
En faisant
touche Windows+R
regedit.exe
ENTER

J'ai fait copier/coller

Staple1600 · 27 Mars 2022

Re

Job75 a également connu ce problème

Fenêtre Propriétés ne s'affiche plus

Bonjour à tous, Comme indiqué, chez moi sur Excel 2019 (64 bits) la fenêtre Propriétés dans VBA ne veut plus s'afficher. Je n'ai rien fait de très particulier aujourd'hui si ce n'est créé un module de classe pour des CommandButtons dans la feuille de calcul. J'ai redémarré l'ordinateur, ça ne...

www.excel-downloads.com

Là aussi, la solution passe par la base de registre.

Staple1600 · 27 Mars 2022

Re

=>Lionel
Tu n'as suivi pas mon tuto
Il faut ouvrir regedit
1) Touche Windows+R
2) écrire: regedit.exe puis appuyer sur ENTER
3) Là parcourir l'arborescence pour trouver le même chemin ou l'équivalent
donc déjà arriver jusqu'à
HKEY_CURRENT_USER\SOFTWARE\Microsoft\VBA
Sur Excel 2013 j'ai 7.1
Sur 365 soit c'est pareil, tu auras 7.1
soit il y aura autre chose: 7.2 par exemple ou 8.1
(j'en sais rien, je n'ai pas 365)

job75 · 27 Mars 2022

Si comme le dit patricktoulon les SendKeys posent problème on utilisera ce fichier (2) avec la macro :

VB:

Private Sub ComboBox1_Change()
Dim n%, o As Object
n = ComboBox1.ListIndex
If n = -1 Then Exit Sub
ComboBox1 = ""
With TextBox1
    .SetFocus
    Set o = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") ' DataObject en late binding
    If n < 2 Then o.SetText .SelText: o.PutInClipboard 'copier
    If n = 0 Then .SelText = "" 'couper
    If n = 2 Then On Error Resume Next: o.GetFromClipboard: .SelText = o.GetText 'coller
End With
End Sub

Usine à gaz · 27 Mars 2022

Staple1600 à dit:
Re

=>Lionel
Tu n'as suivi pas mon tuto
Il faut ouvrir regedit
1) Touche Windows+R
2) écrire: regedit.exe puis appuyer sur ENTER
3) Là parcourir l'arborescence pour trouver le même chemin ou l'équivalent
donc déjà arriver jusqu'à
HKEY_CURRENT_USER\SOFTWARE\Microsoft\VBA
Sur Excel 2013 j'ai 7.1
Sur 365 soit c'est pareil, tu auras 7.1
soit il y aura autre chose: 7.2 par exemple ou 8.1
(j'en sais rien, je n'ai pas 365)

J'en suis là :

Staple1600 · 27 Mars 2022

Donc

Fermes d'abord toutes tes instances Excel
Cliques sur 7.1 puis sur Common
Et supprimes la clé Dock
Ferme ensuite regedit
Puis soit:
1) Redémarres ton PC (cela ne lui fera pas de mal)
puis réouvres Excel et vérifie si tu retrouves ta fenêtre Propriétés
ou
2) Redémarres directement Excel et vérifie si tu retrouves ta fenêtre Propriétés

NB: la clé Dock est récréé automatiquement

Usine à gaz · 27 Mars 2022

Staple1600 à dit:
Donc

Fermes d'abord toutes tes instances Excel
Cliques sur 7.1 puis sur Common
Et supprimes la clé Dock
Ferme ensuite regedit
Puis soit:
1) Redémarres ton PC (cela ne lui fera pas de mal)
puis réouvres Excel et vérifie si tu retrouves ta fenêtre Propriétés
ou
2) Redémarres directement Excel et vérifie si tu retrouves ta fenêtre Propriétés

NB: la clé Dock est récréé automatiquement

Je ne vois pas où est la clé Dock

Staple1600 · 27 Mars 2022

Re

Relis mon message attentivement (ou lis avec tes lunettes )

Staple¸ avec ses doigts a écrit¸ mais non point à dit:
Cliques sur 7.1 puis sur Common

Usine à gaz · 27 Mars 2022

Staple1600 à dit:
Re

Relis mon message attentivement (ou lis avec tes lunettes )

Je dois être bouché ce matin lol .
Mais comment la supprimer ? car je ne la vois pas cette P....n de clé lol

Staple1600 · 27 Mars 2022

Relire le message#114

Au lieu de te précipiter, prends le temps de lire calmement les messages !!

patricktoulon · 27 Mars 2022

ecoute c'est simple
prend un blocknote et colle lui ça

Bash:

Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\VBA\6.0\Common]
"Dock"=-
[HKEY_CURRENT_USER\Software\Microsoft\VBA\7.0\Common]
"Dock"=-
[HKEY_CURRENT_USER\Software\Microsoft\VBA\7.1\Common]
"Dock"=-

sauve le sous "resetDocking.reg" en prenant soin de choisir l'extention"*" en dessous voir demo

tu va te retrouver avec un fichier dont l'icone ressemble a ça

tu le lance tu réponds oui tout le temps (les 3 fois )
et voilà tu relance excel et les dock vont se réinitialiser
pas compliqué c'est bon for all version actuellement

Staple1600 · 27 Mars 2022

Re

Pour la supprimer, tu la sélectionnes puis clic-droit -> Supprimer

Nb: Tu peux par sécurité au préalable exporter la branche pour sauvegarde en faisant
Fichier/Exporter/Branche sélectionnée
Tu obtiendras un fichier *.reg)

Eric C · 27 Mars 2022

Bonjour le forum
Bonjour les participants (le fil)
Un petit passage pour dire à Lionel qu'il n'est pas "bouché".
Pour ma part, je dispose dans Regedit, répertoire VBA des dossiers 6.0 - 7.0 & 7.1. J'ai la clé Docks présente dans les dossiers 6.0 & 7.0 mais pas dans la 7.1 ???
Bon dimanche à toutes & à tous
@+ Eric c

Staple1600 · 27 Mars 2022

Re

patricktoulon
Quoi de plus simple que
Clic-droit -> Supprimer

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

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Fenêtre Propriétés ne s'affiche plus

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires