IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Transférer les lignes des deux feuilles VBA


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre régulier
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Janvier 2018
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Territoire de Belfort (Franche Comté)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Janvier 2018
    Messages : 5
    Par défaut 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
    Fichiers attachés Fichiers attachés

  2. #2
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Citation Envoyé par mh12A Voir le message
    Je n'arrive pas à le faire
    As-tu au moins essayé ?

  3. #3
    Membre actif
    Homme Profil pro
    Directeur commercial
    Inscrit en
    Juin 2014
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Directeur commercial

    Informations forums :
    Inscription : Juin 2014
    Messages : 46
    Par défaut
    Bonsoir,

    Une solution que voici :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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+

Discussions similaires

  1. Réponses: 9
    Dernier message: 21/10/2015, 14h14
  2. [Toutes versions] Transférer les lignes de la feuille 1 vers la feuille 2 en évitant les doublons
    Par DownNola dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 16/03/2015, 06h25
  3. [XL-2003] comparaison des lignes de deux feuilles
    Par safouunette dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 26/11/2010, 10h27
  4. [XL-2003] la différence entre les lignes des deux feuilles dans la premiere ligne vide d'une des deux
    Par safouunette dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 26/11/2010, 10h20
  5. Réponses: 2
    Dernier message: 10/03/2010, 18h43

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo