Problème avec code création d'un dynamique

Version imprimable

04/02/2016, 20h53
eole-33

1 pièce(s) jointe(s)

Problème avec code création d'un dynamique

Bonsoir le forum

En pièce jointe je fournis un fichier qui contient un code me permettant de créer une feuille en y insérant un bouton
à qui je voudrais affecter une macro

La ligne 21 me génère un message d'erreur "Erreur d'exécution '9': l'indice n'appartient pas à la sélection"

je ne comprends pas le PB

Si une ou plusieurs âmes charitables pouvaient y regarder...

D'avance merci pour votre aide et pour votre disponibilité
04/02/2016, 20h55
joe.levrai

Bonjour,

si tu montrais le code, plutôt que de mettre le fichier en pièce jointe (contraire aux règles du forum), je suis persuadé que des âmes charitables tu en trouveras.

Oups pardon, je pensais qu'en mettant le fichier se serait plus pratique,

voici le code:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
Option Explicit
Public PS As Worksheet
Public MDI As Worksheet
Public Tablo()

Sub Onglet()
Dim Ligne As Long
Dim Indice As Integer
Dim Ws As Worksheet, Obj As OLEObject
Dim laMacro As String
Dim x As String

Set Ws = Sheets.Add
Ws.Name = "impression"

Set Obj = Ws.OLEObjects.Add("Forms.CommandButton.1")

   With Obj
.Left = 650 'Left position bouton par rapport au bord gauche de la feuille
.Top = 50 'Top position bouton par rapport au haut de la feuille
.Width = 190 'Width largeur bouton
.Height = 30 'Height hauteur bouton

.Object.Caption = "Choix des feuilles à imprimer"
End With

    With Application.VBE.ActiveVBProject.VBComponents("impression").CodeModule
        x = .CountOfLines
        .InsertLines x + 1, "Sub CommandButton1_Click()" & vbLf
        .InsertLines x + 2, "UserForm111.show" & vbLf
        .InsertLines x + 3, "End Sub"
    End With
    
    For Each Ws In Sheets(Array("impression"))
        With Ws
            .Columns(1).ColumnWidth = 1.57
            .Columns(2).ColumnWidth = 7.71
            .Columns(3).ColumnWidth = 13.71
            .Columns(4).ColumnWidth = 10.71
            .Columns(5).ColumnWidth = 10.71
            .Columns(6).ColumnWidth = 10.71
            .Columns(7).ColumnWidth = 1.71
            .Columns(8).ColumnWidth = 19.71
        End With
    Next
   
Set PS = Sheets("Photo situation PB")
Set MDI = Sheets("impression")
 
'Création de l'entête de la feuille d'impression
MDI.Activate
PS.Range("A1:I5").Copy Range("A1")

'Création de la liste des PB
  For Ligne = 7 To 750 Step 24
    If PS.Cells(Ligne, "C").Value <> "" Then
      Indice = Indice + 1
      ReDim Preserve Tablo(1 To 2, 1 To Indice)
      Tablo(1, Indice) = PS.Cells(Ligne, "C").Value
      Tablo(2, Indice) = Ligne

    End If
  Next Ligne
 
  PS.Select
  
'Lancement de la séléction
  UserForm1111.Show 0
End Sub

avec en rouge la ligne qui génère le "beug"

mille excuses et merci pour votre aide

04/02/2016, 21h28
joe.levrai

sur cette ligne :

Code:

With Application.VBE.ActiveVBProject.VBComponents("impression").CodeModule

Tu fais référence au nom de la feuille pour pointer sur son module
ce n'est pas le "Name" de la feuille qu'on doit utiliser (le nom qu'on voit dans Excel) mais c'est le "CodeName" de la feuille (le second nom de feuille, qu'on voit uniquement dans le VBE)

pour changer le CodeName de ta feuille, met ça à la ligne 16 de ton code et dis moi si c'est ok

Code:

Ws.Parent.VBProject.VBComponents(Ws.CodeName).Properties("_CodeName") = "impression"

attention à prévoir un gestionnaire d'erreur au cas où le CodeName existe déjà :P
04/02/2016, 21h38
eole-33

Ok super ça fonctionne, j'ai bien la macro qui se créée, mais du coups le lancement de mon "UserForm" à la fin du code déconne.

Il se lance et disparaît de suite, mais ça c'est un autre PB, donc je clôture ce post et je reviendrai si besoin

Merci beaucoup pour ton aide et ta disponibilité

Merci le forum
04/02/2016, 22h40
patricktoulon

re

bon j'ai regardé ton fichier
pourais tu me dire ce qui t a passer par la tete pour faire le sheet impression en dynamique
a quoi ca sert

tu clique sur un bouton qui créé un sheets sur le quel tu créé du code et le quel tu crée un bouton sur le quel tu clique pour enfin afficher un userform avec une listebox dans le quel il y a les noms de sheets :ptdr::ptdr:

rien que de résumé j'en ai mal a la tète

conception du classeur complètement a revoir

je parle même pas du code qui je suis sur même sil fonctionne aujourd'hui en boitant plombera demain
j'essai meme pas de corriger ca foutrait mon app en l'air

surtout que déjà dès que je l'ai ouvert il a planté
références manquante
une partie a été supprimer par excel lui même au démarrage pour pouvoir démarrer enfin bref

je pense que l'on va te voir longtemps sur ce sujet si tu continue avec ce fichier
mille excuse pour ma franchise un peu fulgurante :oops:
04/02/2016, 22h55
eole-33

Bonsoir Patrick

Si ce n'était que de moi il y a longtemps que j'aurai tous refais, mais non c'est indépandant de ma volonté,
à moins que l'on me trouve un code qui va s'adapter pour un impression en premier de certaines photos, et ensuite de certaine feuilles...

Non maintenant ça fonctionne comme j'en ai besoin, je ne viendrais plus vous embêter avec ce fichier, je vais installer le code dans un
classeur personnel de macro, afin de pouvoir imprimer au besoin ce que l'on me demandera.

Mon code fonctionne, mais merci de t'être pencher sur mon problème.

Je suis plus embêter avec l'autre sujet que j'ai poster hier (http://www.developpez.net/forums/d15...mation-boucle/) car là ça m'est beaucoup plus indispensable

Merci pour ta franchise