Transformer image en chiffre

Bonjour,

Je suis à la recherche d'un conseil, je souhaite transformer une image en chiffre. L'image est une barre horizontale dont la longueur fait varier le résultat.

Par exemple si la barre (image) fait 2 cm la valeur = 2, si la barre mesure 1 cm la valeur = 1

Et je voudrais savoir si cela était possible d'exploiter sous Excel 2007.

Je vous remercie pour votre aide précieuse car mes yeux ne peuvent plus compter !

bonsoir

ces images, où sont-elles au départ ? quel format ? comment le PC connaît-il la "longueur" étant donné qu'en modifiant les propriétés d'affichage le trait varie ?

Merci pour votre réponse,

Elles sont à la base en PNG, c'est le résultat d'une enquete, je fais un simple copié collé de la liste sur Excel et elle se cale en debut de la colonne B, je fais un schéma:

A | B | C | D

1 [-----------Ma barre 1 en image---------------]

2 [--------Barre 2--------]

3 [--------------Barre 3---------]

Et je voudrais en mettant une échelle savoir combien equivaut la barre 1, 2, 3

Je vous remercie[/list]

Salut le forum

Sans ton fichier, difficile de t'aider.

Un exemple avec des barres de progression sur les cellules :

Mytå

Ah merci, j'étais en pleine galere pour essayer de vous joindre le fichier !

Re le forum

Aurelien, ton fichier est inutile, il ne contient pas le code des macros.

Essaye en adaptant mon fichier à ton application.

Mytå

Ah je te remercie quand même, tant pis je jette l'éponge !

Re le forum

Aurelien, tu peux lancer cette macro sur ton fichier

Sub Longeur()
    Dim sh As Shape

For Each sh In ActiveSheet.Shapes
  With sh
    Cells(.TopLeftCell.Row, 5) = .Width
  End With
Next sh

End Sub

Tu auras alors la longueur de la barre dans la colonne E

Mytå

AHhh c'est super je te remercie c'est nickel, je n'ai plus que un hic... il y a les chiffres écrit en image qui empeche la macro de bien fonctionner... As tu une solution ?

Re le forum

La macro adaptée pour les chiffres

Sub Longeur()
    Dim sh As Shape

For Each sh In ActiveSheet.Shapes
  With sh
  If .AlternativeText <> "enchères" Then
    Cells(.TopLeftCell.Row, 5) = .Width
  End If
  End With
Next sh

End Sub

Mytå

TU ES MON DIEU !!! Tu ne donnes pas de cours par hasard ?

Mille merci

Re le forum

Désolé, je ne donne pas de formation.

Si ton problème est réglé, n'oublie pas la petite formalité,

en bas à gauche et en étant connecté

Mytå