Discussion :

[jpvba]

Bonjour a vous cher amis du forum,


Afin de contourner un problème d'un fichier de partage de procédure en lecture seul, nous avons créé un bouton personnalisé dans un ruban.


Donc le fichier dois pointé sur le fichier afin de pouvoir avoir accès au procédure.


Afin de facilité la tache des utilisateurs, nous avons penser a inscrire directement le nom de la function et ouvrir la fenêtre "insérer la fonction". Mon collègue a eu l'idée de créer un raccourcis clavier pour la dite function mais pour une raison que j'ignore, le pavé numérique s'éteints lors de l'exécution de celle-ci.


Afin de contourner ce problème, j'ai eu l'idée de ne pas utiliser un raccourcis mais le code permettant d'ouvrir le "wizard".


LE hic que j'ai présentement, c'Est que la fenetre s'ouvre correctement mais ne tiens pas compte du nom de la function saisie. Si je pointe a nouveau sur la cellule auquel j'ai une fonction de saisie le tous fonctionne.

J'ai faite une tentative avec des offset afin que le code pointe sur un autre cellule et reviens a la cellule de départ mais en vains.


Avez-vous une solution afin qu' Excel accepte mon texte (le nom de la function) avant d'ouvrir le "wizzard"




Voici mon code

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
Sub Bouton_et_Fonction_RMULTUNIQUE()
 
 
Application.ScreenUpdating = False
 
 
 
    Cells.VerticalAlignment = xlTop
    ActiveCell.EntireColumn.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell = "=rmultunique()"
 
    ActiveCell.WrapText = True
 
    Application.Dialogs(xlDialogFunctionWizard).Show
 
 
 
 
End Sub

un gros merci pour votre aide et temps consacré a réglé mon problème !!!

[eriiic]

Bonjour,

Code :

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

ActiveCell.Formula  = "=rmultunique()"

eric

[jpvba]

Un gros merci eriiic !!!


JE croyais que ca avais marché mais j'ai le meme résultat que mon offset ... le pop-up ouvrir mais pas dans la fonction ... je presume que ca fais cela étant donné que la fonction n'est pas encore "accessible" étant donné que le module arrive seulement lorsque le tout est exécuté




J'ai essayé de faire venir le complément avant mais j'ai le meme résultat.

[eriiic]

le pop-up ouvrir mais pas dans la fonction ...

en français ça veut dire quoi ça ?

Et de quel complément parles-tu ?
Ta fonction n'est pas dans le classeur ?
eric

[jpvba]

Re-Bonjour eriiic,





Ce que je veux dire comme pop-up c'est ceci




au lieu d'ouvrir cela






Non, la fonction n'est pas dans un module du classeur mais dans un fichier .xlam, en lecture seul et partagé afin que tous les utilisateurs puisse l'utiliser sans pouvoir ecrire dessus

[eriiic]

Bonjour,

Ah ça je ne saurais te dire.
Peut-être dû à la version d'excel ou au fait qu'elle soit dans un .xlam.
Teste avec une fonction bidon dans un module du classeur pour déterminer une des 2 causes.
Sur 2010, sans .xlam, ça s'ouvre bien sur la page des paramètres.

mais pour une raison que j'ignore, le pavé numérique s'éteints lors de l'exécution de celle-ci.

Sans doute parce que tu utilisais Sendkeys().
Tu peux peut-être retourner à cette version, regarde ça :
https://www.developpez.net/forums/d1...e/#post9795841
ou
https://www.developpez.net/forums/d1...e/#post9800191

eric