Résultats de la recherche

Private Sub CommandButton1_Click() ThisWorkbook.FollowHyperlink "1%20-%20Copie.xlsm#Feuil1!A1" End Sub

Sub Macro7() ' ' Macro7 Macro ' ' ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "Créer%20exsompel.xlsm", TextToDisplay:="Créer exsompel.xlsm" Range("C8").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True End Sub

salut :) Comment je peux créer bouton renvoyant vers lien hypertexte

bien fait mais pour napourt quelle cellules active

Ce lien n'existe plus Ce lien n'existe plus salut DoubleZero oui je voudrais en vba

comment je peux faire pour plusieurs colonnes

n'affiche pas exactement la continu de cellule

:)merci

merci Ce lien n'existe plus Ce lien n'existe plus

Sub Cellule1Shape() Dim sh As Shape With ActiveCell Set sh = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, .Left, .Top, .Width, .Height) sh.TextFrame2.TextRange = .Value sh.TextFrame2.VerticalAnchor = msoAnchorMiddle sh.TextFrame2.HorizontalAnchor = msoAnchorCenter...

pour agrandir le texte

salut Ce lien n'existe plus

comment changer la forme de c'est zone de texte

Sub Cellule2Shape() Dim sh As Shape With ActiveCell h = Selection.Height l = Selection.Width gauche = Selection.Left haut = Selection.Top Set sh = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, gauche, haut, l, h) sh.TextFrame2.TextRange = .Value...

:) merci beaucoup Ce lien n'existe plus

Sub zone_texte() h = Selection.Height l = Selection.Width gauche = Selection.Left haut = Selection.Top ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, gauche, haut, l, h).Select End Sub