modification macro copie

malek-farid

XLDnaute Junior
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
 

Pièces jointes

  • test%20FACTURE(1).xls
    39 KB · Affichages: 42

Hulk

XLDnaute Barbatruc
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.
 
Dernière édition:

Efgé

XLDnaute Barbatruc
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 :
Code:
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

XLDnaute Junior
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
 

Pièces jointes

  • Classeur1.xls
    38.5 KB · Affichages: 32
  • Classeur1.xls
    38.5 KB · Affichages: 35
  • Classeur1.xls
    38.5 KB · Affichages: 34

Efgé

XLDnaute Barbatruc
Re : modification macro copie

Re
Avec le nouveau fichier :
Code:
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
 

Discussions similaires

Réponses
22
Affichages
941
Réponses
2
Affichages
199

Statistiques des forums

Discussions
312 836
Messages
2 092 631
Membres
105 475
dernier inscrit
ramzi slama