Discussion :

[PierreZelda]

Bonjour,
Il faut que je fasse une macro VBA pour que dans mon tableau excel, dans le colonne "N° Organe Max 3c" si il y a un retour ligne, que a chaque retour lignes soit sépare dans d'autre ligne de la même colonne et que bien sur tout se qui était a droite et a gauche dans la ligne en cour de traitement soit dupliquer.
J'ai mis un exemple de ce que j'aimerais obtenir dans le fichier si joint. ( exemple réaliser sur la ligne 60 )
Cordialement
Pierre

[BENNASR]

bonjour
c'est juste pour faire bouger cette discussion dans l'espoir que ça t'aide à avancer
nécessite beaucoup d'amélioration sans doute ... c'est du bricolage

hypothèse
donnée ou il y a le retour à la ligne en colonne A
des données de B/C/et D

NB : je ne suis qu'un autodidacte ...à adapter et à tester sur une copie de ton fichier

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
21
22
23
24
25
26
27
Sub Lister()
 
Application.ScreenUpdating = False
    Dim c As Range, i%, n%, txt
    With Worksheets("feuil3")
        n = .UsedRange.Rows.Count
        For Each c In .Range("A2:A" & n)
            If InStr(c.Value, Chr(10)) > 0 Then
                txt = Split(c.Value, Chr(10))
                For i = 0 To UBound(txt)
                     lig = c.Row
                    .Rows(lig + 1).Insert
                    .Range("A" & lig + 1) = txt(i)
                    .Range("B" & lig + 1) = .Range("B" & lig)
                    .Range("C" & lig + 1) = .Range("C" & lig)
                    .Range("D" & lig + 1) = .Range("D" & lig)
                Next i
            End If
        Next c
 
    For Each c In .Range("A2:A" & n)
            If InStr(c.Value, Chr(10)) > 0 Then .Rows(c.Row).Delete Shift:=xlUp
    Next c
    End With
    Set txt = Nothing
    Application.ScreenUpdating = True
End Sub