Formule création de ligne
Bonjour à tous,
Voilà mon problème, j'ai un fichier se présentant ainsi :
Ligne 1 : Date A ; libellé A ; montant TTC A; TVA A ; montant HT A
Ligne 2 : Date B ; libellé B ; montant TTC B; TVA B; montant HT B
Ligne 3 : Date C ; libellé C ; montant TTC C; TVA C; montant HT C
et ainsi de suite
Et je voudrais qu'il se présente de la manière suivante :
Ligne 1 : Date A ; libellé A ; montant TTC A
Ligne 2 : Date A ; libellé A ; vide ; TVA A
Ligne 3 : Date A ; Libellé A ; vide ; Montant HT A
Ligne 4 : Date B ; libéllé B ; montant TTC B
Ligne 5 : Date B ; libéllé B ; vide ; TVA B
Et ainsi de suite
C'est pour importer des écritures de compta. Est ce possible de faire cela sous Excel (je suis débutante)
Merci de votre aide
Toto sait faire.
Il suffit de faire tourner la macro en changeant les noms de tes feuilles
Sub toto()
Dim i As Long, k As Long, depart As String, arrivee As String
Application.ScreenUpdating = False
'nom de la feuille de depart
depart = "Sheet1"
'nom de la feuille darrivee
arrivee = "Sheet2"
k = 1
With Sheets(depart)
For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
Sheets(arrivee).Cells(k, 1) = .Cells(i, 1)
Sheets(arrivee).Cells(k, 2) = .Cells(i, 2)
Sheets(arrivee).Cells(k, 3) = .Cells(i, 3)
k = k + 1
Sheets(arrivee).Cells(k, 1) = .Cells(i, 1)
Sheets(arrivee).Cells(k, 2) = .Cells(i, 2)
Sheets(arrivee).Cells(k, 4) = .Cells(i, 4)
k = k + 1
Sheets(arrivee).Cells(k, 1) = .Cells(i, 1)
Sheets(arrivee).Cells(k, 2) = .Cells(i, 2)
Sheets(arrivee).Cells(k, 4) = .Cells(i, 5)
k = k + 1
Next i
End With
Application.ScreenUpdating = True
End Sub