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