Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

help me

XLDnaute Nouveau
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

Nous a quittés en 2020
Repose en paix
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

XLDnaute Nouveau
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

XLDnaute Nouveau
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)
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…