Extrirs les chiffres dans un tableau

bqtr

XLDnaute Accro

• 10 Avril 2007

• #16

Re : Extrirs les chiffres dans un tableau

Re,

Par macro :

Code:

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

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 10 Avril 2007

• #17

Re : Extrirs les chiffres dans un tableau

Bonjour,

Un essai par formule

 

Pièces jointes

• DecouperGuido.zip

  4.8 KB · Affichages: 27

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 10 Avril 2007

• #18

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

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 10 Avril 2007

• #19

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.

 

Pièces jointes

• DecouperGuidoV1.zip

  5.7 KB · Affichages: 66

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 10 Avril 2007

• #20

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

 

Vote positif 0 Vote négatif