Couper une partie de la cellule et la coller dans une autre

[help me]

Bonjour à tous,

J'ai un petit problème, en fait j'ai une colonne où les cellules contiennent des ";" et j'aimerais à chaque ";" couper le texte après ce point virgule puis la coller dans la cellule en dessous.


Attention il peut y avoir plusieurs ; dans la même cellule
Merci d'avance

 

[phlaurent55]

Re : Couper une partie de la cellule et la coller dans une autre

Bonjour et bienvenue sur le forum

en version 2007, clique sur "Données" et ensuite "Convertir"

à+
Philippe

 

[help me]

Re : Couper une partie de la cellule et la coller dans une autre

Le problème c'est que convertir les mets sur la même ligne, et je veux utiliser une macro car je veux le faire pour toutes les lignes j'ai un début de macro:


For i = 2 To 65536
If Range("V" & i) Like "*; *" Then
Rows(i + 1).Insert Shift:=xlDown
Range("V" & i).FormulaR1C1
Range("V" & i + 1).Paste
End If
Next
End Sub

 

[help me]

Re : Couper une partie de la cellule et la coller dans une autre

Trouvé !!! Merci quand même Philippe.
Si ça peux aider:
nb = InStr(Range("V" & i), "; ")
Range("V" & i + 1) = Right(Range("V" & i), Len(Range("V" & i)) - nb)
Range("V" & i) = Left(Range("V" & i), nb - 1)