Remanier un tablo par vba

[aubelix]

Bonjour à tous les amis du Forum 🙂

Je reçois un fichier d'un fournisseur qui comporte des milliers de lignes.
J'ai essayé de le transposer, car les données d'une ligne se trouve être sur 2 lignes.

Comment avec VBA recopier la ligne qui commence par solde et la recopier
à la colonne K et supprimer la ligne recopiée. (Voir fichier en exemple)

Par avance merci pour votre aide.
Cordialement.

 

[jp14]

Re : Remanier un tablo par vba

Bonjour

Ci dessous une macro pour recopier les données.
La macro ne contrôle pas les données sauf le nombre de lignes qui doit être un nombre pair.

Sub travdemande()

Dim i As Long
Dim nomfeuille1 As String
Dim col1 As String
Dim lidep1 As Long
Dim dl1 As Long


'**********************************
nomfeuille1 = ActiveSheet.Name '"Feuil1"
col1 = "a"
lidep1 = 1
dl1 = Sheets(nomfeuille1).Range(col1 & "65536").End(xlUp).Row + 2
If (dl1 Mod 2) > 0 Then

Call MsgBox("Le nombre de lignes n'est pas un nombre pair" _
            & vbCrLf & "" _
            , vbCritical, Application.Name)

Exit Sub

End If

'************************************
With Sheets(nomfeuille1)

For i = dl1 To 2 Step -2

    .Range("A" & i & ":j" & i).Copy Destination:=.Range("k" & i - 1)
    .Rows(i).Delete Shift:=xlUp
Next i

End With

End Sub

A tester

JP

 

[pierrejean]

Re : Remanier un tablo par vba

bonjour aubelix

Vois si cela te convient

Edit : a la bourre moi !
Salut JP

 

[aubelix]

Re : Remanier un tablo par vba

Bonjour JP14 et PierreJean. 🙂

Merci pour vos réponses.
Cela me convient.
Quel gain de temps.

Cordialement.