Bonsoir le Forum
J'aimerais extraire le chiffre qui se trouvent sur une image dans une cellule,
Voir le fichier..
Merci d'avance
Guido
Sub Numero()
Dim s As Shape
For Each s In ActiveSheet.Shapes
s.TopLeftCell = Replace(s.AlternativeText, "trot_", "")
Next
End Sub
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
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 18.08.2016 par Guy
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
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