Microsoft 365 Saisir une valeur dans un Inputbox et l'afficher dans une Shape

[pat66]

Bonjour le forum,

Est t'il possible d'afficher la valeur saisie à l'aide d'un inputbox dans une Shape créée avec la macro de type rectangle coins arrondis ?

merci pour votre aide

 

[fanch55]

Salut,
Si votre shape s'appelle MyShape :

Sub test()
    With ActiveSheet.Shapes("Myshape").OLEFormat.Object
        m = InputBox("entrez un texte à afficher dans le shape " & .Name, , .Text)
        If m <> "" Then .Text = m
    End With
End Sub

 

[pat66]

re,

merci c'est topissime ! , peut on faire en sorte que la valeur qui s'affiche dans la Shape soit suivie du mot "ans" par exemple ?

merci beaucoup

 

[fanch55]

Sub test()
    With ActiveSheet.Shapes("Myshape").OLEFormat.Object
        m = InputBox("entrez un texte à afficher dans le shape " & .Name, , .Text)
        If m <> "" Then .Text = m & " ans"
    End With
End Sub

 

[job75]

Bonjour,

Ou simplement :

Sub a()
ActiveSheet.DrawingObjects("MaForme").Text = Val(Application.InputBox("Age :")) & " ans"
End Sub

A+

 

[pat66]

re,

merci beaucoup messieurs,
pourriez vous m'indiquer comment ajouter la forme monétaire et € à la valeur qui s'affiche dans le Shape ?

merci

 

[job75]

Sub a()
ActiveSheet.DrawingObjects("MaForme").Text = Format(Val(Replace(Application.InputBox("Montant :"), ",", ".")), "#,##0.00 €")
End Sub

 

[pat66]

Re,

un grand merci pour votre aide si précieuse, les 2 solutions fonctionnent très bien, je vais opter pour la soluce de Job75 qui un peu plus courte tout simplement

bonne soirée

 

[fanch55]

Re,

un grand merci pour votre aide si précieuse, les 2 solutions fonctionnent très bien, je vais opter pour la soluce de Job75 qui un peu plus courte tout simplement

bonne soirée

Aucun souci, la formule retenue mettra toujours 0.00€ au minimum sans indiquer ce qui existait ... 😉

 

[pat66]

Aucun souci, la formule retenue mettra toujours 0.00€ au minimum sans indiquer ce qui existait ... 😉

Bonjour Fan55,
ha oui, je viens de tester et c'est vrai que ce détail a son intérêt, je regarde cela.....

Une précision, la valeur saisie dans l'inputbox est saisie dans S6, mais lorsque je clique sur annuler "faux" est saisi dans S6, Il y a t'il la possibilité de laisser la cellule S6 vide si je clique sur annuler ?

merci beaucoup

 

[job75]

Bonjour le forum,

Une précision, la valeur saisie dans l'inputbox est saisie dans S6, mais lorsque je clique sur annuler "faux" est saisi dans S6, Il y a t'il la possibilité de laisser la cellule S6 vide si je clique sur annuler ?

Remplacez Application.InputBox par InputBox

A+

 

[patricktoulon]

Bonjour à tous
juste en passant
si tu devais avoir besoins de personnaliser la shape
débloque ce que tu a besoins et supprime le reste

Sub test()
    Dim X
    With ActiveSheet.DrawingObjects("mashape")
         X = InputBox("entrez un Montant:")
        [s6] = X
        .Text = Format(Val(Replace(X, ",", ".")), "#,##0.00 €")

        'ARRANGEMENT DU TEXTE

        '.Font.Name = "calibri"                 'Police de caractère
        '.Font.Color = RGB(255, 0, 0)           'couleur du texte
        '.Font.Size = 11                        'taille du texte
        '.Font.Bold = True                      'texte en gras (ou pas)
        '.Font.Italic = True                    'texte en italic(ou pas)
        '.HorizontalAlignment = xlCenter        'alignement horizontal du texte     (xlLeft ou XlRight ou Xl Center)
        '.VerticalAlignment = xlCenter          'alignement vertical du texte       (XlTop ou XlCenter ou XlBottom)

        'ARRANGEMENT DE LA SHAPE

        '.Interior.Color = vbYellow                 'couleur du fond de la shape
        '.ShapeRange.Line.ForeColor.RGB = vbRed     'couleur du contour de la shape
        '.ShapeRange.Line.Weight = 10               'épaisseur du contour de la shape
        '.ShapeRange.Adjustments.Item(1) = 0.1      'angle des coins arrondi de la shape
    End With
End Sub