Discussion :

[neninio31]

Bonjour
j'ai créé des boutons avec le code suivant

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
Dim Obj As OLEObject
    Dim laMacro As String
    Dim i As Integer
    Dim n As Long
    n = Sheets("BD").Range("Z2").Value - 1
 
For i = 0 To n
                        Set Obj = ActiveSheet.OLEObjects.Add("Forms.CommandButton.1")
                        With Obj
                                .left = 800 'position horizontale
                                .top = 190 + i * 35 'position verticale
                                .width = 45 'largeur
                                .height = 25 'hauteur
                                .Object.Caption = "VOIR" & i
                                .Visible = True
                        End With
                        Next i
End Sub

je voudrais desormais affecter à ces boutons une macro en fonction de l'indice
i, je m'explique :

pour le bouton 1 : on va ecrire la valeur de la cellule A1 dans un textBox
pour le bouton 2 : on va ecrire la valeur de la cellule A2 dans un textBox
pour le bouton i : on va ecrire la valeur de la cellule Ai dans un textBox

etc.............




Est ce possible

Merci

[aalex_38]

Maintenant que tu as créer les boutons, il te reste à créer le code des boutons.

[neninio31]

Re
Voici mon 1er essai : bilan plantage visual basic (dommage !!)

ca c'est le code pour créer les boutons (jusqu'ici tt va bien)

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
Dim line As Long
line = Sheets("BD").Range("M2") + 1
Dim Obj As OLEObject
    Dim i As Integer
Dim laMacro As String
    Dim x As Integer
   Dim n As Long
n = Sheets("BD").Range("Z2").Value - 1
For i = 0 To n
                        Set Obj = ActiveSheet.OLEObjects.Add("Forms.CommandButton.1")
                        With Obj
                                .left = 800 'position horizontale
                                .top = 190 + i * 35 'position verticale
                                .width = 45 'largeur
                                .height = 25 'hauteur
                                .Object.Caption = "VOIR"
                                .name = "VOIR" & i
                                .Visible = True
                        End With
                        Next i

et oups ça plante maintenant je pense

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
 laMacro = "Private Sub CommandButton" & i & "_Click()" & vbCrLf
 
    laMacro = laMacro & "Dim line As Long" & vbCrLf
    laMacro = laMacro & "line = Sheets(""BD"").Range(""X2"")+ 3"
    laMacro = laMacro & "Dim line2 As Long" & vbCrLf
    laMacro = laMacro & "line2 = Sheets(""BD"").Range(""M2"") + 1"
    laMacro = laMacro & "Sheets(""BD"").Range(""N2:W2"").ClearContents" & vbCrLf
    laMacro = laMacro & "Sheets(""BD"").Range(""Q2"").Value = Sheets(""BD"").Range(""C""&line).Value" & vbCrLf
    laMacro = laMacro & "Sheets(""BD"").Range(""A1:K"" & line2).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets(""BD"").Range(""O1:Y2""), CopyToRange:=Sheets(""SELRESULT"").Range(""A3""), Unique:=False" & vbCrLf
    laMacro = laMacro & " UserForm2.Show "
 
 
    laMacro = laMacro & "End Sub"
 
    With ThisWorkbook.VBProject.VBComponents(ActiveSheet.name).CodeModule
       x = .CountOfLines + 1
        .InsertLines x, laMacro
   End With
End Sub

de l'aide svp !!!!!!

[aalex_38]

bonjour,

Voici mon 1er essai : bilan plantage visual basic (dommage !!)

Peux-tu me dire quel est ton plantage, a première vue ton code a l'air correct.

[neninio31]

voila tout est dans le titre

erreur d'execution '1004'

L'accès par programme au projet visual basic n'est pas fiable

[aalex_38]

Ok, j'avais un code a te donner mais je ne crois pas que tu en ai besoin,

Il s'agit juste d'un problème de paramètrage (d'ou l'interêt de préciser l'erreur dans les posts).

Sur excel va dans outil/macro/sécurité, onglet editeurs approuvés et coche
"Faire confiance au projet visual basic".

Tu dis

[neninio31]

Nouvelle erreur

erreur d'éxecution '9'



l'indice n'appartient pas a la sélection

[aalex_38]

Sur quelle ligne, pour aider mieux vaut le savoir !

Aller comme dirait un illustre forumeur, je sors ma boule de cristale, plus sérieusement ça doit être ici :

Code :

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

ThisWorkbook.VBProject.VBComponents(ActiveSheet.name).CodeModule

je suis tombé aussi sur cette erreur en utilisant ton code, je l'ai corrigé (sans trop creuser pour l'instant) en utilisant le codename de la feuille (le code name de la feuille c'est le nom de la feuille, celui qui n'est pas entre parenthèse dans l'explorateur de projet.

Dans mon exemple j'ai AjoutCode (feuil1) :

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
Sub Ajout_Code_Bouton1()
'------------------------------------------------------------------------
' Ajout d'un code pour bouton 1 sur la feuille 1 (codename = AjoutCode)
'------------------------------------------------------------------------
 
'Ajout de code du bouton
Code = Code & "Sub CommandButton1_Click()" & vbLf
Code = Code & "msgbox" & " " & """Coucou""" & vbLf
Code = Code & "End Sub" & vbLf
 
' Ecriture du code
Dim xl As Object
Set xl = ThisWorkbook.VBProject.VBComponents(Ajoutcode.CodeName).CodeModule
 
With xl
   DerLiCode = .CountOfLines
   .InsertLines DerLiCode + 1, Code
End With
 
End Sub

[aalex_38]

Après test tu peux remplacer

Code :

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

Set xl = ThisWorkbook.VBProject.VBComponents(Worksheets("feuil1").CodeName).CodeModule

par

Code :

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

Set xl = ThisWorkbook.VBProject.VBComponents(Worksheets("feuil1").CodeName).CodeModule

Sinon en reprenant ton code ceci devrait marcher aussi :

Code :

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

Set xl = ThisWorkbook.VBProject.VBComponents(activesheet.CodeName).CodeModule