Bonjour @+Thierry et le forum
Encore merci pour ton aide Thierry
J’ai une question à te poser. Sur tes démos tu places des boutons (commandbutton) directement sur les feuilles excel. J’ai tenté de regarder le code (pour faire quelque chose de similaire) mais je n’ai pas trouvé (ou pas compris).
En fait au départ je voulais créer un raccourci du userform (qui lance excel ou non)... Comme je n’ai pas trouvé, j’ai fait un raccourci de ma feuille excel (avec une macro qui te demande ou tu veux le placer etc.) et sur ma feuille excel je place un bouton lien vers mon userform.
Pour le moment j’utilise ce code que j’ai mis dans ThisWorkbook :
Private Sub Workbook_Open()
Dim objWorksheet As Worksheet
Set objWorksheet = ThisWorkbook.Worksheets("FeuilleSource")
objWorksheet.Shapes.AddOLEObject "Forms.CommandButton.1", , , , , , , 320, 50, 150, 25
End Sub
Mais je ne sais pas comment entrer du code sur ce bouton... Je sais juste le redimensionner et le cadrer.
... en fait j’aimerais y mettre un peu de couleur (comme tu sais si bien le faire) et un lien vers le userform.
Pour la couleur j’ai testé ça :
With objWorksheet.Shapes.AddOLEObject("Forms.CommandButton.1", , , , , , , 350, 50, 150, 25)
.Name = "Accéder au programme"
.Line.DashStyle = msoLineDashDot
.Fill.ForeColor.RGB = RGB(128, 0, 0)
.Fill.BackColor.RGB = RGB(170, 170, 170)
.Fill.TwoColorGradient msoGradientHorizontal, 1
End With
Mais là non plus ce n’est pas le résultat esconté... J’ai qu’un contour de « taché »... Je dois mal utiliser les propriétés...
Mais, mon plus gros souci reste de mettre du code dans ce bouton...
Merci si tu peux me répondre (toi ou un autre
)