Découper une cellule sur 2 lignes

Mcgui69

XLDnaute Nouveau
Bonjour

Je suis en train d'automatiser des traitements de données et j'ai un souci concernant la copie d'une colonne vers une autre. Je précise que je souhaite le faire grâce à un bouton :)

J'ai une colonne A contenant des valeurs FA11111, FA2222 etc... et de temps à autre certaines cellules sont de la forme FA555|FA777.
Je souhaite lors de la copie de la colonne A vers la colonne C (par exemple) que les valeurs qui contiennent un "|" soit scinder de telle sorte que la 1ère partie de la valeur (Ex : FA555) soit sur la ligne i et l'autre sur la ligne i+1.

Je joins un fichier en exemple

J'ai bien pensé au Split mais cette fonction me scinde les valeurs sur 2 colonnes or moi je les veux dans une seule colonne.

J'ai trouvé des tas d'astuces sur autre chose grâce à ce site donc j'espère que les gens seront toujours aussi bien inspirés. :D

Merci d'avance
 

Pièces jointes

  • Exemple travail.xlsx
    9.8 KB · Affichages: 33
  • Exemple travail.xlsx
    9.8 KB · Affichages: 37
  • Exemple travail.xlsx
    9.8 KB · Affichages: 36

camarchepas

XLDnaute Barbatruc
Re : Découper une cellule sur 2 lignes

Bonjour ,

une solution possible :

Code:
Sub Copie_Plus()
Dim Lignefin As Long, Cible As Long
Dim Cellule As Range
Dim Inter As String
Application.ScreenUpdating = False
  Lignefin = Range("A" & Rows.Count).End(xlUp).Row
  Cible = 2
  For Each Cellule In Range("A2:A" & Lignefin)
    Inter = Cellule.Text
    If InStr(1, Cellule, "|") > 0 Then
       Range("C" & Cible) = Split(Cellule, "|")(0)
       Cible = Cible + 1
       Inter = Split(Cellule, "|")(1)
    End If
    Range("C" & Cible) = Inter
    Cible = Cible + 1
  Next
Application.ScreenUpdating = True
End Sub
 

Mcgui69

XLDnaute Nouveau
Re : Découper une cellule sur 2 lignes

Je ne suis absolument pas d'accord avec votre pseudo..... Ce code marche du tonnerre!!!! :D :D :D

C'est exactement ce que je voulais depuis 3 jours. J'avais une piste avec la fonction Instr mais ensuite comment justement la mettre à profit. J'allais partir sur du mid avec du len etc...

Et là vous en 5 min c'est fait... la classe!!

Un grand grand merci.
 

Discussions similaires

Réponses
10
Affichages
442

Statistiques des forums

Discussions
311 725
Messages
2 081 945
Membres
101 849
dernier inscrit
florentMIG