Bonjour à tous!

Alors je vais essayer d'être le plus précis précis dans la description de mon problème. Je précise que je suis débutant en VB, mais que j'ai soif de connaissance et hâte d'apprendre

J'aimerai faire une recherche partielle dans une cellule qui est indexée par une variable, cependant j'ai quelque petit souci avec la commande Cells, incompatible avec Like. Voici à quoi ressemble mon premier jet :

--------------------------------------------------------

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub test1()
l = ActiveSheet.UsedRange.Rows.Count
   For i=1 To l
      If Cells(i, "A").Value Like "*-->*" Then
      Cells(i, "F") = "Oui"
      End If
   Next i
End Sub
--------------------------------------------------------

Apparemment Like fonctionne avec Range, mais je ne sais pas utiliser range et une variable en même temps.

J'ai ainsi changé d'optique et essayé de la manière suivante. Cette manière fonctionne mais me renvoi tout de même un message d'erreur...

--------------------------------------------------------

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub test2()
l = ActiveSheet.UsedRange.Rows.Count
    For i = 1 To l
       If InStr(1, ActiveSheet.Cells(i, 1), "-->", 1) > 0 Then
       Cells(i, "F")="Oui"
       End If
    Next i
End Sub
--------------------------------------------------------

Afin que vous compreniez mieux ma démarche, voici mon but :
Sur ma feuille d'environ 2000 lignes, beaucoup d'entre elles sont de la forme :
AA:BB:CC,DDD --> EE:FF:GG,HHH
Je souhaite repérer ces cellules puis les décomposer comme suit :
AA,BB,CC,DDD,EE,FF,GG,HHH dans 8 colonnes indépendantes! Comme par exemple avec la fonction d'excel convertir à adapter en VB.

Merci d'avance pour votre aide.

Maxime

PS : Je dispose de microsoft excel 2003.

Edité à 23:17