aide sur une macro copie

[malek-farid]

J’ai sollicité votre aide sur une macro qui me copie le contenue d’une facture lors de son application j’ai un problème elle recopie deux ligne supplémentaire je ne trouve pas la solution elle doit recopie C 24 a G46 elle recopie en plus le G 47 et G48

Mercie de m’indiquer la marche a suive

 

[Paritec]

Re : aide sur une macro copie

Bonjour Malek le forum
la bonne marche à suivre est déjà de savoir dire bonjour
là ce serait une bonne chose
ton fichier en retour
A+
Papou

 

[Compte Supprimé 979]

Re : aide sur une macro copie

BONJOUR Malek-farid

Le code ci-dessous devrait te permettre d'obtenir ce que tu souhaites

Sub MAJ()
  Application.ScreenUpdating = False
  Sheets("Feuil3").Activate
  Dim Tableau()
  With Sheets("Feuil1")
    ' Trouver le nombre de ligne en partant de la ligne 23 vers le bas
    nbrlign = .Range("C23").End(xlDown).Row - 23
    ReDim Tableau(1 To nbrlign, 1 To 7)
    For i = 1 To UBound(Tableau, 1)
      Tableau(i, 1) = .Cells(16, 7)
      Tableau(i, 2) = .Cells(4, 7)
      For j = 3 To UBound(Tableau, 2)
        Tableau(i, j) = .Cells(i + 23, j)
      Next j
    Next i
    Sheets("Feuil3").Range("A" & Range("A" & Application.Rows.Count).End(xlUp).Row + 1).Resize(UBound(Tableau, 1), 7) = Tableau
    Sheets("Feuil3").Range("G" & Range("G" & Application.Rows.Count).End(xlUp).Row + 1).Value = .Range("G" & nbrlign + 1).Value
    Sheets("Feuil3").Range("G" & Range("G" & Application.Rows.Count).End(xlUp).Row + 1).Value = .Range("G" & nbrlign + 2).Value
    Sheets("Feuil1").Activate
    Application.ScreenUpdating = True
  End With
End Sub

Edit : Oups, salut Paritec

A+

 

[Paritec]

Re : aide sur une macro copie

Re Bonjour Malek, Bonjour Bruno,
je vois que nous avons les mêmes valeurs
a+
Papou

 

[Compte Supprimé 979]

Re : aide sur une macro copie

Re,

je vois que nous avons les mêmes valeurs

Tout à fait mon cher Papou

Surtout que l'étymologie (XIII e siècle) veux dire « ayez un bon jour ! »
bonjour - Wiktionnaire

Mes amitiés