Spliter Cellule et dupliquer ligne - De l'aide Pleasssssssee |
Titre du sujet : Spliter Cellule et dupliquer ligne - De l'aide Pleasssssssee par Djaleem le 13/09/2012 02:05:07 Bonjour à tous, je suis débutant, alors je me lance. voila mon problème. J'ai 2 lignes avec 4 cellules. En gros dans la cellule A j'ai le nom et dans la cellule D j'ai plusieurs activités dans la même cellule avec des retours chariots. J'aimerai que la cellule D soit spliter et que la ligne entière A B et C soit dupliquer en dessous. En gros si la cellule D contenait 5 activités, j'ai désormais 5 ligne: A B C D1 A B C D2 A B C D3 A B C D4 A B C D5 et les lignes en dessous deuxième prénom sont décaler automatiquement. J'ai trouvé ça comme code qui me fait bien le split mais rien n'est dupliquer et il ne décale pas les lignes: Sub splitv() Dim c As Range, lig As Long, ch As Variant, i As Long For lig = [A65536].End(xlUp).Row To 1 Step -1 Set c = Cells(lig, "A") If InStr(c, vbLf) Then ch = Split(c.Value, vbLf) For i = UBound(ch) To 1 Step -1 c.Offset(1, 0).Insert Shift:=xlDown c.Offset(1, 0) = ch(i) Next i c = ch(0) End If Next lig End Sub Un big merci de votre aide. |
Forums