Fonction "CHERCHE" dans une macro

[philnordiste]

Bonjour.
je travaille sur une cellule comportant une série de nombres à un ou deux chiffres. ces nombres sont séparés par des tirets.
je souhaite extraire ces nombres pour les mettre chacun dans une cellule.
Ces nombres étant à un ou deux chiffres je ne peut pas utiliser la fonction CHERCHE () ou la fonction TROUVE().
J'ai essayé de le faire dans une macro mais j'ai toujours une erreur pour incompatibilité de type.
voici mon petit bout de code.
s'il y a un amateur ?

Worksheets("feuil1").Activate
ActiveCell.Value = "=SEARCH(""-"",Range("02"),1)"
Ord1 = ActiveCell.Value
MsgBox "Le premier est a : " & Ord1
C = Ord1 + 1
MsgBox " c = " & C
ActiveCell.Value = "=SEARCH(""-"",L2C15,C)"
Ord2 = ActiveCell.Value
MsgBox "Le second est a : " & Ord2
merci d'avance

 

[Banzai64]

Re : Fonction "CHERCHE" dans une macro

Bonsoir

Essayes
En considérant que la colonne A contient les données

Option Explicit

Sub test()
Dim I As Integer
Dim J As Long
Dim tablo As Variant

  For J = 1 To Range("A65536").End(xlUp).Row
    tablo = Split(Cells(J, 1), "-")
    For k = 0 To UBound(tablo)
      Cells(J, 2 + k) = CInt(tablo(k))
    Next k
  Next J
End Sub

 

[philnordiste]

Re : Fonction "CHERCHE" dans une macro

Bonsoir.
désolé mais cela ne marche pas.
La variable "tablo" n'est pas remplie et la boucle "k" est "sautée".

voici le type de contenu de la cellule de départ : 4-10-17-27-38-44

Cordialement

 

[tirex28]

Re : Fonction "CHERCHE" dans une macro

bonsoir,

As tu essaye la fonction Données>Convertir ?

Cordialement,

Tirex28/

 

[philnordiste]

Re : Fonction "CHERCHE" dans une macro

Bonsoir.
Okay cela fonctionne bien dans une macro.
Merci car cela me fait avancer !
Mais je voudrai savoir pourquoi la fonction "CHERCHE" ne marche pas dans une macro.
Cordialement

 

[tirex28]

Re : Fonction "CHERCHE" dans une macro

Re,

Peut etre essaye tu de faire ceci:

Sub Test()
MsgBox WorksheetFunction.Search("-", Range("A1").Value, 1)
End Sub

Cordialement,

Tirex28/