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
Partager