Probleme facture

Bonsoir

j'ai ajouter deux elements dans factures en ligne A23 et A24 quand je clic sur le bouton pour imprimer les elements ne si trouve pas

mais sont comptabilisee

pouvez vous m'aider

merci

Bonsoir

Il faut modifier ta boucle

Option Explicit

Sub Création()
Dim Clt&, DerL&, X&

  DerL = Feuil2.Range("A" & Rows.Count).End(3).Row

  With Feuil1
    Range("A1:B1,C1,D1,A3:C30").ClearContents
    Range("A1:B1").Select
  End With

  For Clt = 3 To DerL
    With Feuil2
      For X = 5 To 26
        Feuil1.Cells(1, 1) = .Cells(Clt, 1) & " " & .Cells(Clt, 2)
        Feuil1.Cells(1, 3) = .Cells(Clt, 3)
        Feuil1.Cells(1, 4) = .Cells(Clt, 4)
        Feuil1.Cells(X - 2, 1) = .Cells(1, X)
        Feuil1.Cells(X - 2, 2) = .Cells(3, X)
        Feuil1.Cells(X - 2, 3) = .Cells(2, X)
      Next X
    End With
    ActiveSheet.PrintPreview
  Next Clt
End Sub

Re Bonsoir

Merci probleme resolu