inserer l'objet userform dans un autre classeur via une macro

Version imprimable

05/10/2016, 14h31
Meline1

inserer l'objet userform dans un autre classeur via une macro

Bonjour,

je suis en train d'améliorer une macro existante :

Ma macro est dans un classeur dénommé macro mise en forme et agit sur un notre classeur en le mettant en forme. Jusqu'à là j'avais pas trop de soucis. Lors de cette mise en forme l'une des colonnes du fichier mis en page doit permettre via un double clic de lancer un userform. J'ai réussi via de nombreuses heures de recherche sur internet à créer le code permettant d'insérer dans ma page la commande double clic mais comment je peux mettre mon userform.
Je précise que je ne suis absolument pas informaticienne et aussi pas très douée alors si vous avez la solution je vous remercie d'avance pour vos explications simples.

Bien cordialement
05/10/2016, 16h01
Theze

Ah, je vois que c'est un postage tout azimut !
05/10/2016, 17h56
eric4459

Bonjour These,
Comme je ne fréquente pas les autres forums de façon régulière je n'avais pas remarqué, bien vu.
Meline
:scarymov:
Sois patiente et attends des réponses à tes posts, si l'un de nous s’aperçoit que tu es sur un mauvais forum il t'aiguillera sur le bon. ;) et puis avant toute chose il y a ceci
http://club.developpez.com/regles/
Eric
05/10/2016, 18h07
unparia

Bonjour
Le fait qu'un demandeur d'aide sollicite cette aide sur plusieurs forums ne me dérange personnellement pas. A condition, toutefois, qu'un demandeur ne pratique pas le jeu de "ping-pong" entre deux ou plusieurs forums. Ce n'est apparemment pas le cas à ce niveau de la discussion.
Ce qui me dérange, par contre, c'est :
- le caractère assez flou de l'exposé des tenants et aboutissants
- l'absence de code au moins tenté

erreur de forum

bonjour,

je ne post pas sur plusieurs forums mais uniquement sur ce site. C'est le modérateur du site qui a gentiment déplacé mon post pour que j'ai plus de réponses. Je n'utilise pas assez ce type de forums pour pouvoir m'amuser à ce genre de pratique.

Néanmoins pour ceux qui veulent bien me répondre voici le morceau du code qui me pose problème :

Code:

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
27
28
29
30
31
32
33
sub double_clic_s()
 Dim X As Integer
 With ActiveWorkbook.VBProject.VBComponents("Feuil3").CodeModule
     X = .CountOfLines
     .InsertLines X + 1, "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"
     .InsertLines X + 2, "If Not Intersect(Target,Range(""AN2:AN"" & Range(""AN65536"").End(xlUp).Row)) Is Nothing Then"
     .InsertLines X + 3, "UserForm1.Show"
     .InsertLines X + 4, "End If"
     .InsertLines X + 5, "Cancel = True"
     .InsertLines X + 6, "End Sub"
 
 
    .InsertLines X + 7, "Private Sub UserForm_Initialize()"
  .InsertLines X + 8, "ListBox1.MultiSelect = fmMultiSelectMulti"
  .InsertLines X + 9, "ListBox1.List = Sheets(""liste des decisions corisq"").Range(""A2:A28"").Value"
 .InsertLines X + 10, " a = Split(ActiveCell, "","")"
  .InsertLines X + 11, "If UBound(a) > 0 Then"
   .InsertLines X + 12, "For i = 0 To Me.ListBox1.ListCount - 1"
      .InsertLines X + 13, "If Not IsError(Application.Match(Me.ListBox1.List(i), a, 0)) Then Me.ListBox1.Selected(i) = True"
    .InsertLines X + 14, "Next i"
  .InsertLines X + 15, "End If"
.InsertLines X + 16, "End Sub"
.InsertLines X + 17, "Private Sub CommandButton1_Click()"
  .InsertLines X + 18, "For i = 0 To Me.ListBox1.ListCount - 1"
   .InsertLines X + 19, "If Me.ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.List(i) & "", """
  .InsertLines X + 20, "Next i"
  .InsertLines X + 21, "ActiveCell = Left(temp, Len(temp) - 1)"
 .InsertLines X + 22, "Unload Me"
.InsertLines X + 23, "End Sub"
 
 
 End With
 End Sub

pourquoi pas dans ThisWorkbook? et ça fontion pour tout le classeur même tes nouvel onglet!

Code:

1
2
3
4
5
6
7
8
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Parent.Name <> "Feuil1" Then
    If Not Intersect(Target, Range("AN2:AN" & Range("AN65536").End(xlUp).Row)) Is Nothing Then
         UserForm1.Show
    End If
End If
    Cancel = True
End Sub

accessoirement tu interdis le feuilles que tu ne veux pas!

06/10/2016, 18h16
Meline1

J'ai essayé cela ne fonctionne pas

Merci pour ta réponse mais cela ne fonctionne pas car l Userform que je veux insérer n'est pas dans mon classeur "macro mise en forme" mais dans le classeur avec les données et qui n'est jamais le même. Pour être clair tous les mois via un logiciel de ma société j'extrais des données qui sont organisées dans une feuille d'un classeur excel. Avant je mettais en forme ce tableur à la main puis j'ai créé une macro et aujourd'hui je tente de l'améliorer en créant de nvelles fonctionnalités . J'espère que c'est plus clair merci encore à tous pour votre aide.
07/10/2016, 08h22
Theze
Bonjour,

Citation:

je ne post pas sur plusieurs forums mais uniquement sur ce site. C'est le modérateur du site qui a gentiment déplacé mon post pour que j'ai plus de réponses. Je n'utilise pas assez ce type de forums pour pouvoir m'amuser à ce genre de pratique.

Alors, j'ai commis une erreur et je te pris de bien vouloir m'en excuser.

Maintenant, dans le code montré tu inscrit dans le module de la feuille "Feuil3" une procédure évènementielle propre à un formulaire ("Private Sub UserForm_Initialize()") même si le formulaire existe dans le classeur, cette procédure ne sera jamais exécutée. Elle doit être inscrite dans le module du formulaire visé.

Si tu veux "insérer" le module d'un formulaire dans le classeur il faudrait voir du coté de Export/Import
Code:

1 2 3 Workbooks("NomDuClasseur.xls").VBProject.VBComponents("LeNomDuModule").Export "LeCheminComplet" Workbooks("NomDeLautreClasseur.xls").VBProject.VBComponents.Import "LeCheminComplet"

Sniff. ça ne marche pas

Bonjour,
Code:

1 2 3 4 Sub USERFORM_PROPOSITIONS() Workbooks("MACRO XXXX.xlsm").VBProject.VBComponents("DOUBLE_CLIC").Export Workbooks("DP_NACRE_Synthèse.xls").VBProject.VBComponents.Import End Sub
j'ai un message : "erreur de compilation : argument non facultatif":(

07/10/2016, 15h19
Invité

Code:

Workbooks("MACRO XXXX.xlsm").VBProject.VBComponents("DOUBLE_CLIC").Export "c:\FichierExport.vb"