Discussion :

[Meline1]

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

[Theze]

Ah, je vois que c'est un postage tout azimut !

[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

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

[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é

[Meline1]

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 :

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
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

[Invité]

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

Code :

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

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!