Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Demander a l'utilisateur d'entrer une variable (VBA)

S

Smirnoff

Guest
Bonjour,

voila je ne m'y connais pas trp en VBA et j'ai besoin de vos lumiere ...

voici mon code
*
Option Private Module

Sub CommentaireMonique()
Set cmt = ActiveCell.AddComment
With cmt.Shape
.Placement = xlFreeFloating
.TextFrame.AutoSize = True
.Width = 95.8
.Height = 127.3
.Fill.UserPicture _
""
With .OLEFormat.Object
With .Font
.Name = "Times New Roman": .Size = 14: .Color = vbRed
End With
End With
End With
cmt.Text Text:=""
SendKeys "%IM"
End Sub
*

voila
et ceci
.Fill.UserPicture _
""

j'aimerais savoir si il y aurais moyen de faire apparaitre une "popup" demandant l'url a l'utilisateur.
Je m'explique
Le code VBA si dessus permet de creer une fenetre "Commentaire" Vierge
le code .Fill.UserPicture _
"" permet d'entrer l'emplacement d'une image.
exemple
.Fill.UserPicture _
"c:\mes images\image1.jpg" ou encore "http://monlien.com/image1.jpg" et de la designer comem motif de remplissage

j'aimerais bien qu'au moment ou on arrive a ces lignes
.Fill.UserPicture _
""
que le code VBA s'arrete, demande a l'utilisateur (via popup ou autre) d'entrer le chemin d'acces de l'image, et de continuer son script
ce ki permetrai de cree un champ commentaire avec une image definie par l'utilisateur(mais restant dynamyque).
j'espere avori ete assez explicite

merci d'avance
 
F

Franck

Guest
Salut

J'ai eu le même pb et je l'ai résolu grace à la ligne suivante


dlgAnswer = Application.Dialogs(xlDialogInsertPicture).Show


J'espère que cela solutionnera ton pb

A+

Franck
 
M

myDearFriend

Guest
Bonjour smirnoff, Franck, le Forum.


En complément de la réponse de Franck, tu pourrais peut-être envisager aussi une solution comme ci-dessous :

Sub CommentaireMonique()
Dim Adr As Variant
Adr = Application.InputBox("Adresse URL :", "Saisissez l'adresse URL...", , , , , , 2)
If Adr <> False Then
If Adr <> "" Then
Set cmt = ActiveCell.AddComment
With cmt.Shape
.Placement = xlFreeFloating
.TextFrame.AutoSize = True
With .OLEFormat.Object
With .Font
.Name = "Times New Roman": .Size = 14: .Color = vbRed
End With
End With
.Fill.UserPicture Adr
End With
cmt.Text Text:=""
SendKeys "%IM"
End If
End If
End Sub


Nb : Ben là, tu m'as appris quelque chose smirnoff, je ne savais pas qu'on pouvait entrer une adresse URL pour un Gif dans un commentaire... c'était d'ailleurs la réponse à ta question Lien supprimé. Merci à toi pour ce tuyau...


Cordialement,
Didier_mDF

 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…