Dans mon fichier en cliquant sur un bouton j'ouvre un nouveau classeur avec lequel je veux travailler.
C'est à dire que je voudrais pouvoir créer dans ce nouveau classeur un bouton avec un lien vers un formulaire.
Dans mon fichier en cliquant sur un bouton j'ouvre un nouveau classeur avec lequel je veux travailler.
C'est à dire que je voudrais pouvoir créer dans ce nouveau classeur un bouton avec un lien vers un formulaire.
A prirori, derriere le bouton il y a du code ?
Il suffit de rajouter une ligne de code qui ajoute le bouton du type :
ActiveSheet.Buttons.Add(200, 90, 90, 30).OnAction = "Formulaire"
Où Formulaire un macro du type :
Sub Formulaire()
UserForm1.Show
End Sub
Ou bien creer une barre d'outils qui sera toujours diponible.
Re
Maintenant quand je crée mon bouton avec mon texte je voudrais que le bouton s'adapte automatiquement à la taille de l'intitulé puis la cellule à la taille du bouton.
Merci
Autant pour moi, ce n'était pas le bon fichier.
Ci joint le bon fichier et ci-dessous le code :
Sub Test()
MonTexte = "toto toto toto toto toto"
[G1] = MonTexte
Columns("G:G").EntireColumn.AutoFit
With ActiveSheet.Buttons.Add([G1].Left, [G1].Top, 100, 100)
.Characters.Text = MonTexte
.AutoSize = True
[G1].ColumnWidth = .Width / ([G1].Width / [G1].ColumnWidth)
[G1].RowHeight = .Height
End With
[G1].ClearContents
End Sub
J'ai testé ton code, ça ne fonctionne pas quand le texte est plus long ...
D'ou l'astuce que j'ai utilisé, qui consiste à faire un AutoFit sur la colonne en fonction du texte, faire un autofit sur le bouton puis ajuster la taille de la colonne en faisant un ratio entre la largeur en Pixel et la largeur en Caracteres.