Discussion :

[Sérine19]

Bonjour le forum,

Après mainte et mainte recherches, essais et macros dans tout genre je me tourne vers vous parce que je ne trouve vraiment pas de solution.

J'ai une macro qui est reliée au bouton d'un userform et qui est sensé créer un bouton dans la cellule active lui donné le nom de la combobox du même userform et écrire une macro dans le Module "Module_Supp" qui permettra de se rendre sur le nom de la feuille choisie par le combobox. Ensuite cette macro est affecter à ce bouton puis fin de la macro.
La combobox s'appelle : List_Der_Ong

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
Private Sub Bouton_Crear_Click()
 
Dim Obj As Object
Dim Code As String
ActiveCell.Select
 
Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=ActiveCell.Left, Top:=ActiveCell.Top, Width:=ActiveCell.Width, _
Height:=ActiveCell.Height)
Obj.Name = List_Der_Ong.Value
 
 
 
 
 
ActiveSheet.OLEObjects(1).Object.Caption = List_Der_Ong.Value 'Le texte de la macro
Code = "Sub " & Liste_Der_Ong.Value & "_Click()" & vbCrLf
Code = "Sheets(" & Liste_Der_Ong.Value & ").Select" & vbCrLf
Code = "End Sub"
'Ajoute la macro en fin de module feuille
With ActiveWorkbook.VBProject.VBComponents("Module_Supp").CodeModule
.insertlines .CountOfLines + 1, Code
Selection.OnAction = "Liste_Der_Ong.Value"
End With
End Sub

Bien évidemment comme vous vous en doutez elle ne marche pas complétement.
Elle créer bien le bouton au bon endroit avec le bon nom mais impossible de créer la macro et de l'y lié. Elle m'affiche un message : Erreur : 424, Objet requis!
Je vous joins le fichier dans lequel je l'utilise si ça peut vous servir : d'un clic droit dans la cellule de la colonne "supplementado" de la feuille "Produccion" l'userform s'ouvre et la macro précédente qui ne fonctionne pas se trouve dans le code de cet userform qui s'appelle "Choix_Onglets".
Planificateur de production - Copie.xlsm

J'ai tester tout ce que j'ai trouver en vain, est-ce que qqn aurait une idée??

Un grand merci d'avance

[Pierre Fauconnier]

Salut.

Si ton combobox est un activex, ce serait vachement plus simple de sélectionner directement la feuille en fonction du choix du combobox, en gérant par exemple son évènement Click.
Si c'est un combobox de formulaire, c'est la macro auquel tu le lies qui fera le travail.

Ecrire du code qui écrit du code, c'est très rarement nécessaire et il y a toujours moyen de faire plus simple

[Sérine19]

Bonjour, merci de ta réponse

Dans ce cas en l'occurence ça ne répondrait pas à mon problème car je ne veux pas que cela sélectionne mon onglet quand je choisi un nom de feuille dans la combobox mais que le userform me créer un bouton pour chaque ligne de mon tableau qui emmène à une page différente chacun en fonction de ce qui aura été choisis préalablement dans la combobox.

[Pierre Fauconnier]

Ne te verrouille pas sur la solution à laquelle tu as pensé.

J'ai bien compris ta demande, mais je répète que créer une macro par macro n'est pas une bonne option. Placer un bouton sur chaque ligne du tableau n'est pas une bonne solution non plus.

Que veux-tu mettre en place? Peux-tu décrire ce qui doit se passer lorsque l'utilisateur cliquera sur le bouton dans la cellule?

[Sérine19]

Bonjour Pierre,
je ne suis pas vérouillée sur la solution,

Disons juste que je travailles dessus depuis un bout de temps j'ai déjà réussi à créer tous ce qui permettra de faire mes boutons dans mes cellules il me manque juste cette macro qui m'écrit les macros et les assimile à des boutons, donc je ne voyais pas d'autre solution à mon problème. Mais je suis tout ouie

J'aimerai que l'utilisateur 1 après avoir choisi dans la combobox de l'userform un nom de feuille et cliquer sur le bouton "Crear" de l'userform, qu'il y ai un bouton ou un lien ou autre avec le nom de la feuille visible qui se créé dans la cellule active (ou avait cliquer droit le premier utilisateur) et qu'il permette en un clic sur la cellule de se rendre sur l'onglet du classeur correspondant pour un utilisateur 2.
Cela doit être reproductible dans chaque cellule de la colonne supplementado de l'onglet produccion, et chacun doit mener a des pages différentes.

J'espère que j'ai réussie a être claire
Merci de ton aide et de ta réponse

[Pierre Fauconnier]

Ok.

Plutôt qu'un bouton avec macro, je te propose alors un lien hypertexte à placer dans la cellule. Ca me semble être la solution la plus simple.

Voici une fonction qui réalise cela:

Code :

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

1
2
3
Function AddHyperlink(Source As Range, Target As String, Optional Display As String)
  Source.Parent.Hyperlinks.Add anchor:=Source, Address:="", SubAddress:=Target, TextToDisplay:=IIf(Display = "", Target, Display)
End Function

Lors de l'action dans le userform, tu invoques cette fonction en lui passant les arguments suivants:

• Source: Cellule qui recevra le lien hypertexte (a priori si j'ai bien compris, ActiveCell devrait faire l'affaire);
• Target: Cible du lien, par exemple Feuil2!a3 ou Feuil5!C19;
• Display: Texte du lien hypertexte à afficher. Si tu ne le renseignes pas, le lien affichera la cible.

Voici un exemple de l'utilisation de cette fonction:

Code :

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

addhyperlink activecell,"Feuil3!a5","Cible du lien"

[Sérine19]

C'est génial!!! ça marche parfaitement

Un gros merci Pierre pour avoir résolu mon problème, ta solution est mieux que tout ce que j'avais imaginé!!

Bonne journée, je mets résolu et encore merci