Bonjour et bon dimanche
Je reviens sur le fil car j'ai un probl d'adaptation de cette macro à un usage personnel.
Ci_joint la macro modifiée qui me met
'l'indice n'appartient pas à la sélection'
Sub créer_bouton()
Dim oOLE As OLEObject
Dim X As Byte
Dim Code As String
Dim NextLine As String
Sheets('Répertoire').Select
Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:='Forms.CommandButton.1', _
Link:=False, DisplayAsIcon:=False, Left:=340, Top:=30, Width:=100, Height:=30)
'Left position bouton par rapport au bord gauche de la feuille
'Top position bouton par rapport au haut de la feuille
'Width largeur bouton
'Height hauteur bouton
X = ActiveSheet.OLEObjects.Count 'compter le nombre de boutons existants dans la feuille
'option nommer l'objet
oOLE.Name = 'CommandButton' & X
'texte sur le bouton
ActiveSheet.OLEObjects(X).Object.Caption = 'Le Forum XLD ' & X
Code = 'Sub CommandButton' & X & '_Click()' & vbCrLf
Code = Code & 'Msgbox ''Bonjour le forum XLD''' & vbCrLf
Code = Code & 'End Sub'
With thisWorkbooks.VBProject.VBComponents(ActiveSheet.Name).CodeModule
NextLine = .CountOfLines + 1
.InsertLines NextLine, Code
End With
End Sub
il est clair que j'ai fait une bêtise qui tourne surement autour de la sélection de ma feuille mais ??
Merci d'avance