Transférer les lignes des deux feuilles VBA

Version imprimable

17/01/2018, 16h13
mh12A

1 pièce(s) jointe(s)

Transférer les lignes des deux feuilles VBA

Bonjour à tous!!

Mon problème : transférer des lignes de la feuille 1 et de la feuille 2 dans la feuille globale 3 qui sera la somme de deux modèles

Mon dossier est constitué de deux feuilles de même structure (mêmes colonnes). Les cellules de colonne A toujours remplies.

Je décris mon problème à l’aide d’un exemple.

Je suis dans mon classeur.
Premier lancement de la macro.
Allez dans la feuille 1 récupérer la ligne 1 (modèle article 1 ivc 1),recopier le dans la feuille 3,puis allez dans la feuille 2 récupérer la ligne 1 (modèle article 1 ivc x),recopier le dans la feuille 3,ensuite faire le total de deux modèles.
Je n'arrive pas à le faire et j'en ai plus de 2000 lignes mais ils ont toutes la même structure dans les deux feuilles.
Voici le tableau ci-joint qui pourra expliquer le cas

Merci de votre aide, avec les macros ou VBA

Cordialement
17/01/2018, 16h18
Menhir

Citation:

Envoyé par mh12A

Je n'arrive pas à le faire

As-tu au moins essayé ?

Bonsoir,

Une solution que voici :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Sub Transfert()
Dim i As Integer, j As Integer, t1(), t2(), t
t1 = Feuil1.Range("A1:O13")
t2 = Feuil2.Range("A1:O13")
ReDim t(1 To UBound(t1, 1), 1 To UBound(t1, 2))
    For i = 2 To UBound(t1)
        For j = 1 To UBound(t1, 2)
            If j = UBound(t1, 2) Then
                t(i, j) = Cells(i, j) + t2(i, j)
            Else
                t(i, j) = Cells(i, j)
            End If
        Next j
    Next i
Feuil3.[A2].Resize(UBound(t), UBound(t, 2)) = t
End Sub

A+