Extrirs les chiffres dans un tableau

[Guido]

Bonsoir

j'aimerais extraires les chiffres dans un tableau,

Merci pour votre aide

Guido

 

[bqtr]

Re : Extrirs les chiffres dans un tableau

Re,

Par macro :

Sub Explose()
Dim cell As Range
Dim t, oldcell
Dim i As Integer
Application.ScreenUpdating = False
For Each cell In Range("A11:A" & Range("A65536").End(xlUp).Row)
  oldcell = cell
  cell = Replace(cell, " -", "")
  t = Split(cell, " ")
     For i = 0 To UBound(t)
       If t(1) = ":" Then
          If IsNumeric(t(i)) Then cell.Offset(0, i + 3).Value = t(i)
       Else
          If IsNumeric(t(i)) Then cell.Offset(0, i + 2).Value = t(i)
       End If
     Next
  cell = oldcell
Next
Application.ScreenUpdating = True
End Sub

Bonne journée

 

[Monique]

Re : Extrirs les chiffres dans un tableau

Bonjour,

Un essai par formule

 

[Guido]

Re : Extrirs les chiffres dans un tableau

Bonjour Monique

quel plaisir de te lire.

ton fichier me convient aussi

une petite modif .....car avec des noms de journaux comme ceux-ci ???

Week-End : 14 - 16 - 2 - 5 - 3 - 15 - 9 - 8
Trot-Galop : 2 - 5 - 3 - 7 - 15 - 6 - 16 - 4
Presse-Océan : 5 - 4 - 2 - 7 - 9 - 14 - 15 - 16
Turf-Dernière : 16 - 4 - 5 - 8 - 14 - 3 - 7 - 9

il y a un pti souci,merci de regarder

Guido

 

[Monique]

Re : Extraire les chiffres dans un tableau

Re,

Je n'avais pas réalisé qu'il y avait toujours 8 numéros.
Soit une formule différente pour le titre
soit la même formule partout.

 

[Guido]

Re : Extrirs les chiffres dans un tableau

Bonsoir Monique

Merci pour la modif,super sympa.

bonne soirée a bientot

Guido

Bonsoir le forum

a bientot

Guido