Transferer les chiffres qui se trouvent sur une foto sur.....

[Guido]

Bonsoir le Forum

J'aimerais extraire le chiffre qui se trouvent sur une image dans une cellule,

Voir le fichier..

Merci d'avance

Guido

 

[Guido]

Bonsoir le Forum

J'aimerais extraire le chiffre qui se trouvent sur une image dans une cellule,

Voir le fichier..

Merci d'avance

Guido

Avec un exemple ..Merci

 

[job75]

Bonjour Guido,

A priori c'est impossible : aucune propriété de l'image ne contient le numéro.

A+

 

[job75]

Re,

Voyez quand même ceci :

Sub Numero()
Dim s As Shape
For Each s In ActiveSheet.Shapes
  s.TopLeftCell = Replace(s.AlternativeText, "trot_", "")
Next
End Sub

A+

 

[Guido]

Re

Bonjour Job75

Merci pour ta reponse.

a bientôt

Guido

 

[job75]

Re,

Une solution plus complète :

Sub Numero()
Dim s As Shape, sp
For Each s In ActiveSheet.Shapes
  sp = Split(s.AlternativeText, "_")
  If UBound(sp) > 0 Then s.TopLeftCell.Offset(1) = sp(1)
Next
End Sub

A+

 

[Guido]

Re

Job75

Je n'arrive pas a faire extraire les chiffre ???

Merci

Guido

 

[job75]

Re,

Niveau zéro... Effacez :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 18.08.2016 par Guy

A+

 

[Guido]

Re

Suis pas arriver a faire la modiffe

Merci Job75

Si tu peux me finir le fichier merci d'avance
a plus

Guido

 

[JHA]

Bonjour à tous,

Il faut juste suivre les bons conseils de Job75🙂 et affecter la macro "Numero" au bouton "extraire".


JHA

 

[Guido]

Bonjour le forum , JHA et Job75

JHA Merci pour ton intervention pour le fichier.

Cela fonctionne bien.Ok

2 em etape..

Je voulais suprimmer les fotos ...et garder garder seulement les chiffres.

Donc je fait F5 ref cell selectionner Objet et Ok ,delete les objets sont effacer, y compris le bouton de la macros.

Comment garder le bouton de la macro ???

Merci d'avance pour Vos aide

Amitiées

Guido

 

[Guido]

Re

J'ai pensé... qu'avec une macros evenementielle ca pourrais faire l'affaire .mais la je ni connait rien de rien non plus

Merci d'avance

Guido

 

[job75]

Bonjour Guido, JHA,

Qu'est-ce qui vous arrive Guido, vous ne savez plus rien faire ?

Sub Numero()
Dim s As Shape, sp
For Each s In ActiveSheet.Shapes
  sp = Split(s.AlternativeText, "_")
  If UBound(sp) > 0 Then s.TopLeftCell.Offset(1) = sp(1)
  If s.Name Like "Picture*" Then s.Delete
Next
End Sub

A+

 

[Guido]

Re

Job75

Tu sais...je sais faire des petites macros toute toute simple.

Modifié ou remplacer une partie d'ecriture d'une macros

En plus c'est Toi meme qui ma fait le 90 pour cent des macros sur les fichiers.

Merci encore

A bientôt pour la suite...

Amitiées

Guido

 

[job75]

Re,

Si l'on ne veut pas des mots "vide" il est facile de les supprimer :

Sub Numero()
Dim s As Shape, sp
For Each s In ActiveSheet.Shapes
  sp = Split(s.AlternativeText, "_")
  If UBound(sp) > 0 Then s.TopLeftCell.Offset(1) = Replace(sp(1), "vide", "")
  If s.Name Like "Picture*" Then s.Delete
Next
End Sub

A+