Discussion :

[grodeg]

Bonjour à tous,

Ce code qui me semble simple ne fonctionne pas. Le souhait est de fusionner les cellules sélectionnées à l'appui de Ctrl et w. Suivant les docs trouvées, rien d'à priori compliqué.
Pour ceux qui me proposeraient d'autres solutions, je précise que ça m'intéresse de savoir pourquoi ce code précis ne marche pas. Quelque soit la pertinence de son utilisation.
Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Sub fu()
 
Application.OnKey "^{w}", "fusion"
 
End Sub
 
Sub fusion()
'
' fusion Macro
'
 
'
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
End Sub

[Jean-Philippe André]

Salut,

ne confonds-tu pas avec SendKeys ?

[grodeg]

Bonjour,

Je ne pense pas. Le but du jeu est d'éviter d'avoir à obligatoirement utiliser les combinaisons de touche Ctrl quelque chose proposées en standard par Excel pour l'exécution d'une macro.
De ce que j'en ai vu, la solution est l'utilisation de Application.Onkey avec deux paramètres:
La touche ou la combinaison de touche que tu utilises comme premier paramètre
La procédure que tu appelles lorsque cette touche ou combinaison de touche est jouée

[Jean-Philippe André]

Pardon, j'etais sur l'envoi de touche, et non la creation d'un raccourci

alors j'ai fait des essais de mon cote.

L'attribution du raccourci est bonne et le declenchement du raccourci se lance bien. Aucun soucis non plus dans la fusion, mais peut etre que prendre en consideration l'existence et taille de la selection sont bien.

As-tu bien un Application.EnableEvents = True par exemple ?

[unparia]

Bonjour

je précise que ça m'intéresse de savoir pourquoi ce code précis ne marche pas

ne nous dit pas comment ce code "ne marche pas".
- Aucun effet ?
- Un message d'erreur ?
- Autre, et quoi ?
Nous ne savons par ailleurs pas où (dans quoi) tu a mis chacun de ces deux codes, ni comment et à quel moment tu "lances" la sub fu

[joe.levrai]

Bonjour,

premièrement, quel est le comportement actuel ? Car le raccourci Ctrl+w sert à la base à fermer le classeur actif

ensuite, pourquoi ne pas utiliser l'interface Excel ?

Menu Développeur >> Macro >> sélectionner la macro souhaitée >> cliquer sur Option >> la boite de dialogue de propose d'ajouter un raccourci en Ctrl + ToucheDeTonChoix

[grodeg]

Bonjour Jean-Philippe,

J'avais essayé avec un enable;events = true mais ça ne fonctionnait pas bien mieux.

à unparia, je préfère ne pas répondre, je vais me montrer désagréable, ou plutôt si, ce ne sera pas la première fois que je me fais mal voir sur ce forum. Donc, réponse typique du forumiste français, sous-entendu, j'ai pas de réponses mais je te fais valoir que je trouve ta question con.
Commentaire de ma part, évidemment fu est censé se lancer sur une combinaison de touche, ce qu'est censé permettre Application.Onkey(). Quand on n'a rien à dire ... D'où ma dilection naturelle pour les forums anglais. Réponse attendue -> ben vas y. Réponse, c'est fait.
PS - Mon code je l'ai mis ou tu penses, je suis sur que tu penses dans la zone développeur à l'endroit ad hoc.
Re PS - J'aime pas les forumistes condescendants, je pense que tu auras compris.

à Joel, jai précisé que c'est justement pour éviter d'avoir à utiliser le Ctrl obligatoire de l'option classique. Sinon je m'en servirais, ce que je fais pour le moment mais j'aimerais trouver d'autres solutions. C'est une question de "rapidité", par exemple un Alt x va plus vite qu'un Ctrl+Shift+q. Le code dont je me servirais utilisera plus volontiers Alt que Ctrl mais jai essayé ce code avec % et + qui sont censés être les raccourcis de Maj et Alt ou l'inverse, ça ne fonctionne pas mieux.
Je pense que mon erreur doit être triviale mais je ne la vois pas.

Mon code n'est là qu'à titre d'exemple, je l'ai essayé avec o, p et bien d'autres lettres avant de poster, ça ne fonctionne pas mieux.

[unparia]

unparia, je préfère ne pas répondre, je vais me montrer désagréable, ou plutôt si, ce ne sera pas la première fois que je me fais mal voir sur ce forum. Donc, réponse typique du forumiste français, sous-entendu, j'ai pas de réponses mais je te fais valoir que je trouve ta question con.
Commentaire de ma part, évidemment fu est censé se lancer sur une combinaison de touche, ce qu'est censé permettre Application.Onkey(). Quand on n'a rien à dire ... D'où ma dilection naturelle pour les forums anglais. Réponse attendue -> ben vas y. Réponse, c'est fait.
PS - Mon code je l'ai mis ou tu penses, je suis sur que tu penses dans la zone développeur à l'endroit ad hoc.
Re PS - J'aime pas les forumistes condescendants, je pense que tu auras compris.

Ta réponse est totalement inacceptable.
Les questions que je t'avais posées ont un but pourtant clair : celui de savoir ce que tu as fait et ce qui "ne marche pas".
Bonne chance.

EDIT : et la réponse à ma dernière remarque, à savoir :

Nous ne savons par ailleurs pas où (dans quoi) tu a mis chacun de ces deux codes, ni comment et à quel moment tu "lances" la sub fu

est très probablement la raison de ton "ça ne marche pas" !

[patricktoulon]

fait nous plaisir met ceci dans le module du thisworkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^{w}" ' on remet les touche a l'initial car normalement cette combinaison de touche sert a autre chose 
End Sub
Private Sub Workbook_Open()
Application.OnKey "^{w}", "fusion" 'on attribue l'action au touche
End Sub

et ta sub "fusion" dans un module standard
c'est bon la c'est clair

[unparia]

Bonjour patricktoulon
Je te trouve bien "arrangeant".
J'aurais personnellement laissé le demandeur faire l'effort de répondre aux questions pourtant essentielles qui lui étaient posées et qu'il trouvait "condescendantes" ...
Tu crois vraiment que tu l'as ainsi aidé à comprendre, à cerner, à avancer, etc ... ?

Prends s'il te plait au moins le temps de lui expliquer le "pourquoi" du "comment", si tu veux vraiment l'aider à comprendre ce qu'il fait.