Excel : doubler les lignes

djidji59430 à dit:

Bonjour,

pas de macro, mais une manip toute simple :
tu recopies ta base a la suite et tu tries sur la premiere colonne.


Crdlmt

Cliquez pour agrandir...

kernaleguen à dit:

Pardon car j'ai oublié un point important dans ma demande :

Cliquez pour agrandir...

vgendron à dit:

Effectivement.. je ne vois pas ton fichier exemple...

Cliquez pour agrandir...

vgendron à dit:

et elle est où ta colonne SENS??

Cliquez pour agrandir...

vgendron à dit:

avec ce code

VB:

Sub Dupliquer()
Dim tablo() As Variant
With ActiveSheet
    fin = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne
    tablo = .Range("A2:K" & fin).Value 'on met tout dans un tableau VBA
    For i = LBound(tablo, 1) + 1 To UBound(tablo, 1) 'on inverse C et D
        tablo(i, 10) = IIf(tablo(i, 10) = "C", "D", "C")
    Next i
    .Range("A" & fin + 1).Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo 'on copie le nouveau tablo à la suite de l'existant
End With
End Sub

Cliquez pour agrandir...