Discussion :

[Carlos31]

Bonjour,
j'ai 2 boutons "PointA" et "PointB" qui sont incrémentés par :
ActivePresentation.Slides(1).Shapes("PointsA").TextFrame.TextRange.Text =ActivePresentation.Slides(1).Shapes("PointsA").TextFrame.TextRange.Text + 1
ActivePresentation.Slides(1).Shapes("PointsB").TextFrame.TextRange.Text =ActivePresentation.Slides(1).Shapes("PointsB").TextFrame.TextRange.Text + 1
Le code au dessus fonctionne très bien.

Ma probleme est ;
Si je veux faire la somme des 2 boutons ( caption de "PointsA" + caption de "PointsB" alors ca concatene les 2 nombres sans les additionner.
Ce qui est un peu normal car c'est du text
Dim Score as integer
Score = ActivePresentation.Slides(1).Shapes("PointA").TextFrame.TextRange.Text + ActivePresentation.Slides(1).Shapes("PointB").TextFrame.TextRange.Text

Ma question est :
Comment transformer cette valeur text en nombre ?
Cordialement
Carlos

[Carlos31]

Re
Avec une pièce jointe c'est plus simple ....
Merci

[pgz]

Bonjour.

Si tes nombres sont des entiers, tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim score as integer
'...
score = CInt(ActivePresentation.Slides(1).Shapes("PointsA").TextFrame.TextRange.Text) + CInt(ActivePresentation.Slides(1).Shapes("PointsB").TextFrame.TextRange.Text)
'...

Si tes valeurs ne sont pas des entiers, tu adaptes.

Cordialement,

PGZ

[Carlos31]

Super génial....
Merci beaucoup PGZ