Discussion :

[yoyo_t1]

Bonjour et bonne journée à tous, je suis désolé de vous embeter. Je viens d'apprendre le vba et je rencontre qqes problemes malgré le fait que plusieurs posts concernant le split sont déja présents dans le forum.
Objectif du code: je possede une colonne contenant des string.Je souhaite réaliser un programme qui parcourt cellule par cellule et divise la cellule contenant "vs" à condition que la chaine de caracteres à droite de "vs soit de longueur superieure à 4
ex: la cellule en A1 5y5y @674 vs 5y10y @1259 sera divisée en 5y5y @674 (qui sera alors en A1) et 5y10y @1259 (qui sera en A2 sans pour autant écraser les données en A2)
la cellule en A10 4y10y P+100 /292 vs 115 ne sera pas divisée car à droite du vs il y a seulement 4 caracteres.

Voici mon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
Dim spl() As String
Dim pos As Long
Dim i As Long
 
With Sheets("Feuil1")
    For i = 1 To 500
        If Cells(i, 1).Value Like ("vs") Then
            spl = Split(Cells(i, 1).Value, " vs ")
            If Len(spl(1)) > 4 Then
                Cells(i, 1).Value = spl(0)
                i = i + 1
                Rows(i).Insert
                Cells(i, 1).Value = spl(1)
            End If
        End If
    Next i
End With
 
End Sub

Il y a pas mal d'erreurs à priori. pourtant j'ai utilisé uniquement des fonctions que j'ai trouvé sur le net et j'ai du mal à déboger.
Ce serait super sympa si vous pourriez m'aider.
Merci infiniment (meme si vous trouvez uniquement une ou deux sources d'erreur)

[Daniel.C]

Bonjour,

(qui sera en A2 sans pour autant écraser les données en A2)

Que fait-on des données présentes en A2 ? On ajoutée la partie "splitée" devant ou derrière les données existantes ?