Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Création raccourci

Création raccourci

9 réponses
Avatar
Gui.
Bonjour à tous
Je me permets de poser à nouveau ma question, concernant la création d'un
raccourci.
Merci à Isabelle pour sa réponse, mais j'ai un message d'erreur, et je ne
sais pas pkoi.
------------------------
Bonjour à tous
Comment faire pour creer un raccourci :
En chacun des mes userofrms possede un nom bien spécifique, qui apparait.
pour des raisons de rapidité, je voudrai que l'utilisateur puisse ouvrir
directement le userofm qu'il utilise le plus.
Ainsi le nom de ce dernier ssrait mis dans une cellule 'excel (ici
"TABLE!O13") suivant son choix. Et ce bouton pourait ouvrir n'imprte quel
feuille, des que la cellule possede un nom.
---------
Private Sub cbRACCOURCI_Click()
fic$ = Sheets("TABLE").Range("O13").Value
Load.fic$
fic$.Show
Unload NomDuPremierUserform
End Sub

isabelle
---------
Merci Bcp
Mais j'ai un message d'erreur : "Argument non facultatif"
Pour info Nom du premierUserForm : ufAccueil
Nom défini en O13 pour exemple, mais qui peux changer : ufETIQUETTES
Pkoi il y a ce message ??
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jp Pradier
Bonjour gui

Il ne faut pas de point entre load et fic$. mettre un espace a la place.

j-p
Avatar
Gui.
Bonjour et merci de ta réponse.
Alors maintenant j'ai un autre message d'erreur :
"Incompatibilité de type"

voici le code
Private Sub cbRACCOURCI_Click()
fic$ = Range("TABLE!O13").Value
Load fic$
fic$.Show
Unload ufAccueil
End Sub

"Jp Pradier" a écrit dans le message news:
#
Bonjour gui

Il ne faut pas de point entre load et fic$. mettre un espace a la place.

j-p




Avatar
Jp Pradier
Re Gui.
Trouvé sur le site de Frédéric Sigonneau :
( http://perso.wanadoo.fr/frederic.sigonneau/code/Objets/ChoixUserform.txt )
Remplace
Load fic$
fic$.Show

par
VBA.UserForms.Add(fic$).Show

j-p
Avatar
michdenis
Bonjour Gui,

Essaie ceci :

Sub AFFICHERFORMULAIRE()

Dim C As Object
fic$ = Range("TABLE!O13").Value
Set C = ThisWorkbook.VBProject.VBComponents(fic$)
C.Show
Unload ufAccueil
Set C = Nothing
End Sub


Salutations!



"Gui." a écrit dans le message de news:
Bonjour et merci de ta réponse.
Alors maintenant j'ai un autre message d'erreur :
"Incompatibilité de type"

voici le code
Private Sub cbRACCOURCI_Click()
fic$ = Range("TABLE!O13").Value
Load fic$
fic$.Show
Unload ufAccueil
End Sub

"Jp Pradier" a écrit dans le message news:
#
Bonjour gui

Il ne faut pas de point entre load et fic$. mettre un espace a la place.

j-p




Avatar
Clément Marcotte
pkoi.


Moi je ne sès pas pourrecoua les jensses sont trop paraisceus pour
équerire leur langue comme du monde. Il n'y a pas un ceule
diquecionnère qui aqueçaipte une aberaiviassion quomme saille-là.

Avatar
Frédéric Sigonneau
Bonjour,

Ce bout de code devrait t'aider à obtenir le résultat souhaité :

Sub test()
Dim usf As Object
Dim NomUsf$

NomUsf = Sheets("TABLE").Range("O13").Value
Set usf = ThisWorkbook.VBProject.VBComponents(NomUsf)
VBA.UserForms.Add(usf.Name).Show

End Sub

Le chemin emprunté pour obtenir le lancement d'un userform à partir d'une
variable qui contient son nom est assez sinueux, mais il ne semble pas y avoir
plus direct...

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour à tous
Je me permets de poser à nouveau ma question, concernant la création d'un
raccourci.
Merci à Isabelle pour sa réponse, mais j'ai un message d'erreur, et je ne
sais pas pkoi.
------------------------
Bonjour à tous
Comment faire pour creer un raccourci :
En chacun des mes userofrms possede un nom bien spécifique, qui apparait.
pour des raisons de rapidité, je voudrai que l'utilisateur puisse ouvrir
directement le userofm qu'il utilise le plus.
Ainsi le nom de ce dernier ssrait mis dans une cellule 'excel (ici
"TABLE!O13") suivant son choix. Et ce bouton pourait ouvrir n'imprte quel
feuille, des que la cellule possede un nom.
---------
Private Sub cbRACCOURCI_Click()
fic$ = Sheets("TABLE").Range("O13").Value
Load.fic$
fic$.Show
Unload NomDuPremierUserform
End Sub

isabelle
---------
Merci Bcp
Mais j'ai un message d'erreur : "Argument non facultatif"
Pour info Nom du premierUserForm : ufAccueil
Nom défini en O13 pour exemple, mais qui peux changer : ufETIQUETTES
Pkoi il y a ce message ??


Avatar
Gui.
YAHHOOOO ça marche !!! trop trop bien
un tres grand merci pour ton aide
"Jp Pradier" a écrit dans le message news:

Re Gui.
Trouvé sur le site de Frédéric Sigonneau :
(
http://perso.wanadoo.fr/frederic.sigonneau/code/Objets/ChoixUserform.txt )

Remplace
Load fic$
fic$.Show

par
VBA.UserForms.Add(fic$).Show

j-p




Avatar
Match
Clément, je doit de corriger :
il ne faut pas écrire
"Il n'y a pas un ceule"
mais
"Il niais pas une... ;-)) (et ce n'est pas le verbe nier)

Charles


"Clément Marcotte" wrote in message
news:%
pkoi.


Moi je ne sès pas pourrecoua les jensses sont trop paraisceus pour
équerire leur langue comme du monde. Il n'y a pas un ceule
diquecionnère qui aqueçaipte une aberaiviassion quomme saille-là.




Avatar
Gui.
lol

"Match" a écrit dans le message news:
#d8jpl#
Clément, je doit de corriger :
il ne faut pas écrire
"Il n'y a pas un ceule"
mais
"Il niais pas une... ;-)) (et ce n'est pas le verbe nier)

Charles


"Clément Marcotte" wrote in message
news:%
pkoi.


Moi je ne sès pas pourrecoua les jensses sont trop paraisceus pour
équerire leur langue comme du monde. Il n'y a pas un ceule
diquecionnère qui aqueçaipte une aberaiviassion quomme saille-là.