Extraire nombre.

[woo]

Bonjour à tous,
J'ai modifié un code vba pour extraire des nombres dans une plage de cellule, mais extraire que les 6 premiers, et l'instruction "If m < 6 Then" ne fonctionne pas.
Un code vba recupérer dans "extraire_c.zip" de M. Pierre Jean.

Sub ext()

Dim Derlig As Integer, Plage As Range, Cel As Range, Place As Byte, i As Byte
Dim oCel As Range, x, y, l, m As Long

Application.DisplayAlerts = False
With Sheets("essai2")
' Conversion des places
Derlig = .Range("J65000").End(xlUp).Row
With .Range("J8:J25")
.Replace "(09) ", ""
.Replace "(09),(08)", ""

With Range("J8:J27")
For Each oCel In .Cells
x = Split(oCel.Value, " ")
If UBound(x) >= 0 Then
For i = 0 To UBound(x)

y = Split(x(i), ")")
On Error Resume Next
x(i) = y(UBound(y))
x(i) = Left$(x(i), Len(x(i)) - 1)
On Error GoTo 0
If Not IsNumeric(x(i)) Then x(i) = "0"
Next i
ReDim y(0 To UBound(x)) As Variant
For i = 0 To UBound(x)
If IsNumeric(x(i)) Then y(i) = CInt(x(i)) Else y(i) = x(i)
Next i
Range(Cells(oCel.Row, [K8].Column), Cells(oCel.Row, [K8].Column + UBound(x))).Value = y '***
End If
Next oCel

For m = 0 To UBound(x)
If m < 6 Then
Cells(7 + n, 11 + m) = x(m)
End If

Next m
End With
End With
End With
Application.ScreenUpdating = True
End Sub

Svp quel solution
Merci
woo.

 

[camarchepas]

Re : Extraire nombre.

Bonjour ,

Peux tu joindres la feuille de données à extraire ?

 

[woo]

Re : Extraire nombre.

Modif extraire nombre

 

[woo]

Re : Extraire nombre.

Bonjour ,

Peux tu joindres la feuille de données à extraire ?

Désolé, un oubli du fichier il est maintenant joint.
merci

 

[camarchepas]

Re : Extraire nombre.

WOO,

Et bé , elle était bien cassée la macro,

enfin voici après une restauration ,

La cerise sur le gâteau, le bouton fonctionne également.

 

[woo]

Re : Extraire nombre.

Bonjour,
et merci pour la clarté du code, c'était bien cassé mais pas évident pour un début.
Par contre j'ai modofié le bouton d'execution pour une autre feuille et garder le même code et il y erreur d'execution.
woo

 

[camarchepas]

Re : Extraire nombre.

sur le 1 with , l'on défini la feuille sur laquelle on travaille , peut être là le problème

Au lieu de With Sheets("essai2") , essai

with activesheet, il faut juste être sûr d'être sur la bonne feuille

 

[woo]

Re : Extraire nombre.

Est il pssible de passer par un seul module extraction pour plussieurs feuile avec le même code vba sans passe par la commande with shetts("essai2")pour activer la feuille.
En fait j'ai feuille 1,2,3,....9 à extraire les nombres par le même bouton vba.

 

[camarchepas]

Re : Extraire nombre.

Et voilà,

une boucle for each scrute toutes les feuilles du classeur.

 

[woo]

Re : Extraire nombre.

Super c'est exactement cela.
Un grand merci pour l'aide et aussi pour la rapidité du dévelopemnet du code.
Cordialement
woo