modification macro copie

[malek-farid]

Bonjour je reviens une deuxième fois vers vous pour la modification d’une macro pour copier le contenue d’une facture

La colonne F fais référence a un pris et la colonne G est le résultat de D*F
Lorsque je copie il m’affiche des zéro comment faire pour que le résultat me soit afficher sur la feuille 3

Mercie

 

[Hulk]

Re : modification macro copie

Hello,

Si tu peux, tu n'as qu'à :

Dans la feuille 1 :

1) Couper I16:I21.
2) Coller I16:I21 dans F16:F21.
3) Remplacer la formule en G16 par =F16*D16 puis tirer vers le bas.




P.S. Tu n'as pas besoin de mettre le + !

Par exemple : =B2 et pas =+B2 ou =F16*D16 et non pas =+F16*D16.

 

[Efgé]

Re : modification macro copie

Bonjour malek-farid, Hulk ,

malek-farid, si tu avais pris le temps de revenir ici, tu aurais pu t'inspiré des solutions données. Par exemple :

Sub MAJ()
Application.ScreenUpdating = False
Sheets("Feuil3").Activate
Dim Tableau()
With Sheets("Feuil1")
    NbrLign = .Range("C" & Application.Rows.Count).End(xlUp).Row - 15
    ReDim Tableau(1 To NbrLign, 1 To 7)
        For i = 1 To UBound(Tableau, 1)
            Tableau(i, 1) = .Cells(10, 7)
            Tableau(i, 2) = .Cells(8, 7)
                For j = 3 To UBound(Tableau, 2)
                    Tableau(i, j) = .Cells(i + 15, 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("Feuil1").Activate
Application.ScreenUpdating = True
End With
End Sub

Cordialement

 

[malek-farid]

Re : modification macro copie

mercie je vien de le teste sa marche

 

[malek-farid]

Re : modification macro copie

Lorsque je veux l’adapter au fichier en pièces joint sa me donne le résultat suivant je ne sais pas quelle références a modifier dans la macro

 

[Efgé]

Re : modification macro copie

Re
Avec le nouveau fichier :

Sub MAJ()
Application.ScreenUpdating = False
Sheets("Feuil3").Activate
Dim Tableau()
With Sheets("Feuil1")
    NbrLign = .Range("D" & Application.Rows.Count).End(xlUp).Row - 9
    ReDim Tableau(1 To NbrLign, 1 To 7)
        For i = 1 To UBound(Tableau, 1)
                For j = 1 To UBound(Tableau, 2)
                    Tableau(i, j) = .Cells(i + 9, j + 3)
                Next j
        Next i
    Sheets("Feuil3").Range("A" & Range("A" & Application.Rows.Count).End(xlUp).Row + 1).Resize(UBound(Tableau, 1), 7) = Tableau
Application.ScreenUpdating = True
End With
End Sub

Cordialement